Major incidents and IT service outages cost companies millions. Often the solution to minimizing damage is automated communication. Find out more in our Major Incident Management Communications infographic.
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.