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



Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch

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

Далее: Определяем номер последнего дня в месяце »»