(VB.NET) Query NTP Server for Current Date/Time
Demonstrates how to query an NTP server to get the current date/time.
Note: This feature was added in Chilkat v9.5.0.96.
' Specify the NTP server domain.
' Information is passed in a JSON object to allow for any unanticipated future optional information that might need to be provided.
Dim json As New Chilkat.JsonObject
json.UpdateString("ntp_server","pool.ntp.org")
' Query the NTP server for the current date/time.
Dim dt As New Chilkat.CkDateTime
Dim success As Boolean = dt.SetFromNtpServer(json.Emit())
If (success = False) Then
Debug.WriteLine(dt.LastErrorText)
Exit Sub
End If
' Show the date/time in various formats..
Dim bLocalTime As Boolean = True
Debug.WriteLine(dt.GetAsTimestamp(bLocalTime))
Debug.WriteLine(dt.GetAsRfc822(bLocalTime))
Debug.WriteLine(dt.GetAsUnixTime(bLocalTime))
' Sample output:
' 2023-10-31T09:43:27-05:00
' Tue, 31 Oct 2023 09:43:27 -0500
' 1698745407
|
