ある日の翌日から起算して1ヶ月後の翌日を返す関数
Excellで、ある日の翌日から起算して1ヶ月後の翌日を返すユーザー定義関数を作成しようとしています。VBAで、ある日を dt として引数を定義し、下記のとおりfunctionプロシージャを作成しましたが、「コンパイルエラー subまたはfunctionが定義されていません」のエラーとなってしまい困っています。どのように改善すればよろしいか、どなたか教えてください。
なお、期間計算については、民法第１４３条のとおりに計算するようにします。
引用開始
第１４３条 週、月又は年によって期間を定めたときは、その期間は、暦に従って計算する。
２ 週、月又は年の初めから期間を起算しないときは、その期間は、最後の週、月又は年においてその起算日に応当する日の前日に満了する。ただし、月又は年によって期間を定めた場合において、最後の月に応当する日がないときは、その月の末日に満了する。
引用終了
記
Function singlem(dt As Date) As Date
Dim kekka As Date
If dt <> EoMonth(dt, 0) Then
If Day(dt) + 1 <= Day(EoMonth(dt, 1)) Then
kekka = callDate(Year(dt), Month(dt) + 1, Day(dt) + 1)
Else
kekka = callDate(Year(dt), Month(dt) + 2, 1)
End If
Else
kekka = callDate(Year(dt), Month(dt) + 2, 1)
End If
singlem = kekka
End Function
お礼
ありがとうございます。 おかげですっきり致しました。