Программы   Загрузка Партнерство   О компании Контакты  
 
                    
  Карта Сайта   
   





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

Автор: http://www.swissdelphicenter.ch

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




Программы  |  Загрузка  |  Партнерство  |  О компании  |  Контакты

Copyright © LSD Software 2006 - 2011