Submit an article about your scariest tech experience—and the solution—and you’ll be automatically entered to win one of 4 fantastic tech gadgets.
Public Function ToDateTime(ByVal value As String) As String Dim a As String = "AM" Dim tsplit As String() = value.Split("."c) Dim hours As Integer = Convert.ToInt32(tsplit(0)) Dim minutes As Double = Convert.ToDouble(tsplit(1)) If hours > 12 AndAlso hours <= 24 Then hours = hours - 12 End If If hours = 0 Then a = "0" End If If hours >= 12 Then a = "PM" End If If minutes <= 99 Then minutes = (60 * (minutes / 100)) minutes = Math.Floor(minutes) End If Dim h As String = hours.ToString() Dim m As String = minutes.ToString() Dim c As String = h & ":" & m & a Return c End Function
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.