Ошибка Тип несоответствия

Question

Почему я получаю это Type Mismatch Ошибка?

Код:

Dim data as Date 

    data = CDate(Format(31, "00") & "/" & Format("1/9/2013", "mm/yyyy")) 

Когда я пытаюсь это со строками, конечно, это работает отлично.

Обс: Он работает, если я использую different day than 31, например 28, но ... Но почему эта ошибка возникает only with the day 31.

Answer 1

Я нашел ответ, и это глупо -.-»Month 9 = Agost = 30 days and not 31 ... Я чувствую себя так глупо сейчас,. Х

Answer 2

Похоже, что вы пытаетесь получить в последний день месяца Если это случай, попробуйте это ...

Dim data As Date 
Dim OriginalDate As Date 

OriginalDate = DateSerial(2013, 12, 20) 

data = DateSerial(Year(OriginalDate), Month(OriginalDate) + 1, 0) 

Этот код в основном получает первый день следующего месяца, а затем вычитает один день. Хорошая вещь об использовании функции Dateserial является то, что вы можете дать его «недействительные» значения, Например, если вы используете Year = 2013 и Month = 13, вы получите январь 2014 года.

Answer 3

Вы должны следить за датами, потому что в зависимости от того, какой регион ваш компьютер находится в (Control Panel/Язык и региональные стандарты), иногда ваша дата Format("1/9/2013", "mm/yyyy")) может быть истолковано как September 1, 2013 или January 9, 2013

Если вы можете использовать DateSerial в частности, зацепите номера месяца/дня, не полагаясь на выход формата.