22. 06.関数　存在しない閏日を指定された時、2月末日を返したい　　
Option Explicit
Option VBASupport 1

REM  *****  BASIC  *****

Sub Main

Msgbox "Date:" & 閏年調整関数(2000,2,29)
Msgbox "Date:" & 閏年調整関数(2001,2,29)

End Sub

Function 閏年調整関数(yyyy,mm,dd) As Date
Dim wk As Date

wk = DateSerial(yyyy,mm,dd)
If Month(wk) <> mm Then
wk = wk -1 '存在しない閏日を指定すると3月1日になるので、2月末日にする
EndIf
閏年調整関数 = wk

End Function


前へ ／ 次へ