| 説明 |
| アプリケーションの初期化時にinitialize_timeを一度実行します。 それ以降はlocal_timeで日付、時刻を取得できる様になります。 |
| 使用例 |
initialize_time :-
winLoadLibrary('KERNEL32',KERN),
winGetProcAddress(KERN,'GetLocalTime',Addr),
winAllocApiArg(16,Buffer),
assert((
local_time(Year,Month,DayOfWeek,Day,Hour,Minute,Second,Millisecond) :-
winCallApi(Addr,[Buffer],0,_,_,_,_),
winLoadApiArgWORD(Buffer,0,Year),
winLoadApiArgWORD(Buffer,1,Month),
winLoadApiArgWORD(Buffer,2,DayOfWeek),
winLoadApiArgWORD(Buffer,3,Day),
winLoadApiArgWORD(Buffer,4,Hour),
winLoadApiArgWORD(Buffer,5,Minute),
winLoadApiArgWORD(Buffer,6,Second),
winLoadApiArgWORD(Buffer,7,Millisecond)
)). |
| プログラム |