在開發應用程式時往往需要取得當前系統時間。儘管Y2K似乎已經平安過去，但在我們新開發的應用程式中還是要謹慎處理「時間」問題。
在《融會貫通--Delphi4.0實戰技巧》(以下簡稱「該書」)第89頁專門介紹了兩種取得目前系統時間的方法，但這兩種方法都存在不足或錯誤，以下就此進行討論。
該書第一種方法是利用Time()函數來獲得目前系統時間，回傳結果是TDateTime結構類型的變數。例如：
PRocedure TForm1.Button2Click(Sender: TObject);
var
DateTime:TDateTime;
begin
DateTime:=Time();
圖說:=DateToStr(DateTime)+' '+TimeToStr(DateTime);
end;
但不論何日期，其結果卻都是99-12-30 xx:xx:xx, 顯然日期出錯了。透過分析Delphi的幫助，Time()用於傳回正確的「時間--時分秒」即TimeToStr(DateTime)，而不應該用來傳回「日期」。事實上，單獨用於返回日期的系統函數是Date。
那麼有什麼是既可返回正確的「時分秒」又可返回正確的「年月日」呢? 可以用Now函數，例如：
procedure TForm1.Button1Click(Sender: TObject);
var
mytime: TDateTime;
begin
mytime:=Now;
圖說:=DateToStr(mytime)+' '+TimeToStr(mytime);
//或直接用Caption := DateTimeToStr(Now);
end;
用Now返回的日期格式中年只有2位,即2000年顯示為00, 這似乎不太令人滿意. 此外Now和Time都只能獲得精確到秒的時間，為了得到更精確的毫秒級時間，可以使用API函數GetSystemTime，它對應的TSystemTime類型的定義為：
TSystemTime = record
wYear: Word;
wMonth: Word;
wDayOfWeek: Word;
wDay: Word;
wHour: Word;
wMinute: Word;
wSecond: Word;
wMilliseconds: Word;
end;
顯然，在程式邏輯中也能夠方便地使用其結構成?時---各類時間值，因此使用函數GetSystemTime具有很大優越性。但這本書中函數的用法是錯誤的，透過查閱Windows SDK幫助可知，此函數原型為：
VOID GetSystemTime(LPSYSTEMTIME lpst)，參數指標lpst取得系統時間，因此可如下列程式段實作：
procedure TForm1.Button3Click(Sender: TObject);
var
SysTime: TsystemTime;
begin
GetSystemTime(SysTime);
圖說:=IntToStr(SysTime.wYear)+' '+IntToStr(SysTime.wMonth);
//if SysTime.wYear>2000 then
// ......在程式邏輯中利用所取得的各類時間值
end;
綜合以上討論，取得目前系統時間利用函數GetSystemTime比較方便且靈活。