HOME       LIST

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

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

今望んでいることが本当に価値があるのか?(金、家、余裕、知り合い、頭脳。。。) - 2017/03/18(DOJEUN)

Who's this boy on the far left?(左端のこの男の子は誰ですか?)


コード説明

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