分かりやすく、使いやすく。

当月月末、翌月月末、前月月末の日付を取得する方法

スポンサーリンク

VBScript で当月月末、翌月月末、前月月末の日付を計算して取得するサンプルコードです。 DateSerial 関数は 3 番目の引数に 0 を指定すると前月の月末の日付を返すのでこれを利用します。

VBScript(実行可能なサンプルコード)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Option Explicit
 
Dim varEndOfThisMonth
Dim varEndOfNextMonth
Dim varEndOfPrevMonth
 
'当月月末の日付を取得
varEndOfThisMonth = DateSerial(Year(Date()), Month(Date()) + 1, 0)
WScript.Echo "今月の月末日:" & varEndOfThisMonth
 
'翌月月末の日付を取得
varEndOfNextMonth = DateSerial(Year(Date()), Month(Date()) + 2, 0)
WScript.Echo "翌月の月末日:" & varEndOfNextMonth
 
'前月月末の日付を取得
varEndOfPrevMonth = DateSerial(Year(Date()), Month(Date()), 0)
WScript.Echo "前月の月末日:" & varEndOfPrevMonth 

月初の日付を取得する方法については、当月月初、翌月月初、前月月初の日付を取得する方法のページを参照してください。

スポンサーリンク
スポンサーリンク