DateTime.Now
현재 타임 스탬프를 표시하기 위해 Excel 매크로에서 사용 하고 있습니다.
타임 스탬프는 “dd-MM-yyyy hh : mm : ss”형식으로 표시됩니다.
대신 “yyyy-MM-dd hh : mm : ss”형식의 타임 스탬프를 어떻게 얻을 수 있습니까?
답변
시도해보십시오 : format(now(), "yyyy-MM-dd hh:mm:ss")
답변
DateTime.Now
데이터 유형 값을 반환합니다 Date
. 날짜 변수는 컴퓨터에 설정된 간단한 날짜 형식 및 시간 형식에 따라 날짜를 표시합니다.
다른 Format
답변에서 언급 한 것처럼 함수에 의해 유효한 날짜 형식으로 표시하기 위해 문자열로 형식화 될 수 있습니다.
Format(DateTime.Now, "yyyy-MM-dd hh:mm:ss")
답변
Format(Now(), "yyyy-MM-dd hh:mm:ss")
답변
코드의 일부 사용자가 언어 설정 형식이 다른 경우 작동하지 않을 수 있습니다. 따라서 언어에 관계없이 “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
답변
유형 아래에서 세관 카테고리를 클릭 하여이 형식 yyyy-mm-dd hh : MM : ss 를 형식 셀에 복사하여 붙여 넣으십시오 .
답변
이것은 나를 위해 가장 잘 작동했습니다.
Cells(partcount + 5, "N").Value = Date + Time
Cells(partcount + 5, "N").NumberFormat = "mm/dd/yy hh:mm:ss AM/PM"
답변
통합 문서 경로 저장의 타임 스탬프입니다. ” :
“을 (를) 변경해야합니다. ” :
“-> ” .
“을 (를) 사용했는데 이는 ” xlsx
” 확장자를 다시 추가해야 함을 의미합니다 .
wb(x).SaveAs ThisWorkbook.Path & "\" & unique(x) & " - " & Format(Now(), "mm-dd-yy, hh.mm.ss") & ".xlsx"