procedure TForm1.FormCreate(Sender: TObject);
var
mydate:tdatetime;
dayno:integer;
begin
mydate:=now();
dayno:=dayoftheweek(mydate);
showmessage('今天是星期'+inttostr(dayno));
end;end.
为什么dayoftheweek()函数总是报错,请前辈指教,谢谢.
var
mydate:tdatetime;
dayno:integer;
begin
mydate:=now();
dayno:=dayoftheweek(mydate);
showmessage('今天是星期'+inttostr(dayno));
end;end.
为什么dayoftheweek()函数总是报错,请前辈指教,谢谢.
你将得到帮助