Форум » Clipper » Алгоритм преобразования в ДАТУ » Ответить
Алгоритм преобразования в ДАТУ
Andrey: Всем привет ! Имею даты вида: Пт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
les: Обязательно расскажи КАКОЙ идиот придумал ТАКОЙ формат даты Попробуй это: 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
Andrey: les пишет: Обязательно расскажи КАКОЙ идиот придумал ТАКОЙ формат даты BIRTHDAY! millennium 3.xx - 4.xx
les: Andrey пишет: les пишет: цитата: Обязательно расскажи КАКОЙ идиот придумал ТАКОЙ формат даты BIRTHDAY! millennium 3.xx - 4.xx Извините за оффтоп, но беру свои слова обратно. Для такой проги это довольно разумный формат.
полная версия страницы