Макрос Excel: Как я могу получить метку времени в формате "гггг-ММ-ДД чч:мм:СС"?

Question

Макрос Excel: Как я могу получить метку времени в формате "гггг-ММ-ДД чч:мм:СС"?

Я использую DateTime.Now в моем макро Excel, чтобы показать текущую метку времени.

он показывает метку времени в формате" dd-MM-yyyy hh:mm:ss".

вместо этого, как я могу получить метку времени в формате "гггг-ММ-ДД чч:мм:СС"?

611 8

excel excel-vba vba

8 ответов:

Comments

Ничего не найдено.

Mohamed Saligh · Accepted Answer · 2011-03-28 12:37:42

попробуйте с помощью: format(now(), "yyyy-MM-dd hh:mm:ss")

chris neilsen · Accepted Answer · 2011-03-28 12:49:38

DateTime.Now возвращает значение типа данных Date. Переменные даты отображают даты в соответствии с кратким форматом даты и форматом времени, установленным на вашем компьютере.

они могут быть отформатированы в виде строки для отображения в любом допустимом формате даты с помощью Format функция, как упоминалось в другом ответе
Format(DateTime.Now, "yyyy-MM-dd hh:mm:ss")

Mitch Wheat · Accepted Answer · 2011-03-28 12:39:47

Format(Now(), "yyyy-MM-dd hh:mm:ss")

6

2011-03-28 12:39:47

Kaisa · Accepted Answer · 2015-09-23 10:19:02

если некоторые пользователи кода имеют разные языковые настройки формат может не работать. Таким образом, я использую следующий код, который дает отметку времени в формате "yyymmdd hhMMss" независимо от языка.
Function TimeStamp()
Dim iNow
Dim d(1 To 6)
Dim i As Integer


iNow = Now
d(1) = Year(iNow)
d(2) = Month(iNow)
d(3) = Day(iNow)
d(4) = Hour(iNow)
d(5) = Minute(iNow)
d(6) = Second(iNow)

For i = 1 To 6
    If d(i) < 10 Then TimeStamp = TimeStamp & "0"
    TimeStamp = TimeStamp & d(i)
    If i = 3 Then TimeStamp = TimeStamp & " "
Next i

End Function

Rafiq · Accepted Answer · 2013-11-14 18:17:43

скопируйте и вставьте этот формат гггг-ММ-ДД чч:мм:СС в ячейках формата, нажав таможенную категорию под типом

user6300304 · Accepted Answer · 2016-05-06 15:39:51

это сработало лучше всего для меня:

        Cells(partcount + 5, "N").Value = Date + Time
        Cells(partcount + 5, "N").NumberFormat = "mm/dd/yy hh:mm:ss AM/PM"

Flori · Accepted Answer · 2018-09-28 18:55:56

Он может работать так же легко, как это, Выберите место, которое вы хотите, в этом случае я выбираю D3
Sheets("Put your Sheet's name here").Range("D3") = Now
например, мой лист называется Sources
Sheets("Sources").Range("D3") = Now

Arnoldiusss · Accepted Answer · 2011-03-28 12:38:51

используйте функцию форматирования.
Format(Date, "yyyy-mm-dd hh:MM:ss")