[Overview][Constants][Procedures and functions] |
Check whether two TDateTimevalues have the same time part.
Source position: dateutil.inc line 356
function SameTime( |
const A: TDateTime; |
const B: TDateTime |
):Boolean; |
A |
|
First DateTime value |
B |
|
Second DateTime value |
Trueif Aand Bhave the same time part, Falseif not.
SameTimecompares the time parts of two timestamps Aand Band returns Trueif they are equal, Falseif they are not.
The function simply checks whether CompareTimereturns zero.
|
Compare 2 dates, taking into account the time of day |
|
|
Compare 2 dates, disregarding the time of day |
|
|
Compares two times of the day, disregarding the date part. |
|
|
Check whether two TDateTimevalues have the same date and time parts. |
|
|
Check whether two TDateTimevalues have the same date part. |
Program Example102; { This program demonstrates the SameTime function } Uses SysUtils,DateUtils; Const Fmt = 'dddd dd mmmm yyyy hh:nn:ss.zzz'; Procedure Test(D1,D2 : TDateTime); begin Write(FormatDateTime(Fmt,D1),' is the same time as '); Writeln(FormatDateTime(Fmt,D2),' : ',SameTime(D1,D2)); end; Var D,N : TDateTime; Begin D:=Today; N:=Now; Test(D,D); Test(N,N); Test(N+1,N); Test(N-1,N); Test(N+OneSecond,N); Test(N-OneSecond,N); End.