Hosted by uCoz
Перевод даты в строку вида ' 00 месяц 0000 г '.
   
       stringArMonthR[],RusDate,MonthName
	   integer   MonthId
	   ArMonthR[1] = 'января'
       ArMonthR[2] = 'февраля'
       ArMonthR[3] = 'марта'
       ArMonthR[4] = 'апреля'
       ArMonthR[5] = 'мая'
       ArMonthR[6] = 'июня'
       ArMonthR[7] = 'июля'
       ArMonthR[8] = 'августа'
       ArMonthR[9] = 'сентября'
       ArMonthR[10] = 'октября'
       ArMonthR[11] = 'ноября'
       ArMonthR[12] = 'декабря'
       MonthId =dec(string(an_data,'mm'))
       MonthName=ArMonthR[MonthId]
       RusDate=string(an_data,'dd')+' '+ MonthName + 
         &' ' + string(an_data, 'YYYY')+' г.'
       Return RusDate;