人 人 Unregistered / Unconfirmed GUEST, unregistred user! 2009-12-08 #1 比如说我想设置一个日期变量day day=20090101 //给变量day 赋值为2009年1月31号 edit1.txt:=day+1//想得到它下一天的日期值并且把它显示在edit1上应该怎样调用日期函数写语句还有想问一下有没有(某一天返回星期几的函数)
比如说我想设置一个日期变量day day=20090101 //给变量day 赋值为2009年1月31号 edit1.txt:=day+1//想得到它下一天的日期值并且把它显示在edit1上应该怎样调用日期函数写语句还有想问一下有没有(某一天返回星期几的函数)
D datatime Unregistered / Unconfirmed GUEST, unregistred user! 2009-12-08 #2 varday:TDate;beginday:=20090101;Edit1.Text:=Datetostr(day+1);end;星期function DayOfWeek(Date: TDateTime): Integer;
varday:TDate;beginday:=20090101;Edit1.Text:=Datetostr(day+1);end;星期function DayOfWeek(Date: TDateTime): Integer;
人 人 Unregistered / Unconfirmed GUEST, unregistred user! 2009-12-09 #3 好象不对day=0 返回的值是 1899-12-31day=20090101 返回的值是 56904-10-29
H hs-kill Unregistered / Unconfirmed GUEST, unregistred user! 2009-12-09 #4 我靠，TDate类型能直接给20090101 ?? 太神奇了.....var d:TDate;begin d:=EncodeDate(2009,01,31); edit1.Text:=datetostr(d+1);end;
我靠，TDate类型能直接给20090101 ?? 太神奇了.....var d:TDate;begin d:=EncodeDate(2009,01,31); edit1.Text:=datetostr(d+1);end;
T tandxu Unregistered / Unconfirmed GUEST, unregistred user! 2009-12-09 #5 TDate类型能直接给20090101 真是太神奇了var d: TDate;begin d := StrToDate('2009-11-11'); edit1.Text := datetostr(d+1);//d: TDate实际上是个浮点数，数值是当前时间与1899年12月30日 0时0分的差（天数）end;
TDate类型能直接给20090101 真是太神奇了var d: TDate;begin d := StrToDate('2009-11-11'); edit1.Text := datetostr(d+1);//d: TDate实际上是个浮点数，数值是当前时间与1899年12月30日 0时0分的差（天数）end;
