HOME       LIST

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

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

険しい丘に登るためには、最初にゆっくり歩くことが必要である。(William Shakespeare)

Just give it a go.(試しにやってみたら)


コード説明

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-2020 dojeun.com All Rights Reserved.

Valid XHTML 1.0 Transitional