Странный Type Mismatch

[MEMBER]

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

Private Sub Command1_Click()
    Label1 = DateAdd("w", -1, Label1)
End Sub


При выполнении возникает Type Mismatch, но только на одной машине, работающей под 98 Win.

Ладно, модифицирую код:

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

Private Sub Command1_Click()
    Label1 = Str(DateAdd("w", -1, Label1))
End Sub


Те же, только сбоку... Что за бред, однако?
PS На всех остальных машинах глюка нет (98, 2000, XP)

[alibek]

А если указать CDate(Label1.Caption)?

[MEMBER]

Ничего не изменилось.

[codemaster]

Попробуй так

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


Private Sub Command1_Click()
    Label1.Caption = CStr(DateAdd("w", -1, CDate(Label1.Caption)))
End Sub

Private Sub Form_Load()
Label1.Caption = CStr(Date)
End Sub


[MEMBER]

Та-же фигня.
Хочу заметить, что раньше на этой машине и 1 вариант (из моего поста) прокатывал.
Ладно, буду ковырять библиотеки, видно в них беда.

[codemaster]

Та-же фигня.
Хочу заметить, что раньше на этой машине и 1 вариант (из моего поста) прокатывал.
Ладно, буду ковырять библиотеки, видно в них беда.

Проц. сучаем не разогнан ?

[RayShade]

Ну ты скажешь тоже, codemaster

[Alexanbar]

Проверь, что хранится в Label1 на всех этапах преобразования. Возможно, что при вызове функции DateAdd в качестве последнего аргумента подставляется некорректное значание даты.

[GSerg]

Есть мнение о необходимости посмотреть национальные настройки. Функции конвертации данных дают type mismatch, когда переданная строка не может быть корректно распарсена.

[codemaster]

Есть мнение о необходимости посмотреть национальные настройки. Функции конвертации данных дают type mismatch, когда переданная строка не может быть корректно распарсена.

В коде нет ничего криминального .

Просто вспомнил случай с разогн. проц. у заказчика
траблы были какраз с Date.

[MEMBER]

Ммм...
Разгон...
Таки как вы себе представляете разогнанный первопень? От 166 до 200?. Прибавка к пенсии?
Не, ну я уже работал в те времена, когда венгерские винты на 5 метров, больше похожие на мины, были в ходу, а 3" дисковод - это ваще чума была.
Но вот какая проблема, гнать такую старую старушку мёртвую, как 166, не имеет смысла.
Поэтому она не разогнана.
Да.
Ладно, протЪрезвею, проблему расковыряю, отпишу.

[MEMBER]

Есть мнение о необходимости посмотреть национальные настройки. Функции конвертации данных дают type mismatch, когда переданная строка не может быть корректно распарсена.

А вот это интересно, что-то на этой тачке дефолтовый language мозги парить начал, то англиканский, то русский...

[ASD]

Есть мнение о необходимости посмотреть национальные настройки. Функции конвертации данных дают type mismatch, когда переданная строка не может быть корректно распарсена.

А вот это интересно, что-то на этой тачке дефолтовый language мозги парить начал, то англиканский, то русский...

Скорее всего региональные настройки...
Сталкивался с подобными глюками.

[Ennor]

Да кто не сталкивался-то? Другой вопрос, что очень странно, с чего бы это именно CDate() кривить начала. Для Val() это нормально, но для этой...
2 Member: А я у себя дома разогнал К6-233 до 300. Неплохая, я тебе скажу, прибавка к пенсии...

[MEMBER]

Вот ёк-макарёк...
Какое-то чудушко в RS поставило Великобританию.
Проблема решена, спасибо.