資産管理スクリプト

前回 OpenOffiece スプレッドシートでの管理に挫折した。自分でプログラムを書いて管理することに。
Scheme で書く。自前処理系は残念ながら小数の計算が出来ないので Ypsilon で。

(define asset* (list (make-asset "1306" 1170 20081001 10 'japan-stock)
                     (make-asset "1306" 1160 20081002 80 'japan-stock)
                     (make-asset "STAM Global Index" 0.6603 20081007 15145 'global-stock)
                     (make-asset "STAM Global Bond" 0.9129 20081007 10945 'global-bond)))

(define price-set* (list (make-price-set 20081010 '(("1306" . 917)
                                                    ("STAM Global Index" . 0.5718)
                                                    ("STAM Global Bond"  . 0.8812)))))

上のように購入時の情報と特定の日付の価格を用意して、あれこれ集計してくれるもの。
現時点では、資産のバランスを百分率で計算するだけ。続きは月曜日。