The IsPM function returns True if the time portion of the given date occurs on or after 12:00 noon and before 12:00 midnight.

There is no corresponding IsAM function.

Declaration: function IsPM(const AValue: TDateTime): Boolean;

Example

procedure OnMapEvent(var Value:Variant);
var
vArvo : boolean;
begin
vArvo := IsPM(Now); //True (it's afternoon) or False (it's morning)
if vArvo = True then
loginfo('It is afternoon.')
else
LogInfo('It is morning.');
LogInfo('');
end;