Accessでの支払日の計算方法

質問

いつも質問ばかりしてスミマセン・・・
今回は支払日付の計算について質問です。
次の様な条件で日付の表示がしたいのですが、カレンダーは月末日が月によって３０日や３１日２月は２８日うるう年には２９と末日に変動がありますよね？
その為、Accessのdateadd関数では日にちが狂ってしまうのです。
条　件：取引会社ごとに支払日が決まっています月末に締　　　　めて３０日後、４０日後、５０日後といった風に５日にち毎に支払日となります。
　　　　例）２／２８締め４０日後→４／１０支払日と計算させたいのですが、dateadd関数で単純に計算すると４／９となってしまいます。これが６０日後であれば本来は４／３０としたいのですが、４／２８となります。

AccessのVBAは使った事はないのですが、（Excelはあります）VBAででしかできないのであればその方法が知りたいです。

宜しくお願いします。

回答No.1

tsukasa-12r · ベストアンサー

「２／２８締め４０日後→４／１０支払日」
というのは、正確に言うと
「翌々月の１０日支払日」ということですよね？

(1)「ｎ日後」のｎを３０で割る。
(2-1) あまり＝０の場合
支払日＝締め日の月＋[ (1) の商] の月末
(2-2) あまり≠０の場合
支払日＝締め日の月＋[ (1) の商]＋１の月、[あまり]日

という関数を作成すればいいんじゃないでしょうか。
Year関数、Month関数、TimeSerial関数などを使用すればできると思います。
あと、月末の求め方ですが、
(1) 月を＋１、日を１とする。（TimeSerialなどを使用する。）
(2) (1)の日付を DateAdd で－１日する
で求められます。

お礼

回答ありがとうございました。
お二方ともすごいなーと本当に思いました。
お知恵を拝借してがんばってみます。

回答No.2

noname#27115

もしかしたら、そのような計算をさせる関数があるのかもしれませんが、自分で作るとしたら、日付のDAYの部分を5で割ってその余りをDAYの部分に足すという方法なるんじゃないでしょうか？

ちょっと、ローテクですが、、作ってみました。

myDate に 2003/04/06 とはいると
getDate に 2003/04/10 と返ると思います。

すべての条件を満たしているかはわかりません。

Function getDate(myDate As String) As String
Dim strTmp(2) As String
Dim lngTmp As Long

strTmp(0) = Format(myDate, "yyyy/mm/dd")

strTmp(1) = (Mid(strTmp(0), 9, 2))
strTmp(2) = (Mid(strTmp(0), 1, 8))

lngTmp = Val(strTmp(1)) Mod 5

If 0 <> lngTmp Then
getDate = strTmp(2) & Format((Val(strTmp(1) + (5 - lngTmp))), "00")
Else
getDate = strTmp(0)
End If

End Function

お礼

回答ありがとうございました。
お二方ともすごいなーと本当に思いました。
VBAはあまり使った事はないのですが、頑張ってみます。