HOME       LIST

【VBA】月の日数を取得する方法

指定年月の日数を取得する方法。


コード説明

1.指定した年月がある場合にまず、後ろに「01」をつける。
2.DateSerial関数を利用して「月」に「+1」する。
3.足した日付から「日」を「-1」する。
4.日付から「日」のみ Integer変数に代入する。

コード

Dim sDate As String
Dim sWork As String
Dim sWork2 As String
Dim iDays as Integer

sDate = "2016/07"

sWork = sDate & "/01"
sWork2 = DateSerial(Year(sWork), Month(sWork) + 1, Day(sWork))
iDays = Day(DateSerial(Year(sWork2), Month(sWork2), Day(sWork2) - 1))
MsgBox iDays

以前コンテンツ:【JAVA】Compileエラー、この文字は、エンコーディングms932にマップできません
次のコンテンツ:Hello World、各プログラミング言語



Copyright(c) 2007-2024 dojeun.com All Rights Reserved.

Valid XHTML 1.0 Transitional