資産管理スクリプト
前回 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)))))
上のように購入時の情報と特定の日付の価格を用意して、あれこれ集計してくれるもの。
現時点では、資産のバランスを百分率で計算するだけ。続きは月曜日。