日期问题，输入一个日期和天数返回一个日期(20分)

Y

yongwang518

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-17

• #1

输入日期：'yyyy/mm/dd'
输入天数：'days'
返回:'yyyy/mm/dd'

例子：
日期：'2002/08-01'
天数：'10'
返回：'2002/08/11'

 

Y

yongwang518

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-17

• #2

这个问题应该比较简单，有人会吗？

 

J

jgy_1980

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-17

• #3

转换成日期型直接加10，然后formatdatetime返回不就行了？

 

L

ldaan3

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-17

• #4

前几天写了一个和这个差不多的函数，要的话，说一声。

 

Q

QuickSilver

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-17

• #5

var
rq:string;
begin
shortdateformat:='YYYY/MM/DD';
rq:='2002/08/01';
rq:=StringReplace(rq,'/','-',[rfReplaceAll]);
rq:=datetostr(strtodate(rq)+10);
edit1.text:=StringReplace(rq,'-','/',[rfReplaceAll]);
end;

 

J

jsxjd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-17

• #6

例中的日期格式是下面这样，是不是错了，如果原型是对的，第二次替换就不要了。
'2002/08-01'

 

G

greenwon

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-17

• #7

直接相加不就行了。
返回的日期:=日期＋天数

 

S

sichuan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-17

• #8

edit1.Text:=datetimetostr(now+10);
我测试通过，而且会自动进位，减位，妙不可言

 

W

wywzx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-29

• #9

返回的日期:=日期＋天数
edit1.Text:=datetimetostr(now+10);

 

Y

yongwang518

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-29

• #10

接受答案了.