関数 現在の日付と時間を文字型で返す関数

※より実装に近く表示させる為、コードの改行を避けています。スマホ等で閲覧される際は向きを変えてご覧ください。

※実装するバージョンによってはバージョンアップの仕様により動作しないコードもあります。実装には動作確認の上ご使用下さい。


Option Explicit

Public Function DateTimeName() As String

'’現在の日付と時間を文字型で返す関数
'’引数:なし
'’返値:現在の西暦、月日、時分秒を繋げた文字型を返す

DateTimeName = "(" & Year(Date) & Format(Month(Date), "00") & _
Format(Day(Date), "00") & Format(Hour(Time), "00") & _
Format(Minute(Time), "00") & Format(Second(Time), "00") & ")"

End Function

Private Sub Test()
    MsgBox DateTimeName
End Sub
  • はてなブックマークに追加

 

2016年10月01日|[VBサンプルコード]:[関数]