IsAM Function
Returns True if the Time portion is a AM value.

Unit
QESBPCSDateTime

Declaration
Function IsAM(const DT: TDateTime): Boolean;

Parameters
DT Time to process.

Category
Date/Time Comparison

Implementation

function IsAM (const DT: TDateTime): Boolean;
begin
     Result := Frac (DT) < 0.5
End;


HTML generated by Time2HELP
http://www.time2help.com