XProfan

------------
Definitionen
------------
Def GetLocalTime(1) !"kernel32","GetLocalTime"
Def SetLocalTime(1) !"kernel32","SetLocalTime"
-------------
Deklarationen
-------------
declare Datum#
-----------------
Bereich erstellen
-----------------
dim Datum#,16
----------
Proceduren
----------

proc set_local_date

    parameters Jahr%, Monat%, Tag%
    GetLocalTime(Datum#)
    word Datum#, 0 = Jahr%
    word Datum#, 2 = Monat%
    word Datum#, 6 = Tag%
    SetLocalTime(Datum#)

endproc

proc set_local_time

    parameters Stunde%, Minute%, Sekunde%, Millisekunde%
    GetLocalTime(Datum#)
    word Datum#, 8 = Stunde%
    word Datum#, 10 = Minute%
    word Datum#, 12 = Sekunde%
    word Datum#, 14 = Millisekunde%
    SetLocalTime(Datum#)

endproc

-------------
Hauptprogramm
-------------
Datum setzen
set_local_date 2000, 01, 02
Zeit setzen
set_local_time 01,02,03,04
Bereich freigeben
dispose Datum#
Ende
end