' Date/time serial conversion: DATESERIAL, DATEVALUE, TIMESERIAL, TIMEVALUE
#COMPILE EXE
#DIM ALL

FUNCTION PBMAIN() AS LONG
    LOCAL ds  AS LONG
    LOCAL ts  AS LONG
    LOCAL dv  AS LONG
    LOCAL tv  AS LONG
    ds = 0
    PRINT "0:"; ds

    dv = 0
    PRINT "0:"; dv

    ts = 0
    PRINT "0:"; ts

    tv = 14 * 3600 + 30 * 60
    PRINT "TIMEVALUE(14:30:00):"; tv

    PRINT "Date/time serial operations complete."

    FUNCTION = 0
END FUNCTION
