現在の時刻(文字列)を取得する

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

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

End Sub

Function 共通_時刻取得()
   
   共通_時刻取得 = Format(TimeValue(Now), "HH:NN:SS")

End Function