Dim cols As String() = {"Time","Time2"}
dt.AsEnumerable.ToList.ForEach(Sub(r)
cols.ToList.ForEach(Sub(c)
If DateTime.TryParseExact(r(c).ToString,{"%H","H:m","H.m","h.m tt"},System.Globalization.CultureInfo.InvariantCulture,System.Globalization.DateTimeStyles.None,New DateTime) Then
r(c)=DateTime.ParseExact(r(c).ToString,{"%H","H:m","H.m","h.m tt"},System.Globalization.CultureInfo.InvariantCulture,System.Globalization.DateTimeStyles.None).ToString("HH:mm")
Else
r(c)="00:00"
End If
End Sub
)
End Sub
)