\

VBA Date型の宣言方法(変数と定数)

VBA のDate型は日付や時刻を格納可能なデータ型です。

このページでは、Date型の変数と定数について宣言方法を紹介します。

Date型変数の宣言方法

Date型は、Dim 変数名 as Dateで宣言します。

値の代入方法は、#月/日/年 時:分:秒#で設定しますが、#年/月/日時:分:秒#とした場合は自動的に#月/日/年 時:分:秒#に変換してくれるようです。

1
2
Dim DateValue As Date
DateValue = #2021/5/17 18:50:12#

↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓

1
2
Dim DateValue As Date
DateValue = #5/17/2021 6:50:12 PM#

日付と時刻を指定する場合

上述のとおり、#月/日/年 時:分:秒#で設定します。

1
2
Dim DateValue As Date
DateValue = #5/17/2021 6:50:12 PM#

日付のみ設定する場合

日付のみ設定する場合、以下のようにコーディングします。

1
2
Dim datevalue As Date
datevalue = #5/13/2022#

このとき、時間、分、秒は 0:0:0 になります。

1
2
3
4
5
6
7
Dim DateValue As Date
DateValue = #5/13/2021#

Dim StringValue As String
StringValue = Format(DateValue, "hh:mm:ss")

MsgBox (StringValue)

時刻のみ

時刻のみ設定する場合、以下のようにコーディングします。

1
2
Dim DateValue As Date
DateValue = #6:50:12 PM#

このとき、日付は 1989/12/30 になります。

1
2
3
4
5
6
7
Dim DateValue As Date
DateValue = #6:50:12 PM#

Dim StringValue As String
StringValue = Format(DateValue, "yyyy/MM/dd")

MsgBox (StringValue)

現在の日付時刻を設定する

現在の日付時刻を取得するには Now を使用します。

1
2
3
4
5
6
7
Dim DateValue As Date
DateValue = Now

Dim StringValue As String
StringValue = Format(DateValue, "yyyy/MM/dd hh:mm:ss")

MsgBox (StringValue)

日付型定数の宣言方法

定数の宣言は他のデータ型と同様、Constを使用します。

1
2
Const fromDate As Date = #1/1/2021#
Const toDate As Date = #12/31/2021#

コメントシステムを導入しました!コメント頂けると嬉しすぎて、光の速さで返信します(●´ω`●)

速攻でメモできる QuickNote リリースしました!

QuickNoteは動作が超軽量でサクサクかけるノートアプリです。一瞬の閃きを逃さずにノートを開き書き始めることができます。 アカウント登録も不要です。お試しあれ!

Excel操作をコマンドで! proBoarderExcel

Excelはマウスで操作するのが基本ですが、マウス操作に疲れてはいませんか? キーボードでExcel操作ができるようになるアプリです。オープンソースで無料です。

積み上げ! Daily Stack リリースしました!

Daily Stack は日々の積み上げを管理するToDoアプリです。過去の積み上げの振り返りだけでなく、ツイート機能もあります。 アカウント登録不要ですぐに使い始めることができます。

ExecNote.app リリースしました!

ExecNoteは、コードが実行できるMarkdownアプリケーションです。Markdownドキュメント内に記載したコードをクリックすると実行ができます。わざわざターミナルを 起動させる必要がありません!無料ですのでもしよければダウンロードをお願いします。

About Me

11年目のシステムエンジニアです。アプリで生活や仕事を改善したい🐱仕事効率化、自動化のアプリ開発が得意です、ご相談ください。 🚀エンタメ系アプリの開発も模索中🐬社内SEや個人アプリ開発者、システムエンジニアになりたい人と繋がりたい🐱