Определить сейчас до или после полудня

Previous  Top  Next

    
 

 

Code:

procedure AM_or_PM;

begin

  if Frac(Time) = 0 then

    ShowMessage('AM')

  else

    ShowMessage('PM');

end;

 

©Drkb::01648

Взято с сайта: http://www.swissdelphicenter.ch