Function NISSUU(日付)
If Month(日付) < 4 Then
NISSUU = DateDiff("d", 日付, DateSerial(Year(日付), 4, 1))
Else
NISSUU = DateDiff("d", 日付, DateSerial(Year(日付) + 1, 4, 1))
End If
End Function
aki-akiさん
良さそうですね。
不定な値で動作しないように入力値の判定を入れ、「Else」を「Else if (日付) <= 12 Then」(Elifでしたかね?)
として、Else文を入れれば完璧でしょう!
Function NISSUU (日付)
If Month ((日付) < 4) Then
日数 = DateDiff("d", 日付, DateSerial(Year(日付), 4, 1))
Else if (日付) <= 12 Then
日数 = DateDiff("d", 日付, DateSerial(Year(日付) + 1, 4, 1))
Else
エラー時の処理はここに書く(このコードでは何もしない)
End If
End Function
Function NISSUU(日付)
If Not IsDate(日付) Then
MsgBox (日付 & ":入力エラー!")
NISSUU = ""
Exit Function
End If
If Month(日付) < 4 Then
NISSUU = DateDiff("d", 日付, DateSerial(Year(日付), 4, 1))
Else
NISSUU = DateDiff("d", 日付, DateSerial(Year(日付) + 1, 4, 1))
End If
End Function