날짜 함수를 사용하여 일과 월에 0이 앞에 오는 문자열을 만듭니다.

Question

VBA에서 날짜를 만들려고합니다. 오늘 날짜를 2018년 4월 13일로 표시하고 싶습니다.

하지만 현재는 2018년 4월 13일로만 표시할 수 있습니다.

한 자리 숫자로 된 일과 월에 앞에 0을 어떻게 포함합니까?

나는 현재 다음을 수행해야 합니다:

stDateDay = Day(Date)
stDateMonth = Month(Date)
stDateYear = Year(Date)
stDateFull = stDateDay & "." & stDateMonth & "." & stDateYear

Answer 1

VBA에서 날짜(또는 다른 값)의 형식을 지정하려면 이 Format함수를 사용할 수 있습니다. 예를 들어:

strDateFull = Format(Date, "dd.mm.yyyy")

General Date두 번째 매개변수는 미리 정의된 형식 이름( , Long Date, Medium Date또는 )이거나 , 또는 Short Date같은 기호를 포함하는 형식 지정자일 dd수 있는 형식 문자열입니다 .mmyy

전체 기호 목록은 다음 설명서를 참조하세요.https://msdn.microsoft.com/en-us/VBA/언어-reference-vba/articles/format-function-visual-basic-for-applications

Answer 2

간단하게 다음을 시도해 볼 수 있습니다.

Range("A1").Value = Format(StDateFull, "dd.mm.yyyy")

또는 다음과 같이 StDateFull 값을 전달하기 전에 셀 또는 셀 범위의 형식을 지정할 수도 있습니다.

Range("A1").NumberFormat = "dd.mm.yyyy"

Range("A:C").Select
Format$ ("dd.mm.yyyy")

Range("A1").value = stDateFull