(Lianja) 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.

Chilkat Lianja Extension Download Chilkat Lianja Extension

// 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.
loJson = createobject("CkJsonObject")
loJson.UpdateString("ntp_server","pool.ntp.org")

// Query the NTP server for the current date/time.
loDt = createobject("CkDateTime")
llSuccess = loDt.SetFromNtpServer(loJson.Emit())
if (llSuccess = .F.) then
    ? loDt.LastErrorText
    release loJson
    release loDt
    return
endif

// Show the date/time in various formats..
llBLocalTime = .T.
? loDt.GetAsTimestamp(llBLocalTime)
? loDt.GetAsRfc822(llBLocalTime)
? str(loDt.GetAsUnixTime(llBLocalTime))

// Sample output:

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


release loJson
release loDt