Excel/엑셀 VBA] 날짜/시간 (년월일 시분초) 구하기; Date Time Leading Zero

Sub Get_Date_Time_Example()

  Dim s


' 년 구하기
  s = Format(Date, "yyyy") & "년"    ' 연도를 4자리로 표현
  s = s & Chr(13)

  s = s & Format(Date, "yy") & "년"  ' 연도를 2자리로 표현
  s = s & Chr(13) & Chr(13)


' 월 구하기
  s = s & Format(Date, "mm") & "월"  ' 빈 자리에 0 붙여 2자리 숫자로
  s = s & Chr(13)

  s = s & Format(Date, "m") & "월"
  s = s & Chr(13) & Chr(13)


' 일 구하기
   s = s & Format(Date, "dd") & "일" ' 빈 자리에 0 붙여 2자리 숫자로
   s = s & Chr(13)

   s = s & Format(Date, "d") & "일"
   s = s & Chr(13) & Chr(13)


' 시 구하기 (24시간제)
   s = s & Format(Time, "hh") & "시" ' 빈 자리에 0 붙여 2자리 숫자로
   s = s & Chr(13)

   s = s & Format(Time, "h") & "시"
   s = s & Chr(13) & Chr(13)


' 분 구하기
   s = s & Format(Time, "nn") & "분" ' 빈 자리에 0 붙여 2자리 숫자로
   s = s & Chr(13)

   s = s & Format(Time, "n") & "분"
   s = s & Chr(13) & Chr(13)


' 초 구하기
  s = s & Format(Time, "ss") & "초"  ' 빈 자리에 0 붙여 2자리 숫자로
  s = s & Chr(13)

  s = s & Format(Time, "s") & "초"
  s = s & Chr(13)


  MsgBox s

End Sub