IsPM

Declaration

function IsPM(const AValue: TDateTime): Boolean;

Example

procedure OnMapEvent(var Value:Variant);
begin
  Value := IsPM(Now); //the name of the file that is the source of the map
end;

Description

Returns true if the time portion of the given date occurs on or after 12:00 noon and before 12:00 midnight..