アクセス2000で日数計算をする

質問

こんにちわ。現在レンタル業務を行っている会社で働いていて
社内システム以外のもので、レンタルの売上を管理できるシステムを
作りたいと考えています。レンタル開始日から社内の締め（月末）、
個々のお客様の締め（20日締・末締等）までの日数をアクセスで計算
させるにはどういうふうに作成したらいいでしょうか？
教えてもらえたらと思います。宜しく御願いします

回答No.1

muran · ベストアンサー

こんにちわ
DateDiff関数で日数計算できると思いますヨ
(詳細はヘルプで見てみてください)

Dim StartDay as Date 'レンタル開始日
Dim ShanaiShime as Date '社内の締め
Dim OkyakuShime as Date 'お客様の締め
Dim lngDay_Shanai as Long
Dim lngDay_Okyaku as Long

'開始日～社内の締め日
lngDay_Shanai=DateDiff("d", StartDay , ShanaiShime)
'開始日～お客様の締め日
lngDay_Okyaku=DateDiff("d", StartDay , OkyakuShime)

・・・こんなかんじでどうでしょうか？

お礼

大変お返事おそくなりすみませんでした。
アドバイスありがとうございました。
活用させて頂いております。大変助かりました！！