Определить сейчас до или после полудня
Материал из DRKB
Определить сейчас до или после полудня[править | править код]
procedure AM_or_PM;
begin
if Frac(Time) = 0 then
ShowMessage('AM')
else
ShowMessage('PM');
end;
Source: Взято с сайта: http://www.swissdelphicenter.ch
ID: 01648