请教高手:DELPHI如何进行这样的日期运算?(100分)

I

idragonet4

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-05-16

• #1

请教高手ELPHI如何进行这样的日期运算?

2005-5-25 3:35:45 减 53:40:25 得出: 2005年5月22日 21:55:20

先谢谢了!

 

W

wrl_001

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-05-16

• #2

FormatDateTime('YYYY年M月DD日 HH:NN:SS',(strtodatetime(str1)-strtotime(str2)))
对于2005年5月25日 3:35:45需要再写一个函数转成标准的日期格式:
2005-5-25 3:35:45

 

U

uiit

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-05-16

• #3

用DateTime格式直接相减
var
st: TDateTime;
begin
st := StrToDateTime('5:40:25');
Button1.Caption := DateTimeToStr(Now - st);
end

 

I

idragonet4

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-05-16

• #4

但如果是:
2005年5月1日 3:35:45 减 155:40:25 ?
如何进行处理?

 

U

uiit

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-05-16

• #5

1、2005年5月1日 3:35:45 转化为2005-5-25 3:35:45这种形式
用copy(), pos()俩函数
2、好像Delphi有个设定TDateTime格式的，设定成为你这样的格式
就是个分隔符设定，在SysUtils.我记不太清了，不知道能不能分别设定年，月，日为分隔符
如果不行，只有第一种了

 

网

网中戏

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-05-16

• #6

select DATEDIFF(minute,'2005年5月25日 3:35:45 ', '2005年5月25日 5:40:25 ')

 

I

idragonet4

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-05-16

• #7

to 网中戏,:

不是SQL中哦.

 

I

idragonet4

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-05-16

• #8

ok 自己写个函数 搞定。