Перевод даты в строку вида ' 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; |