level 1
51bcorg
楼主
Unix 时间格式如:1123495443,如何换算成可以识别的年月日分秒格式呢以前写了vb与Unix时间格式的互换(http://www.51bc.org.cn/VB/UnixShiJianYuVBShiJianXiangHuZhuanHuan/),这次把delphi也写出来{Unix时间到Delphi时间类型转换}function UTimeToDatetime(ctime: cardinal): TDatetime;varv: double;begin try v := double(encodedate(1970,1,1))+(ctime+28800) / 86400;////86400 = 60 * 60 * 24(一天中的秒数) result := TDatetime(v); except result := strtodatetime('2000-01-01 00:00:00'); end;end;{Delphi时间到Unix时间类型转换}Function TimeToUTime(dTime:TDatetime):real;var dblDateTime : TDateTime;begin try result := (dTime - double(encodedate(1970,1,1))) * 86400 - 28800; except result := 946656000; end;End;
2008年05月23日 03点05分
1