GetSystemTime

Declare Sub GetSystemTime Lib "kernel32" Alias "GetSystemTime" (lpSystemTime As SYSTEMTIME) 在一個SYSTEMTIME中載入當前系統時間,這個時間採用的是“協同世界時間”(即UTC,也叫做GMT)格式。lpSystemTime SYSTEMTIME,隨同當前時間載入的結構。

Ada聲明

type WORD is mod 2**16;

-- SYSTEMTIME 結構

type SYSTEMTIME is record

year : word; -- 年

month : word; -- 月

dayofweek : word; -- 星期,0=星期日,1=星期一

day : word; -- 天

hour : word; -- 時

minute : word; -- 分

second : word; -- 秒

Milliseconds : word; -- 毫秒

end record;

type LPSYSTEMTIME is access SYSTEMTIME;

procedure GetSystemTime(SYSTIME:LPSYSTEMTIME);

function GetSystemTime(SYSTIME:LPSYSTEMTIME) return integer;

pragma import(stdcall,GetSystemTime,"GetSystemTime");

使用注意

1、參數SYSTIME必須首先分配記憶體空間,否則引起PROGRAM_ERROR 。

2、該函式獲取格林威治標準時間。

相關詞條

相關搜尋

熱門詞條

聯絡我們