(SQL Server) 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 ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

-- Important: See this note about string length limitations for strings returned by sp_OAMethod calls.
--
CREATE PROCEDURE ChilkatSample
AS
BEGIN
    DECLARE @hr int
    DECLARE @iTmp0 int
    -- Important: Do not use nvarchar(max).  See the warning about using nvarchar(max).
    DECLARE @sTmp0 nvarchar(4000)
    -- This example requires the Chilkat API to have been previously unlocked.
    -- See Global Unlock Sample for sample code.

    DECLARE @socket int
    -- Use "Chilkat_9_5_0.Socket" for versions of Chilkat < 10.0.0
    EXEC @hr = sp_OACreate 'Chilkat.Socket', @socket OUT
    IF @hr <> 0
    BEGIN
        PRINT 'Failed to create ActiveX component'
        RETURN
    END

    -- Connect to an NIST time server and read the current date/time
    DECLARE @maxWaitMs int
    SELECT @maxWaitMs = 4000
    DECLARE @useTls int
    SELECT @useTls = 0
    DECLARE @success int
    EXEC sp_OAMethod @socket, 'Connect', @success OUT, 'time-c.nist.gov', 37, @useTls, @maxWaitMs
    IF @success <> 1
      BEGIN
        EXEC sp_OAGetProperty @socket, 'LastErrorText', @sTmp0 OUT
        PRINT @sTmp0
        EXEC @hr = sp_OADestroy @socket
        RETURN
      END

    -- 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
    -- 1 or 0 to indicate success.  If successful, the integer
    -- is obtained via the ReceivedInt property.
    DECLARE @bigEndian int
    SELECT @bigEndian = 1
    EXEC sp_OAMethod @socket, 'ReceiveInt32', @success OUT, @bigEndian
    IF @success <> 1
      BEGIN
        EXEC sp_OAGetProperty @socket, 'LastErrorText', @sTmp0 OUT
        PRINT @sTmp0
        EXEC @hr = sp_OADestroy @socket
        RETURN
      END

    DECLARE @dt int
    -- Use "Chilkat_9_5_0.CkDateTime" for versions of Chilkat < 10.0.0
    EXEC @hr = sp_OACreate 'Chilkat.CkDateTime', @dt OUT

    EXEC sp_OAGetProperty @socket, 'ReceivedInt', @iTmp0 OUT
    EXEC sp_OAMethod @dt, 'SetFromNtpTime', @success OUT, @iTmp0

    -- Show the current local date/time
    DECLARE @bLocalTime int
    SELECT @bLocalTime = 1

    EXEC sp_OAMethod @dt, 'GetAsRfc822', @sTmp0 OUT, @bLocalTime
    PRINT 'Current local date/time: ' + @sTmp0

    SELECT @maxWaitMs = 10
    EXEC sp_OAMethod @socket, 'Close', @success OUT, @maxWaitMs

    EXEC @hr = sp_OADestroy @socket
    EXEC @hr = sp_OADestroy @dt


END
GO