Формат VBA Excel 2013 Изменения функции Дата

Question

Следующая строка кода изменяет не только формат даты, но также изменяет значение даты. Почему это происходит и как я могу избежать этого?

Код:

rng.Cells(intStartRow, rng.Columns.Count + 1) = _ 
Format(rng.Cells(intStartRow, rng.Columns.Count + 1).Value, "mmm-yy") 

Значение rng.Cells(intStartRow, rng.Columns.Count + 1).Value перед выполнением кода:

Значение rng.Cells(intStartRow, rng.Columns.Count + 1).Value после выполнения кода:

Answer 1

Если вы хотите преобразовать в фактическую дату и изменить отображаемый формат, используйте:

With rng.Cells(intStartRow, rng.Columns.Count + 1) 
    .Value = CDate(.Value) 
    .NumberFormat = "mmm-yy" 
End With 

Answer 2

Причина, почему это происходит, что информация о дате хранится как десятичное число и отображается в формате даты, примененном к клетка. В вашем коде вы меняете информацию о дате на строку, так как результат Format() всегда является строкой. Душа для решения проблемы является дополнением Rory