CDATE ?

[David]

Я проделывал операцию с дамами и наткнуся на такую штуку

Код: Выделить всё

Format(MyDate, "ddmmyy") <> Format(Val("&H" & Hex(Format(MyDate, "ddmmyy"))), "000000")

если сравнивать две одинаковые даты в текстовом формате, но одну заранее трансформировать в шестнадцатиричное и ретрансформирвать в двоичное число, то это срабатывает всегда (что норльмально) если число
не 4, не 5 и не 6 ?!

Если у кого-то есть вразуительное объяснение буду очень признателен

моя система эксплуатации WINDOWS XP Professionale SVP 4 (версия французкая)

[Al Khamid]

[CORBA]

Я проделывал операцию с дамами

Может объяснишь что ты проделывал с дамами, что у тебя возникла идея сравнивать даты, да ещё не понятно для чего перегоняя текст из системы в систему.

[David]

Ну конечно ДАТАМИ, прошу прощения за опечатку.

А зачем мне это надо, в принципе можно прожить и без, но всё таки инерессно, должно же быть равенство, но при числах 4/MM/YYYY, 5/MM/YYY & 6/MM/YYYY - выдает ошибку.

Повторяю, просто инересно.

[tyomitch]

Код: Выделить всё

Format(MyDate, "ddmmyy") = Format(Val("&H" & Hex(Format(MyDate, "ddmmyy")) & "&"), "000000")


[David]

мой коде
Format(MyDate, "ddmmyy") <> Format(Val("&H" & Hex(Format(MyDate, "ddmmyy"))), "000000")

tyomitch писал

Код: Выделить всё

Format(MyDate, "ddmmyy") = Format(Val("&H" & Hex(Format(MyDate, "ddmmyy")) & "&"), "000000")

Ну а объяснить или и сам без понятий? В любом случае спасибо

[tyomitch]

Код: Выделить всё

Debug.Print &HDEAD, TypeName(&HDEAD)
Debug.Print &HDEAD&, TypeName(&HDEAD&)


Ещё объяснения требуются?

[David]

НЕТ, МОЛЧУ !!!