...is a Time AM or PM?

Author: progtecnic

Category: Math

procedure AM_or_PM;
begin
  if Frac(Time) = 0 then
    ShowMessage('AM')
  else
    ShowMessage('PM');
end;

printed from
www.swissdelphicenter.ch
developers knowledge base