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

Материал из DRKB

Определить сейчас до или после полудня[править | править код]

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


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