вычисление дат

Ответ от Грозный Ламер[гуру]
Если нужен только автоматический перевод 12.04.2007 во второй четверг апреля, то: ------------- cut ------------ДАТА = "12.04.2007";ЧИСЛО = день_месяца(ДАТА);Д = день_недели(ДАТА);М = месяц(ДАТА);ДЕНЬ = ["понедельник","вторник","среда"...думаю понятно..."воскресенье"];ИМЯ_МЕСЯЦА = ["января","февраля","марта"...тоже понятно..."декабря"];МУЖСКОЙ = ["первый","второй","третий","четвёртый","пятый"];ЖЕНСКИЙ = ["первая","вторая","третья","четвёртая","пятая"];СРЕДНИЙ = ["первое","второе","третье","четвёртое","пятое"];РОД = СРЕДНИЙ;если ((Д = 1) или (Д = 2) или (Д = 4)) тогда {РОД = МУЖСКОЙ;}если ((Д = 3) или (Д = 5) или (Д = 6)) тогда {РОД = ЖЕНСКИЙ;}ИНДЕКС = 1;пока ((ЧИСЛО - (ИНДЕКС * 7)) > 0) {ИНДЕКС = ИНДЕКС + 1;}вывести_на_экран(РОД[ИНДЕКС],"<пробел>",ДЕНЬ[Д],"<пробел>",ИМЯ_МЕСЯЦА[М]);------------- cut ------------Для простоты представления все отсчёты в алгоритме велись от 1, а не от 0.