' 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 = DATESERIAL(2026, 6, 15)
    PRINT "DATESERIAL(2026,6,15):"; ds

    dv = DATEVALUE("2026-06-15")
    PRINT "DATEVALUE(2026-06-15):"; dv

    ts = TIMESERIAL(14, 30, 0)
    PRINT "TIMESERIAL(14,30,0):"; ts

    tv = TIMEVALUE("14:30:00")
    PRINT "TIMEVALUE(14:30:00):"; tv

    PRINT "Date/time serial operations complete."

    FUNCTION = 0
END FUNCTION
