SQL Server

Date/Time Older-Than N Seconds/Minutes/Hours/Days

Demonstrates the how to tell if a date/time is older than the current time by N seconds, minutes, hours, or days. SQL Server

-- Important: See this note about string length limitations for strings returned by sp_OAMethod calls.
--
CREATE PROCEDURE ChilkatSample
AS
BEGIN
    DECLARE @hr int
    -- Important: Do not use nvarchar(max).  See the warning about using nvarchar(max).
    DECLARE @sTmp0 nvarchar(4000)
    DECLARE @dt int
    EXEC @hr = sp_OACreate 'Chilkat.CkDateTime', @dt OUT
    IF @hr <> 0
    BEGIN
        PRINT 'Failed to create ActiveX component'
        RETURN
    END

    -- Set to the current system date/time.
    DECLARE @success int
    EXEC sp_OAMethod @dt, 'SetFromCurrentSystemTime', @success OUT

    EXEC sp_OAMethod @dt, 'GetAsTimestamp', @sTmp0 OUT, 1
    PRINT 'Now: ' + @sTmp0

    -- Subtract 10 minutes, making the date 10 minutes in the past.
    EXEC sp_OAMethod @dt, 'AddSeconds', @success OUT, -600

    EXEC sp_OAMethod @dt, 'GetAsTimestamp', @sTmp0 OUT, 1
    PRINT '10 minutes ago: ' + @sTmp0

    -- Is the date/time older than 10 seconds?
    DECLARE @b int
    EXEC sp_OAMethod @dt, 'OlderThan', @b OUT, 10, 'seconds'

    PRINT 'Older than 10 seconds: ' + @b

    -- Is the date/time older than 5 minutes?
    EXEC sp_OAMethod @dt, 'OlderThan', @b OUT, 5, 'minutes'

    PRINT 'Older than 5 minutes: ' + @b

    -- Is the date/time older than 15 minutes?
    EXEC sp_OAMethod @dt, 'OlderThan', @b OUT, 15, 'minutes'

    PRINT 'Older than 15 minutes: ' + @b

    -- Is the date/time older than 1 hour?
    EXEC sp_OAMethod @dt, 'OlderThan', @b OUT, 1, 'hour'

    PRINT 'Older than 1 hour: ' + @b

    -- Is the date/time older than 1 day?
    EXEC sp_OAMethod @dt, 'OlderThan', @b OUT, 1, 'day'

    PRINT 'Older than 1 day: ' + @b

    -- Output:

    -- 	Now: 2017-05-05T23:33:06-0500
    -- 	10 minutes ago: 2017-05-05T23:23:06-0500
    -- 	Older than 10 seconds: True
    -- 	Older than 5 minutes: True
    -- 	Older than 15 minutes: False
    -- 	Older than 1 hour: False
    -- 	Older than 1 day: False

    EXEC @hr = sp_OADestroy @dt


END
GO