B4X

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.

B4X

Dim success As Boolean = False

'  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 ChilkatJsonObject
json.Initialize
json.UpdateString("ntp_server", "pool.ntp.org")

'  Query the NTP server for the current date/time.
Dim dt As ChilkatDateTime
dt.Initialize
success = dt.SetFromNtpServer(json.Emit)
If success = False Then
    Log(dt.LastErrorText)
    Return
End If


'  Show the date/time in various formats..
Dim bLocalTime As Boolean = True
Log(dt.GetAsTimestamp(bLocalTime))
Log(dt.GetAsRfc822(bLocalTime))
Log(dt.GetAsUnixTime(bLocalTime))

'  Sample output:

'  2023-10-31T09:43:27-05:00
'  Tue, 31 Oct 2023 09:43:27 -0500
'  1698745407