delphi如何取得:从1970年1月1日0时开始的到当前时间的毫秒数?
来源:学生作业帮 编辑:神马作文网作业帮 分类:综合作业 时间:2024/11/17 17:07:17
delphi如何取得:从1970年1月1日0时开始的到当前时间的毫秒数?
在C#时的代码类似这样,怎么翻译成Delphi的呢
System.DateTime startTime = TimeZone.CurrentTimeZone.ToLocalTime(new System.DateTime(1970,1,1,0,0,0,0));
System.DateTime nowTime = System.DateTime.Now;
long unixTime = (long)(nowTime - startTime).TotalMilliseconds;
MessageBox.Show(unixTime.ToString());
在C#时的代码类似这样,怎么翻译成Delphi的呢
System.DateTime startTime = TimeZone.CurrentTimeZone.ToLocalTime(new System.DateTime(1970,1,1,0,0,0,0));
System.DateTime nowTime = System.DateTime.Now;
long unixTime = (long)(nowTime - startTime).TotalMilliseconds;
MessageBox.Show(unixTime.ToString());
DELPHI里有MilliSecondsBetween这个函数(INT64).可以使用.
该函数就是返回两个日期时间之间的毫秒差.
但是经测试,返回的值可能超界了.
改良了一下.代码如下:
Function getMilliSecond(BigTime,SmallTime :TDateTime):String;
var
a :Longint;
b :String;//毫秒数
begin
a := MinutesBetween(BigTime,SmallTime);//取分钟差
a := a * 60;//取秒差
b := IntToStr(a) + '000';//将秒差结果后缀加上三个零(等于毫秒数)
Result := b;
end;
另外,你可以用StrToDateTime函数将字符串转换成日期时间类型.例如:
StrtoDateTime('1970-01-01 0:00:00');
该函数就是返回两个日期时间之间的毫秒差.
但是经测试,返回的值可能超界了.
改良了一下.代码如下:
Function getMilliSecond(BigTime,SmallTime :TDateTime):String;
var
a :Longint;
b :String;//毫秒数
begin
a := MinutesBetween(BigTime,SmallTime);//取分钟差
a := a * 60;//取秒差
b := IntToStr(a) + '000';//将秒差结果后缀加上三个零(等于毫秒数)
Result := b;
end;
另外,你可以用StrToDateTime函数将字符串转换成日期时间类型.例如:
StrtoDateTime('1970-01-01 0:00:00');
delphi如何取得:从1970年1月1日0时开始的到当前时间的毫秒数?
如何取得从1970年到现在的毫秒数?
C语言 已知一个从1970到现在的毫秒数,如何将这个毫秒转换为具体的日期时间?
Java 如何获得 某一日期对应的毫秒数.例如2008年8月8日下午8点对应的毫秒数?
c语言 从1970年1月1日0点开始,经过n秒后的时间
就当前社会热点{时事要闻}做分析,社会热点的时间范围2013年1月1日到2月20
我国抗日战争是从1937年7月7日开始的,经过8年1个月零九天取得胜利,结束时在哪年哪月哪日
我国抗日战争从1937年7月7日开始,经过8年1个月零9天的英勇抗战取得胜利.抗日战争在哪年哪月那日结束
如何获取今天零点时间的毫秒数
为什么录像时1秒的时间等于30毫秒或25毫秒?
12月31日晚上11点35分火车从A站出发,到B站的时间是1月1日凌晨0时45分,问火车从A站到B站的时间是多少?
非典的具体开始时间 年 月 日 时 分