作者：admin 來(lái)源：未知 日期：2010/2/1 13:40:32 人氣：1814 標(biāo)簽：
本例中主要應(yīng)用了FormatDateTime函數(shù)，此函數(shù)主要用于將日期時(shí)間格式化為指定的字符串。利用該函數(shù)可以輸出許多形式的時(shí)間格式。
主要代碼如下：
procedure TForm1.Button1Click(Sender: TObject);
begin
Label1.Caption := FormatDateTime('hh:nn:ss',Now());
end;
獲得系統(tǒng)當(dāng)前日期
當(dāng)用戶單擊窗體中的按鈕時(shí)，程序會(huì)利用DateTimeToStr函數(shù)將當(dāng)前日期轉(zhuǎn)換為一個(gè)字符串顯示在標(biāo)簽上。
獲得系統(tǒng)當(dāng)前日期
主要代碼如下：
procedure TForm1.Button1Click(Sender: TObject);
begin
Label1.Caption := DateTimeToStr(Date());
end;
將日期時(shí)間格式化為指定格式
本例將日期時(shí)間格式化為指定格式主要是應(yīng)用了FormatDateTime函數(shù)。使用該函數(shù)可以將當(dāng)前日期時(shí)間格式化為自定義格式。
將日期時(shí)間格式化為指定格式
主要代碼如下：
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Label1.Caption := DateTimeToStr(now());
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Label2.Caption := FormatDateTime('yyyy年mm月dd日 hh時(shí)nn分ss秒',now());
end;
本站僅提供存儲(chǔ)服務(wù)，所有內(nèi)容均由用戶發(fā)布，如發(fā)現(xiàn)有害或侵權(quán)內(nèi)容，請(qǐng)
點(diǎn)擊舉報(bào)。
