---
url: >-
  /statelake/scripting-reference/functions-and-procedures/datetime-functions/sametime.md
---

# SameTime

**SameTime** compares two **TDateTime** values **A** and **B**, to test whether they represent the same time of day (hour, minute, second, and millisecond), ignoring the date portion.

**SameTime** returns **True** if the two specified values occur on the same hour, minute, second, and millisecond, and returns **False** if they are not the same.

It is possible to create two **TDateTime** values that differ numerically when viewed as floating point types, but which represent the same hour, minute, second, and millisecond.

**SameTime** allows applications to determine when two **TDateTime** values represent the same time, even when the fractional parts of the values differ.

**Declaration**: function SameTime(const A, B: TDateTime): Boolean;

A simple example showing a passed test and a failed test follows.

```pascal
procedure ScriptEvent (var Value : variant);
var
  DateTime1, DateTime2 : TDateTime;
  Counter : integer;
begin
 //These will be the same
  DateTime1 := Time;
  DateTime2 := Time;
 If SameTime(DateTime1, DateTime2) then
    LogInfo('They are the same time!')
 else
    LogInfo('They are NOT the same time!');

  Counter := 1;
 while Counter < 500 do
 begin
    Counter := Counter + 1;
 end;

 //These will not be the same
  DateTime2 := Time;
 If SameTime(DateTime1, DateTime2) then
    LogInfo('They are the same time!')
 else
    LogInfo('They are NOT the same time!');

end;
```