W winvxd Unregistered / Unconfirmed GUEST, unregistred user! 2004-03-01 #1 请问在delphi里如何得到从公元1970年1月1日以来过去的毫秒数?
W Writer Unregistered / Unconfirmed GUEST, unregistred user! 2004-03-01 #2 这个问题不难吧,不知下面的算法对不对<br>1、计算出有多少个润年。<br>2、之后计算出整年的毫秒数。<br>3、计算出不足一年的毫秒数(判断是否润年,多少个30日的和31日的月,计算出有多少天)<br>4、将2、3的结果想加就行。<br><br>菜鸟一名,有错请指教<br>
这个问题不难吧,不知下面的算法对不对<br>1、计算出有多少个润年。<br>2、之后计算出整年的毫秒数。<br>3、计算出不足一年的毫秒数(判断是否润年,多少个30日的和31日的月,计算出有多少天)<br>4、将2、3的结果想加就行。<br><br>菜鸟一名,有错请指教<br>
J jackchin Unregistered / Unconfirmed GUEST, unregistred user! 2004-03-01 #5 var<br> D: Double;<br> MS: Int64;<br> begin<br> D := Now - Encodedate(1970, 1, 1);<br> MS := Trunc(D * 24 * 60 * 60 * 1000)<br> end;<br>//MS 就是1970-1-1零时至今的毫秒数<br><br>我提交时是 1,078,129,629,764
var<br> D: Double;<br> MS: Int64;<br> begin<br> D := Now - Encodedate(1970, 1, 1);<br> MS := Trunc(D * 24 * 60 * 60 * 1000)<br> end;<br>//MS 就是1970-1-1零时至今的毫秒数<br><br>我提交时是 1,078,129,629,764
B blyb Unregistered / Unconfirmed GUEST, unregistred user! 2004-03-01 #6 用当前的日期减去1970年1月1日得出的天数化成毫秒,再加上现在时间化成的毫秒数。
Y yostgxf Unregistered / Unconfirmed GUEST, unregistred user! 2004-03-01 #7 使用函数<br>function MilliSecondsBetween(const ANow, AThen: TDateTime): Int64;<br><br>例子:<br>uses Dateutils;<br>procedure TForm1.Button1Click(Sender: TObject);<br>var<br> OldTime:TdateTime;<br> i:int64;<br>begin<br> OldTime:= StrToDateTime('1970-1-1 00:00:00');<br> i:=MilliSecondsBetween(Now, OldTime);<br>end;<br><br>
使用函数<br>function MilliSecondsBetween(const ANow, AThen: TDateTime): Int64;<br><br>例子:<br>uses Dateutils;<br>procedure TForm1.Button1Click(Sender: TObject);<br>var<br> OldTime:TdateTime;<br> i:int64;<br>begin<br> OldTime:= StrToDateTime('1970-1-1 00:00:00');<br> i:=MilliSecondsBetween(Now, OldTime);<br>end;<br><br>
A apw Unregistered / Unconfirmed GUEST, unregistred user! 2004-03-01 #8 procedure TForm1.Button1Click(Sender: TObject);<br>var<br> n: Extended;<br>begin<br> n := (Now - EncodeDate(1970, 1, 1)) * 24 * 3600 * 1000;<br> showMessage(FloatToStr);<br>end;
procedure TForm1.Button1Click(Sender: TObject);<br>var<br> n: Extended;<br>begin<br> n := (Now - EncodeDate(1970, 1, 1)) * 24 * 3600 * 1000;<br> showMessage(FloatToStr);<br>end;