Показать сообщение отдельно
Старый 22.07.2013, 16:24   #6
Reizel
Задрот
 
Аватар для Reizel
 
Регистрация: 24.07.2009
Адрес: Ивановская область, г. Кинешма
Сообщений: 1,574
Написано 407 полезных сообщений
(для 863 пользователей)
Ответ: Windows XS + Исходник !

ёптвую...
den:=getDay(time);

mes:=getMonth(time)+1;

god:=getYear(time);

if mes =1 then mesc:='января';

if mes =2 then mesc:='февраля';

if mes =3 then mesc:='марта';

if mes =4 then mesc:='апреля';

if mes =5 then mesc:='мая';

if mes =6 then mesc:='июня';

if mes =7 then mesc:='июля';

if mes =8 then mesc:='августа';

if mes =9 then mesc:='сентбря';

if mes =10 then mesc:='октября';

if mes =11 then mesc:='ноября';

if mes =12 then mesc:='декабря';

date:=(''+den+' '+mesc+' '+god+'г.');
(Offline)
 
Ответить с цитированием
Сообщение было полезно следующим пользователям:
Кирпи4 (22.07.2013)