日付時刻 現在の日付と時刻から文字列作成
※より実装に近く表示させる為、コードの改行を避けています。スマホ等で閲覧される際は向きを変えてご覧ください。
※実装するバージョンによってはバージョンアップの仕様により動作しないコードもあります。実装には動作確認の上ご使用下さい。
Function DateTimeName() As String '********************************* '現在の日付と時刻から文字列作成 '********************************* 'ファイル名やフォルダ名に使用する場合など '１４文字(yyyymmddhhnnss)で返します。 '年年年年月月日日時時分分秒秒 '20100101230101 DateTimeName = Format(Date, "yyyymmdd") & Format(time, "hhnnss") '20100101_230101 DateTimeName = Format(Date, "yyyymmdd") & "_" & Format(time, "hhnnss") End Function |