delphi怎样求出两时间之间相差多少秒？

2001-08-31 03:06:20 3.5k 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

DELPHI日期时间函数 rocedure TForm1.Button1Click(Sender: TObject); begin Memo1.Lines.Add(FormatDateTime('yyyy-mm-dd',StartOfTheMonth(Now))); Memo1.Lines.Add(FormatDateTime('yyyy-mm-dd HH-MM-SS',EndOfTheMonth(Now))); //Memo1.Lines.Add(DateTimeToStr(StartOfTheMonth(Now... 阅读详情

...全文

GNSS气象学入门：从ZTD到PWV的水汽反演全流程解析（含精度评估）本文详细解析了GNSS气象学中从ZTD到PWV的水汽反演全流程，包括基础概念、反演原理、数据处理步骤及精度评估方法。通过PRIDE软件和MATLAB代码示例，展示了如何高效提取ZTD数据并结合ERA5气象数据进行PWV计算，为气象研究和业务应用提供了实用指南。阅读详情

daydreamer77

Delphi 5,944 成员 262,941 内容

+ 关注 + 加入社区

切换为时间正序

dyny 2001-09-16

打赏
举报

windfantasy 2001-09-04

打赏
举报

不是都说D6不好嘛，我还是用D5吧，太平一点。别没事找事了。

dq 2001-09-03

打赏
举报

呵呵，难道你们用的不是D6？D6下是这个文件——
C:\Program Files\Borland\Delphi6\Source\Rtl\Common\DateUtils.pas
如果你们的Delphi版本里确实没有这个东东的话，就用我的方法吧，和它的源码里的实现本质上是一致的：）

daydreamer77 2001-09-03

打赏
举报

D6免提，我用的是D5.5

windfantasy 2001-09-02

打赏
举报

那上面2位是怎么用的呀？还连连称好呢！
我就是找不到有这个单元，难道他们用的是D6不成？

tikkypeng 2001-09-02

打赏
举报

不知道那个东西是那里的～～呵呵～～

windfantasy 2001-09-02

打赏
举报

怎么没人回答我？
OysterLQD(沉默者)、dq(独轻)　，都不在吗？

windfantasy 2001-09-02

打赏
举报

DateUtils在哪里的？
我怎么找不到啊？不能用啊！

dq 2001-09-02

打赏
举报

漂亮！OysterLQD(沉默者)！
又学了一招，原来从来没有发现有DateUtils这么个东东！

没必要再讨论下去了，把分给他吧：）

qiandeng 2001-09-01

打赏
举报

gettickcout

OysterLQD 2001-09-01

打赏
举报

Unit
DateUtils

function SecondsBetween(const ANow, AThen: TDateTime): Int64;

rainking 2001-09-01

打赏
举报

Gettickcount是得到当前系统时间是多少微秒。
我一般这样写：
var
T1,T2:Double;
begin
T1:=GetTickCout;
do something;
t2:=Gettickcount;
lable1.caption:=Floattostr((t2-t1)/1000)+'秒';
end;

windindance 2001-09-01

打赏
举报

最简单的方法：
var t1,t2:TDateTime;
n :integer;
n := integer(double(t2-t1) * 86400);

glink 2001-09-01

打赏
举报

同意dq(独轻)　

DD88 2001-08-31

打赏
举报

关注

yymmme 2001-08-31

打赏
举报

但是用GetTickCount有可能出现异常，好像是吧？到达一定的值后，它好像是要重新计数的。

wwwwwwww 2001-08-31

打赏
举报

如果计算含日期的时间差，用Gettickcount就可以了！

ecgnis 2001-08-31

打赏
举报

dq 2001-08-31

打赏
举报

GetTickCount在计算任意两个时间的差的时候能有什么用？先不用管它（想了解用法查SDK）。

TDateTime是以天为单位的Double类型值，所以可以直接进行加减乘除运算，最后乖以24*3600就得到秒了。例如——

var
T1, T2: TDateTime;
D: Double;
begin
T1 := StrToDateTime('2001-8-31 16:00:00');
T2 := StrToDateTime('2001-9-1 16:00:00');
D := (T2 - T1) * 24 * 3600;
ShowMessage(FloatToStr(D));
end;

daydreamer77 2001-08-31

打赏
举报

不行，此方法遇到跨日时便会出错，如果要连年月日也计算实在太麻烦了。
GetTickCount是什么？怎样用？

加载更多回复（3）

delphi怎样求出两时间之间相差多少秒？

相关推荐