Одним сравнением проверить корректность даты..

← →
ArtemESC © (2006-05-07 12:53) [0]

Совсем запутался - целый час парюсь, как это сделать, написал следующее,но явно что-то очень грамоздское(на правильность не проверял) Как это сделать...

If (Day > 0) and (Month > 0) and (Day < 32) and (Month < 13) and ( (Day < 28) or ( (Day > 28) and (Month <> 2)) or ( (Day <= 29) and (Month = 2) and (Year div 4 = Year / 4)) or ( (Day = 31) and ((Month = 1)) or ( (Day = 31) and ((Month = 3)) or ( (Day = 31) and ((Month = 5)) or ( (Day = 31) and ((Month = 7)) or ( (Day = 31) and ((Month = 8)) or ( (Day = 31) and ((Month = 10)) or ( (Day < 31) and ((Month = 12)) or ( (Day < 31) and ((Month = 4)) or ( (Day < 31) and ((Month = 6)) or ( (Day < 31) and ((Month = 9)) or ( (Day < 31) and ((Month = 11)) ) then

← →
Palladin © (2006-05-07 12:58) [1]

TryEncodeDate

← →
ArtemESC © (2006-05-07 12:59) [2]

Palladin © (07.05.06 12:58) [1]
Забыл сказать - на BP...

← →
Gero © (2006-05-07 13:03) [3]

> ArtemESC © (07.05.06 12:59)

Функция TryEncodeDate поставляется вместе с исходником.

← →
SergP © (2006-05-07 13:20) [4]

Все месяцы кроме февраля можно так:

Day <= ((month xor (month shr 3)) or 30)

← →
SergP © (2006-05-07 13:26) [5]

> (Year div 4 = Year / 4)

1. Не знаю как будет работать сравнение целого числа с вещественным...

2. Определение високосного года неправильное.

Високосным годом называется год если его номер делится на 4 за исключением тех, которые делятся на 100, но не делятся на 400.

Можно использовать уже написанные библиотеки. Автор, проверь почту.

Одним сравнением проверить корректность даты.. Найти похожие ветки