説明 |
アプリケーションの初期化時に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) )). |
プログラム |