Вопрос по TDate

← →
ss300 (2003-07-16 13:19) [0]

Хэлп!!!!

как мне сделать если дата = 30 августа или больше чтобы прога не запускалась???

← →
Юрий Федоров (2003-07-16 13:26) [1]

if now > EncodeDate(2003, 8, 30) then halt;

← →
Andrey007 (2003-07-16 14:26) [2]

>Юрий Федоров
Я думаю, что Вы ответили на другой вопрос - о том, как сделать так, чтобы программа не запускалась после 30 августа 2003 года. А вопрощающего, насколько я его понял, интересует возможность сделать так, чтобы программа работала с 01.01 текущего года по 30 августа текущего года.
В таком случае условие будет выглядеть несколько иначе:

DecodeDate(now, Year, Month, Day);
if EncodeDate(2003, 8, 30)-Year>Month+Day then Halt;

← →
Andrey007 (2003-07-16 14:28) [3]

Удалено модератором
Примечание: Удалено случайно, воостановлено ниже

← →
Юрий Федоров (2003-07-16 14:29) [4]

>>Andrey007 (16.07.03 14:28)
Да какая разница?
Все равно если делать грамотно, нужно делать совсем не так

← →
Anatoly Podgoretsky (2003-07-16 14:42) [5]

Andrey007 (16.07.03 14:28)
Ой, больше с меньше перепутал:

if EncodeDate(2003, 8, 30)-Year<Month+Day then Halt

← →
Юрий Федоров (2003-07-16 14:45) [6]

?????????????????????????

← →
Anatoly Podgoretsky (2003-07-16 14:51) [7]

Andrey007 (16.07.03 14:26)
Так зачем 2003 год то вставляешь тогда?
И складывать месяц с днем также как то странно, что ты желаешь получить при 12+5 или 8+7, при этом в результате услови никогда ен будет выполнено, разве что для даты гдето 1890 году.
Отнимать год от количество дней (а это результат функции EncodeDate) тоже представляется не разумным.

Может ты прояснишь про свою "математику"

← →
panov (2003-07-16 15:26) [8]

if FormatDateTime("mmdd",now)>"0830" then ...

← →
Song (2003-07-16 16:16) [9]

IF (DayOf(..)>=...) and (MonthOf(..)>=...) then

← →
Юрий Зотов (2003-07-16 16:21) [10]

> ss300 © (16.07.03 13:19)
> как мне сделать если дата = 30 августа или больше чтобы прога
> не запускалась???

Только один вопрос - о какой дате идет речь? Которая в календаре, или которая в компьютере?

Потому что это не всегда одно и то же. Вот в чем вся проблема-то.
:о)

← →
Jao (2003-07-16 17:07) [11]

← →
Anatoly Podgoretsky (2003-07-16 17:17) [12]

Song © (16.07.03 16:16)
Тут логическая ошибка, проиграй на бумажке, например для 31 января. Панов предложил красивое решение.

← →
ss300 (2003-07-16 17:29) [13]

Ребята спасибо Вам!

Вопрос по TDate Найти похожие ветки