Отправлено: 30.10.07 19:17. Заголовок: Алгоритм преобразования в ДАТУ

Всем привет !

Имею даты вида:
Пт3/01
Вс2/02
Вс2/03
Вс5/03
Ср2/04
Вс5/04
Вс5/05
Вс1/06
Сб5/06
Сб1/07
Пт5/07
Вс5/07
Вс2/08
Вс5/09
Пн1/10
Вс3/11
Вс5/11

Как узнать какого числа будет:
Пятница 3 недели в январе текущего года,
Воскресенье 2 недели в феврале,
и т.д.

Помогите составить алгоритм !
Заранее спасибо.

 Отправлено: 01.11.07 12:18. Заголовок: Обязательно расскажи..

Обязательно расскажи КАКОЙ идиот придумал ТАКОЙ формат даты

Попробуй это:

Accept To cDate

nDay := aScan( {'Вс','Пн','Вт','Ср','Чт','Пт','Сб'}, Left( cDate, 2 ) )
nWeek := Val( SubStr( cDate, 3, 1 ) )

dDate := SToD( Str( Year( Date() ),4 ) + Right( cDate, 2 ) + '01' )

dEOM := EOM( dDate )
For dDay := dDate To dEOM
nWOM := WOM( dDay )
If DOW( dDay ) == 1
nWOM--
EndIf

If nWOM == nWeek .And. DOW( dDay ) == nDay
Exit
EndIf
Next
? dDay

 Отправлено: 01.11.07 23:45. Заголовок: les пишет: Обязате..

les пишет:

цитата:

Обязательно расскажи КАКОЙ идиот придумал ТАКОЙ формат даты

BIRTHDAY! millennium 3.xx - 4.xx

 Отправлено: 02.11.07 11:38. Заголовок: Andrey пишет: les п..

Andrey пишет:

цитата:

les пишет: цитата: Обязательно расскажи КАКОЙ идиот придумал ТАКОЙ формат даты BIRTHDAY! millennium 3.xx - 4.xx

Извините за оффтоп, но беру свои слова обратно.
Для такой проги это довольно разумный формат.