Algorithm Math Delphi

  1. Home
  2. Delphi
  3. Algorithm Math
  4. How to is a Time AM or PM
Title: How to is a Time AM or PM
procedure AM_or_PM;
begin
if Frac(Time) = 0 then
ShowMessage('AM')
else
ShowMessage('PM');
end;