CDATE ?

Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
David
Обычный пользователь
Обычный пользователь
 
Сообщения: 81
Зарегистрирован: 10.03.2004 (Ср) 20:41
Откуда: FRANCE

CDATE ?

Сообщение David » 06.03.2006 (Пн) 12:40

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

Код: Выделить всё
Format(MyDate, "ddmmyy") <> Format(Val("&H" & Hex(Format(MyDate, "ddmmyy"))), "000000")


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

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

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

Al Khamid
Бывалый
Бывалый
Аватара пользователя
 
Сообщения: 274
Зарегистрирован: 11.02.2004 (Ср) 10:00
Откуда: Москва, Ховрино

Сообщение Al Khamid » 06.03.2006 (Пн) 13:41

Последний раз редактировалось Al Khamid 22.11.2007 (Чт) 23:03, всего редактировалось 1 раз.

CORBA
Продвинутый пользователь
Продвинутый пользователь
 
Сообщения: 179
Зарегистрирован: 22.11.2003 (Сб) 13:41
Откуда: Ukraine-Crimea-Feodosia

Сообщение CORBA » 06.03.2006 (Пн) 15:32

David писал(а): Я проделывал операцию с дамами


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

David
Обычный пользователь
Обычный пользователь
 
Сообщения: 81
Зарегистрирован: 10.03.2004 (Ср) 20:41
Откуда: FRANCE

Сообщение David » 06.03.2006 (Пн) 16:46

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

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

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

tyomitch
Пользователь #1352
Пользователь #1352
Аватара пользователя
 
Сообщения: 12822
Зарегистрирован: 20.10.2002 (Вс) 17:02
Откуда: חיפה

Сообщение tyomitch » 06.03.2006 (Пн) 16:57

Код: Выделить всё
Format(MyDate, "ddmmyy") = Format(Val("&H" & Hex(Format(MyDate, "ddmmyy")) & "&"), "000000")
Изображение

David
Обычный пользователь
Обычный пользователь
 
Сообщения: 81
Зарегистрирован: 10.03.2004 (Ср) 20:41
Откуда: FRANCE

Сообщение David » 07.03.2006 (Вт) 0:16

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

tyomitch писал
Код: Выделить всё
Format(MyDate, "ddmmyy") = Format(Val("&H" & Hex(Format(MyDate, "ddmmyy")) & "&"), "000000")


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

tyomitch
Пользователь #1352
Пользователь #1352
Аватара пользователя
 
Сообщения: 12822
Зарегистрирован: 20.10.2002 (Вс) 17:02
Откуда: חיפה

Сообщение tyomitch » 07.03.2006 (Вт) 6:03

Код: Выделить всё
Debug.Print &HDEAD, TypeName(&HDEAD)
Debug.Print &HDEAD&, TypeName(&HDEAD&)


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

David
Обычный пользователь
Обычный пользователь
 
Сообщения: 81
Зарегистрирован: 10.03.2004 (Ср) 20:41
Откуда: FRANCE

Сообщение David » 07.03.2006 (Вт) 11:53

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


Вернуться в Visual Basic 1–6

Кто сейчас на конференции

Сейчас этот форум просматривают: SemrushBot и гости: 131

    TopList