IsPM

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;