Delphi 時間的比較

時間比較函式

comparedatetime() //比較兩個時間是否相同

comparedate() //比較兩個時間的日期是否相同

comparetime() //比較兩個時間的時分秒是否相同

samedatetime() //比較兩個時間是否相同

samedate() //比較兩個時間的日期部分是否相同

sametime() //比較兩個時間的時分秒是否相同

前3個函式 的返回值是-1,0,1

前者 < 後者 返回 -1

前者 = 後者 返回 0

前者 > 後者 返回 1

後3個函式的返回值是true,false

program project1;

uses
sysutils,dateutils;
var date1,date2:tdatetime;
r1,r2,r3:integer;
b1,b2,b3:boolean;
begin
date1:
=strtodatetime
('2019-08-08 10:01:00');
date2:
=strtodatetime
('2019-08-08 10:00:00');
r1:=comparedatetime
(date1,date2)
;//1
r2:=comparedate
(date1,date2)
;//0
r3:=comparetime
(date1,date2)
;//1
b1:=samedatetime
(date1,date2)
;//false
b2:=samedate
(date1,date2)
;//true
b3:=sametime
(date1,date2)
;//false
date1:
=strtodatetime
('2019-08-08 10:01:00');
date2:
=strtodatetime
('2019-08-08 10:02:00');
r1:=comparedatetime
(date1,date2)
;//-1
r2:=comparedate
(date1,date2)
;//0
r3:=comparetime
(date1,date2)
;//-1
b1:=samedatetime
(date1,date2)
;//false
b2:=samedate
(date1,date2)
;//true
b3:=sametime
(date1,date2)
;//false
date1:
=strtodatetime
('2019-09-08 10:01:00');
date2:
=strtodatetime
('2019-08-08 10:01:00');
r1:=comparedatetime
(date1,date2)
;//1
r2:=comparedate
(date1,date2)
;//1
r3:=comparetime
(date1,date2)
;//0
b1:=samedatetime
(date1,date2)
;//false
b2:=samedate
(date1,date2)
;//false
b3:=sametime
(date1,date2)
;//true
end.

delphi 指令碼引擎比較

tms scripter 支援pascal和vbscript兩種語法。優點是文件齊全 例子齊全，指令碼可直接支援dll，官方還提供了豐富的ide debug工具 單元匯出函式工具等，缺點是編譯執行較慢。for 空迴圈1000萬次，需要10秒鐘以上。tms scripter是商業共享軟體。fastsc...

時間的比較

當想要比較兩個時間的大小的時候，通過一下方式 例 問題 讓使用者輸入兩個時間，然後對這兩個時間進行比較 解答 實現步驟 scanner input new scanner system.in system.out.println 請輸入乙個時間 yyyy mm dd string date1 inp...

Delphi多層開發方案比較

方案 midas dcom com asta remoteobject net 提供者 borland 微軟 微軟 http www.remobjects.com 微軟 核心技術 comcom com asta自己的，類同midas，但不依賴於com remobjects自己的webservice技...