delphi中的日期时间转换问题(100分)

  • 主题发起人 大青虫2002
  • 开始时间

大青虫2002

Unregistered / Unconfirmed
GUEST, unregistred user!
我想将日期时间型转换成一个数值型怎么做?
 
日期时间型实际就是数值,整数部分是日期,小数部分是时间
 
pt_email说得对,日期型其实就是数值,它是相对与1899-12-30 12:00am来说的,如果
为1,它对应的就是1900-1-1 12:00am,为-1对应的就是1899-12-29 12:00am;整数部分
代表天数,小数部分代表小时、分和秒,具体参见帮助!
 
同意楼上的
 
正如楼上几位所说,并且,所有适用于实数的操作也都适用于日期时间型数据,比如可以用
INT函数对其进行取整,取整后的数据就只包括日期部分了。
 
DecodeDate 函数 将日期格式分解为年月日
DecodeTime 函数 将时间格式分解为时、分、秒、毫秒

EncodeDate 函数 将年月日合成为日期格式
EncodeTime 函数 将时、分、秒、毫秒合成为时间格式

詳情看幫助
 
[blue]0 12/30/1899 12:00 am
2.75 1/1/1900 6:00 pm
-1.25 12/29/1899 6:00 am
35065 1/1/1996 12:00 am[/blue]
 
日期时间型本来就是 double

TDateTime = type Double;

procedure TForm1.Button1Click(Sender: TObject);
var
d:TDatetime;
begin
d:=now;
showmessage(floattostr(d));
d:=now-1.0; //昨天
showmessage(floattostr(d));
end;
 
同意楼上意见
 
DecodeDate(Date,year.month,day)
使用这个函数后year month day 就分别是年月日了,数字型的/
 
顶部