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、該函式獲取格林威治標準時間。