IsNoonNow Function
Returns True if the current Time represents Noon, 12:00pm.

Unit
QESBPCSDateTime

Declaration
Function IsNoonNow: Boolean;

Category
Date/Time Comparison

Implementation

function IsNoonNow: Boolean;
begin
     Result := Frac (Time) = 0.5;
End;


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