Permalink
Fetching contributors…
Cannot retrieve contributors at this time
28 lines (20 sloc) 756 Bytes
' Visual Basic .NET Document
Option Strict On
Imports System.Globalization
Module modMain
Public Sub Main()
Console.WriteLine(ReturnTimeOnServer("9/1/2007 5:32:07 -05:00"))
End Sub
' <Snippet2>
Public Function ReturnTimeOnServer(clientString As String) As DateTimeOffset
Dim format As String = "M/d/yyyy H:m:s zzz"
Try
Dim clientTime As DateTimeOffset = DateTimeOffset.ParseExact(clientString, format, CultureInfo.InvariantCulture)
Dim serverTime As DateTimeOffset = TimeZoneInfo.ConvertTime(clientTime, TimeZoneInfo.Local)
Return serverTime
Catch e As FormatException
Return DateTimeOffset.MinValue
End Try
End Function
' </Snippet2>
End Module