現在の日付(文字列)を取得する

＜分類：値取得＞
＜使用例：現在の日付(文字列)を取得する＞
＜プログラム例＞

Sub 呼び出し()
   Dim s As String
   
   s = 共通_日付取得()
   MsgBox ("現在の日付は " & s & " です")

End Sub

Function 共通_日付取得()
   
   共通_日付取得 = Format(DateValue(Now), "yyyy/mm/dd")

End Function