Ответ: 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+'г.');
|
|