Функция форматирования не работает в excel vba

Question

Я новичок в vba. Я пытаюсь преобразовать текущий формат даты в mm/dd/yyyy. Я использовал функцию формата для ее достижения. Тем не менее, я получаю формат dd-mm-yyyy. Dim ток, как дата

currentDate = Format(Now, "MM/dd/yyyy") 

Спасибо заранее.

Answer 1

Это потому, что Формат() возвращает строку :

Sub NeedADate() 
    Dim s As String 
    s = Format(Now(), "mm/dd/yyyy") 
    MsgBox s 
End Sub 

Answer 2

Сначала вставьте нужные даты в ячейке, то формат макета ячейки.

Cells(1,1).Value = Now() 
Cells(1,1).Numberformat = "mm/dd/yyyy"