日割金額について。

質問

すみません。
アクセス2000の超初心者です。

聞きたい事があるのですが、なんて聞いたら良いのか…。
「日割金額を一覧にして出したい」のです。
…なんのこっちゃですよね。
えっとですね、
「元金額」と
「○○年○○月○○日」～「□□年□□月□□日」と日付を打ち込むと
○○月○○日⇒￥○,○○○　(日割金額)
△△月△△日⇒￥△,△△△　(日割金額)
□□月□□日⇒￥□,□□□　(日割金額)
　　　.
　　　.
　　　.　
…見たいな感じが良いのですが、分かりますでしょうか？

もしかしたらすごく高度な技法の質問しているのかもしれませんが、
宜しくお願い致します！！

回答No.3

nicotinism · ベストアンサー

たとえばフォームに非連結テキストボックスを配置してそれぞれの名前を
いつから
いつまで
金額
とします。

コマンドボタンを1個配置して、そのクリック時イベントに
Call Hibarai(me!金額,me!いつから,me!いつまで)
と記述して呼び出せば・・

回答No.2

nicotinism

Alt + F11 をおしてVBE（Bisual Basic Editor)の画面を出します
メニューから、挿入 → 標準モジュールを選択
新たなウィンドウが開きますので下記をコピペ

Function hiBarai(dblVal As Double, DateFrom As Date, DateTo As Date)
Dim i As Integer
Dim dblMod As Double
Dim dblS As Double
Dim ff As Integer

If Dir(CurrentProject.Path & "\日割り.csv") <> "" Then
If MsgBox("以前のファイルがあります。上書きする？", vbOKCancel) = vbCancel Then
Exit Function
End If
End If

ff = FreeFile
i = DateDiff("d", DateFrom, DateTo) + 1
dblMod = dblVal Mod i
dblS = dblVal \ i

Open CurrentProject.Path & "\日割り.csv" For Output As #ff
Write #ff, Format(DateFrom, "yyyy/mm/dd"), dblS + dblMod

For DateFrom = DateFrom + 1 To DateTo
Write #ff, Format(DateFrom, "yyyy/mm/dd"), dblS
Next
Close #ff

MsgBox "終了"
End Function

次に、Ctrl + G を押してイミディエイトウィンドウを出してそこに下記をコピペ
?hibarai(10000,#2006/6/1#,#2006/6/9#)
これにカーソルが乗っている状態でEnter すると
日割り.csv がMDBと同じフォルダに出来ますのでExcelなどで開いてみてください。
初心者にはツライかもしれません。

お礼

返答ありがとうございます！
…本当に難しいですね。
とりあえず書かれてあった通りやってみたら出来ました。
なぜそうなったかは分かりませんが…。

私には高度すぎるようです（笑）

これをどぉ使ったらよいのでしょうか？
出来れば解説していただきたいのですが
お手数ですがお願い致します。

回答No.1

nicotinism

利子はどうするのですか？
利子の計算方法は色々有ったような・・

補足

遅くなりましてすみません。
利子はありません。

やっぱり難しいことなんでしょうか？
それさえもわからないので…。