Автор | Сообщение |
|
| постоянный участник
|
Пост N: 363
Зарегистрирован: 12.09.06
|
|
Отправлено: 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 недели в феврале, и т.д. Помогите составить алгоритм ! Заранее спасибо.
|
|
|
Ответов - 3
[только новые]
|
|
|
| |
Пост N: 48
Зарегистрирован: 29.07.05
|
|
Отправлено: 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
|
|
|
|
| постоянный участник
|
Пост N: 369
Зарегистрирован: 12.09.06
|
|
Отправлено: 01.11.07 23:45. Заголовок: les пишет: Обязате..
les пишет: цитата: | Обязательно расскажи КАКОЙ идиот придумал ТАКОЙ формат даты |
| BIRTHDAY! millennium 3.xx - 4.xx
|
|
|
|
| |
Пост N: 49
Зарегистрирован: 29.07.05
|
|
Отправлено: 02.11.07 11:38. Заголовок: Andrey пишет: les п..
Andrey пишет: цитата: | les пишет: цитата: Обязательно расскажи КАКОЙ идиот придумал ТАКОЙ формат даты BIRTHDAY! millennium 3.xx - 4.xx |
| Извините за оффтоп, но беру свои слова обратно. Для такой проги это довольно разумный формат.
|
|
|
|