For Each s As String In p.Replace(vbcr,"").Split(vblf) 'Output.Show(s) ' Dim s As String = "08:20" Dim s1 As Date If Date.TryParse(s, s1) Then If s1 < # 08:30 # Then output.show("正常上班") Else output.show("迟到") End If Else output.show("字符无法转换为日期") End If Next