PureBasic

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. PureBasic

IncludeFile "CkDateTime.pb"

Procedure ChilkatExample()

    dt.i = CkDateTime::ckCreate()
    If dt.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    ; Set to the current system date/time.
    CkDateTime::ckSetFromCurrentSystemTime(dt)
    Debug "Now: " + CkDateTime::ckGetAsTimestamp(dt,1)

    ; Subtract 10 minutes, making the date 10 minutes in the past.
    CkDateTime::ckAddSeconds(dt,-600)
    Debug "10 minutes ago: " + CkDateTime::ckGetAsTimestamp(dt,1)

    ; Is the date/time older than 10 seconds?
    b.i = CkDateTime::ckOlderThan(dt,10,"seconds")
    Debug "Older than 10 seconds: " + Str(b)

    ; Is the date/time older than 5 minutes?
    b = CkDateTime::ckOlderThan(dt,5,"minutes")
    Debug "Older than 5 minutes: " + Str(b)

    ; Is the date/time older than 15 minutes?
    b = CkDateTime::ckOlderThan(dt,15,"minutes")
    Debug "Older than 15 minutes: " + Str(b)

    ; Is the date/time older than 1 hour?
    b = CkDateTime::ckOlderThan(dt,1,"hour")
    Debug "Older than 1 hour: " + Str(b)

    ; Is the date/time older than 1 day?
    b = CkDateTime::ckOlderThan(dt,1,"day")
    Debug "Older than 1 day: " + Str(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


    CkDateTime::ckDispose(dt)


    ProcedureReturn
EndProcedure