16,742
社区成员
发帖
与我相关
我的任务
分享本人是一个编程初学者 请各位前辈帮助一下 程序运行有错误 请进来看一下 谢谢
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()函数总是报错,请前辈指教,谢谢.
...全文
请发表友善的回复…
发表回复
delphi6060 2006-02-10
- 打赏
- 举报
谢谢前辈及时的帮助,非常感谢.
Ciny_Cou 2006-02-10
- 打赏
- 举报
将光标移到dayoftheweek,按下F1.
你将得到帮助
你将得到帮助
Ciny_Cou 2006-02-10
- 打赏
- 举报
在uses下
添加DateUtils
添加DateUtils
