procedure TForm1.FormCreate(Sender: TObject); var s:string; begin s:=DateTimeToStr(HourOf(Now)); ShowMessage(s); end;================ 之前我已经实验过了,得出的是错误的,是1900-12-30
label1.Caption:=FormatDateTime('HH',Time);
showmessage(FormatDateTime('hh',now()));
procedure TForm1.FormCreate(Sender: TObject); var s:string; begin s:=IntToStr(HourOf(Now)); ShowMessage(s); end;
Uses
DateUtils_____________________________________________________________________暮春三月,羊欢草长,天寒地冻,问谁饲狼?人心怜羊,狼心独怆,天心难测,世情如
霜……
var s:string;
begin
s:=DateTimeToStr(HourOf(Now));
ShowMessage(s);
end;================
之前我已经实验过了,得出的是错误的,是1900-12-30
var s:string;
begin
s:=IntToStr(HourOf(Now));
ShowMessage(s);
end;