[求助]怎么把日期转换成星期后付到RzStatusPane2控键

dzy 发布于 2006-06-14 15:17， 2136 次点击

function dayofweek(date: tdatetime): integer;//把日期转成星期
RzStatusPane2//要求是要STRING的，怎么把上面的integer付到RzStatusPane2；

11 回复

dzy2006-06-14 15:30

procedure TForm1.FormCreate(Sender: TObject);
var
mytime:TDateTime;
begin
mytime:=NOW;
.......
......
......
self.RzStatusPane2.Caption:=dayofweek(mytime);//错误提示：Incompatible types: 'String' and 'Word'
是什么原因？？
.......
.......
end
上面的错误要在没改？？

xu20002006-06-14 16:06

为什么不用inttostr呢?

dzy2006-06-14 16:11

self.RzStatusPane2.Caption:=IntToStr(dayofweek(mytime));
哈哈我也刚发现
不过也谢谢楼上的（可以用的，我试完才来发的）
各位有兴趣的试试！~

[此贴子已经被作者于2006-6-14 16:12:42编辑过]

dzy2006-06-14 16:14

晕死！~
发现得到的星期不对~~
还的求助！~

dzy2006-06-14 16:21

xu2000
问下：这个要怎么该？？
虽然：
self.RzStatusPane2.Caption:=IntToStr(dayofweek(mytime)-1);
好象也可以（我不打包票，因为我在没-1的情况得到的星期比实际多一天）
有什么好办法来解决

xu20002006-06-14 16:29

怎么不对了？

xu20002006-06-14 16:30

是这样的，在delphi星期日是第一天。
你是不是这方面没弄明白。

xu20002006-06-14 16:31

即，星期一得到的应该是2。
我觉得你写的代码应该没问题。

#10

dzy2006-06-14 16:36

是啊
我希望的是星期日是0
星期一是1
不过我现在就改成下面的方式：
procedure TForm1.FormCreate(Sender: TObject);
var
mytime,a:TDateTime;
begin
mytime:=Now;
if dayofweek(mytime)=1 then
begin
self.RzStatusPane2.Caption:='今天星期日';
end
else
self.RzStatusPane2.Caption:='今天星期'+IntToStr(dayofweek(mytime)-1);
end;
end.

[此贴子已经被作者于2006-6-14 16:39:16编辑过]

#11

xu20002006-06-14 16:53

现在ok了吗？

#12

dzy2006-06-14 17:30

是的
OK了
谢了