Tips (1541)
procedure AM_or_PM; begin if Frac(Time) = 0 then ShowMessage('AM') else ShowMessage('PM'); end;
Rate this tip: