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

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

スポンサーリンク

VBScript で当月月初、翌月月初、前月月初の日付を計算して取得するサンプルコードです。

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

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

スポンサーリンク