...herausfinden, ob eine Zeit AM oder PM ist?

Autor: progtecnic

Kategorie: Mathematik

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

printed from
www.swissdelphicenter.ch
developers knowledge base