本文整理自网络,侵删。
lbl_Time.Caption := FormatDateTime('HH:NN:SS',now); lbl_Week.Caption := FormatDateTime('ddd',Now); if Pos('星期',lbl_Week.Caption)=0 then lbl_Week.Caption := '星期'+lbl_Week.Caption; lbl_Date.Caption := FormatDateTime('yyyy年mm月dd日 ddd',Now);
另外一个:var
Date,XQ,Time:string;
begin
Date := FormatDateTime('yyyy年mm月dd日',now);
case DayOfWeek(Now) - 1 of
1: XQ := '星期一';
2: XQ := '星期二';
3: XQ := '星期三';
4: XQ := '星期四';
5: XQ := '星期五';
6: XQ := '星期六';
7: XQ := '星期日';
end;
time := FormatDateTime('hh:mm:ss',Now);
lbdt.Caption := Date;
lbXQ.Caption := XQ;
lbTime.Caption := Time;
相关阅读 >>
Delphi xe5 for android memo控件 无法读取txt文件
Delphi ��b以 listbox 的item �� hint
更多相关阅读请进入《Delphi》频道 >>