关于日期格式转换和递增的问题(50分)

L

ljzboy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-29

• #1

请教一个关于日期格式转换的问题，现在我有一个代表日期的字符串。比如说：29-07-2002，
我想转换成2002-07-29的格式，然后自动递增7天，分别得出2002-07-30，2002-07-31，2002-08-01。。。
纯粹是前面的格式转换我会做，但是不知道怎样可以递增，是不是有什么函数可以做到？请给出例程。
谢谢！！

 

C

cb422

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-29

• #2

Delphi中有相关的函数，你查查帮助

 

H

HunterTeam

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-29

• #3

不必用函数，直接用Date类型的加7即可，因为日期时间型的数据在内存中也是以实数的
形式保存的。例子如下：
var B_date:TDate;
begin
B_Date:=StrToDate('2002-7-29');
B_Date:=B_date+7;
showmessage(formatdatetime('yyyy-mm-dd',B_date)); //你说的格式转换是用这个函数做吗？
end;

对不起，没看清楚，你说的是要逐日递增，但上面的例子你能看明白也就行了。

 

C

china_delphi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-29

• #4

如果你是Oracle,则为:SysDate+7直接用就可以,SQL Server不清楚行不行.

 

C

chocolate

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-29

• #5

delphi直接＋1
sql里，datediff

 

J

jsn

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-29

• #6

for i:=1 to 7 do
resultdate:=strtodate(cstring)+1

加小时的话：+1/24

 

T

twos

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-29

• #7

IncDay函数可以增加一天
IncAMonth。。。。
具体见帮助

 

Y

yypeng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-29

• #8

同意jsn

var B_date:TDate;
begin
B_Date:=StrToDate('2002-7-29');
for i:=1 to 7 do
begin
b_date:=b_date+1;
showmessage(formatdatetime('yyyy-mm-dd',b_date));
end;
end;

 

L

ljzboy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-29

• #9

接受答案了。谢谢各位。