Code:
procedure AM_or_PM;
begin
if Frac(Time) = 0 then
ShowMessage('AM')
else
ShowMessage('PM');
end;
Имя (обязательное)
E-Mail (обязательное)
Сайт (обязательное)
Тема (обязательное)
Подписаться на уведомления о новых комментариях
Обновить
Просьба писать ваши замечания, наблюдения и все остальное,
что поможет улучшить предоставляемую информацию на этом сайте.
ВСЕ КОММЕНТАРИИ МОДЕРИРУЮТСЯ ВРУЧНУЮ, ТАК ЧТО СПАМИТЬ БЕСПОЛЕЗНО!