(VB.NET UWP/WinRT) Get Current Date/Time from NIST Time Server

Demonstrates using Chilkat Socket to connect to an NIST time server and (using the old Time Protocol (RFC 868)), will read the current GMT time.

Note: This is not necessarily the very best means for getting the current date/time. The most commonly used time protocol is the Network Time Protocol (RFC-1305).

Chilkat Universal Windows Platform (UWP) / WinRT Downloads Chilkat for the Universal Windows Platform (UWP)

'  This example assumes the Chilkat Socket API to have been previously unlocked.
'  See Socket Unlock Sample for sample code.

Dim socket As New Chilkat.Socket

'  Connect to an NIST time server and read the current date/time
Dim maxWaitMs As Integer = 4000
Dim useTls As Boolean = False
Dim success As Boolean = Await socket.ConnectAsync("time-c.nist.gov",37,useTls,maxWaitMs)
If (success <> True) Then
    Debug.WriteLine(socket.LastErrorText)
    Exit Sub
End If


'  The time server will send a big-endian 32-bit integer representing
'  the number of seconds since since 00:00 (midnight) 1 January 1900 GMT.
'  The ReceiveInt32 method will receive a 4-byte integer, but returns
'  True or False to indicate success.  If successful, the integer
'  is obtained via the ReceivedInt property.
Dim bigEndian As Boolean = True
success = Await socket.ReceiveInt32Async(bigEndian)
If (success <> True) Then
    Debug.WriteLine(socket.LastErrorText)
    Exit Sub
End If


Dim dt As New Chilkat.CkDateTime
dt.SetFromNtpTime(socket.ReceivedInt)

'  Show the current local date/time
Dim bLocalTime As Boolean = True
Debug.WriteLine("Current local date/time: " & dt.GetAsRfc822(bLocalTime))

maxWaitMs = 10
Await socket.CloseAsync(maxWaitMs)