delphi獲得系統(tǒng)當(dāng)前時(shí)間日期和格式化時(shí)間

《delphi獲得系統(tǒng)當(dāng)前時(shí)間日期和格式化時(shí)間》由會(huì)員上傳分享，免費(fèi)在線閱讀，更多相關(guān)內(nèi)容在行業(yè)資料-天天文庫。

1、獲得系統(tǒng)當(dāng)前時(shí)間????本例中主要應(yīng)用了FormatDateTime函數(shù)，此函數(shù)主要用于將日期時(shí)間格式化為指定的字符串。利用該函數(shù)可以輸出許多形式的時(shí)間格式。????程序運(yùn)行結(jié)果如圖6.1所示主要代碼如下：????procedureTForm1.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)

2、簽上。????程序運(yùn)行結(jié)果如圖6.2所示。圖6.2??獲得系統(tǒng)當(dāng)前日期????主要代碼如下：????procedureTForm1.Button1Click(Sender:TObject);????begin????Label1.Caption:=DateTimeToStr(Date());????end;????將日期時(shí)間格式化為指定格式????本例將日期時(shí)間格式化為指定格式主要是應(yīng)用了FormatDateTime函數(shù)。使用該函數(shù)可以將當(dāng)前日期時(shí)間格式化為自定義格式。????程序運(yùn)行結(jié)果如圖6.3所示。圖6.3??將日期時(shí)間格式化為指定格式????主要代碼如下：???

3、?procedureTForm1.Timer1Timer(Sender:TObject);????begin????Label1.Caption:=DateTimeToStr(now());????end;????procedureTForm1.Button1Click(Sender:TObject);????begin????Label2.Caption:=FormatDateTime('yyyy年mm月dd日hh時(shí)nn分ss秒',now());????end;