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

VB&VBA
FROG ふろっぐ
 
  • オプション

    本文印刷

    お気に入りに追加

  • 検索

    Googlewwwjp-ia
     

    Googlewwwjp-ia
     
  • 情報

  • 関連

[VB&VBA][関数 現在の日付と時間を文字型で返す関数]

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





Production Japan Import Application. Since 1998