指定日期转换成秒数问题(50分)

S

simonlyr

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-03-18

• #1

请问：如何将指定日期格式(YYYY-MM-DD)的日期转换成1970-01-01 00:00:00为起点计数的秒数；相反，如何把秒数转换成1970-01-01 00:00:00为起计数的日期格式(YYYY-MM-DD)？？
请各位高手出招，急！！！！

 

S

simonlyr

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-03-18

• #2

怎么没有人回答呀？？

 

C

ChrisMao

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-03-18

• #3

在DateUtils单元中有相应的函数可以使用：
1.将指定日期格式(YYYY-MM-DD)的日期转换成1970-01-01 00:00:00为起点计数的秒数
SecondSpan(Today, StrToDateTime('1970-1-1 00:00:00'));
2.把秒数转换成1970-01-01 00:00:00为起计数的日期格式(YYYY-MM-DD)
IncSecond(StrToDateTime('1970-1-1 00:00:00'), 秒数)

 

B

ball_cao

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-03-18

• #4

日期是浮点数 直接相减得到的就是天数
你可以用（日期-1970-01-01 00:00:00）*24*60*60得到

 

F

feiyang1110

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-03-19

• #5

日期是浮点数 下面的代码你试一下 应该就明白了
var
d:Tdatetime;
begin
d:=now;
Edit1.Text:=datetimetostr(d);
Edit2.Text:=datetimetostr(d+1);
Edit3.Text:=datetimetostr(d+1/24);
Edit4.Text:=datetimetostr(d+1/(24*60));
end;