VBAで形式を指定して日付を取得する
VBAで西暦や和暦の日付形式に変換するには「FORMAT」関数に引数を指定することで意図した日付形式に変換することができます。
日付を表示
Date関数で今日の日付を取得して変換します。
|
1 2 3 4 5 6 7 8 |
'日付表示(今日の日付が2019年12月1日の場合) MsgBox Format(Date, "yyyyMMdd") '20191201 MsgBox Format(Date, "yyMMdd") '191201 MsgBox Format(Date, "yy/M/d") '19/12/1 MsgBox Format(Date, "ge/M/d") 'R1/12/1 MsgBox Format(Date, "gge/M/d") '令1/12/1 MsgBox Format(Date, "ggge/M/d") '令和1/12/1 MsgBox Format(Date, "ggge年M月d日") '令和1年12月1日 |
時刻表示
Time関数で現在の時刻を取得して変換します。
|
1 2 3 4 |
'時刻表示(現在の時刻が22時10分1秒の場合 MsgBox Format(time, "hh:mm:ss") '22:10:01 MsgBox Format(time, "h:m:s") '22:10:1 MsgBox Format(time, "h:m:s AM/PM") '10:10:1 PM |
日付と時刻を表示
Now関数で今日の日付と現在の時刻を取得して変換します。
|
1 2 |
'日付と時刻を表示(2019年12月1日 22時10分1秒の場合) MsgBox Format(Now, "yyyyMMdd hh:mm:ss") '20191201 22:10:01 |
Google AdSense PC
Google AdSense PC
関連記事
-
-
[Windows]指定サイズのファイルを作成する
ネットワークの通信速度などを調査する場合にサイズの大きなファイルを作成する必要があります。 この記事では「fsutil」コマンドを使用したダミーファイルの作成方 …
-
-
[Windows]Active ReportsでPDF出力時の注意事項
PDF出力時の「LicenseException」対応方法 環境 ActiveReports for .NET 7.0J 言語:C# 設定 Active Rep …
-
-
[Windows]WSUSサーバの構築手順 6/6
Windows 2008 R2サーバにWSUSサーバを構築する クライアントPCがWSUSサーバから更新プログラムをダウンロードするにはグループポリシーを設定す …
-
-
エクセルで円と銭の通貨単位を表示する
Excelで入力した数値に円と銭の単位を表示する方法を記載します。 ２種類の表示方法がありますので、用途に応じて使い分けてください。 セルの書式設定で表示 セル …
-
-
[Windows]ネットワーク一覧にコンピュータ名を表示させない方法
Windowsのエクスプローラでネットワーク上に存在するコンピュータの一覧を表示することができます。 一覧の中には開発機やユーザに公開したくないサーバなども表示 …
-
-
Excelのセル幅に合わせて縦横比を維持したまま画像サイズを自動調整する方法
VBAで画像を挿入することができますが、単純にセル幅に合わせて画像サイズを変更すると、縦長や横長の画像として挿入されます。 縦横比を維持したまま、画像を挿入する …
-
-
Outlookでメール送信中になったまま送受信が終了しない場合
開封確認のメールが正常に送信されず、送信中のまま送受信が終了しない場合があります。 原因となる開封確認メールは送信トレイに存在しないため、削除することができませ …
-
-
[Windows]Windows 7 リモートデスクトップの有効化
Windows 7にリモートデスクトップ接続する 「コントロールパネル」ー「システムとセキュリティ」をクリック 「システム」をクリック 「リモート …
-
-
[Windows]IISセッションタイムアウト設定
IISのセッションタイムアウトを設定する機会がありましたので、設定手順について記載します。 IIS7にセッションタイムアウトを設定する IISではASP.NET …
-
-
VBAからOracleに接続する方法(Oracle Provider for OLE DB接続)
VBAから業務システムなどに使用しているデータベースに接続し、データを抽出することができます。 定期的に作成する資料などは、VBAでデータ取得処理を自動化し、ボ …