如何定义日期变量?(50分)

G

gougou

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-15

• #1

有一循环需要日期变量,如何定义日期变量?
如2002年1月1日至2002年3月3日,步长为1天

 

老

老人家

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-15

• #2

Date1: TDate;
Date1:=Date1 + 1;

 

F

fyyx2002

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-15

• #3

同意 老人家, 再举个例子:
var date1,date2,dateTmp:tdate;
begin
date1:=strToDate('2002-01-01');
date2:=strToDate('2002-03-03');
edit1.text:=datetostr(date2);
datetmp:=date1;
while dateTmp<>date2+1 do
begin
memo1.Lines.Add(dateToStr(dateTmp));
datetmp:=dateTmp+1;
end;
//给分吧!!

 

T

tuorx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-15

• #4

DELPHI的日期型变量实际可以当浮点型来处理，如1899-12-30，变量中是0，好果加上时
分秒，则此值中就有了小数位，整数部分依次住后推，如1899-12-31就是1，……小数位
怎么变化不太清楚，但你可用FORMATDATETIM函数来计算两个时间的差，如：
FORMATDATETIME('yyyy-mm-dd hh:nn:ss',Dt1-Dt2)。
可否明白？

 

T

tingjie

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-15

• #5

在Delphi中有一个名字为IncDay的函数定义如下:
function IncDay(const AValue: TDateTime; const ANumberOfDays: Integer = 1): TDateTime;
构造一个While循环在其中调用IncDay函数就行了。

 

C

chinargb

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-15

• #6

up

 

G

gougou

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-15

• #7

谢谢!!