Add period-based exchange rates.

2023-03-31 20:59:04 +02:00 · 2023-03-31 20:59:04 +02:00 · 2bbaa1da9f
commit 2bbaa1da9f
parent e9745bc64a
2 changed files with 13 additions and 3 deletions
--- a/members-payments.scm
+++ b/members-payments.scm
@ -41,9 +41,18 @@
 	 member-record
 	 members-base
 	 bank-fio
-
 	 dictionary
-	 member-fees)
+	 member-fees
+	 period)
+
+ ;; Exchange rates
+ (define exchange-rates-lookup-table
+   (make-period-lookup-table
+    '(((2010 1) 25))))
+
+ ;; Lookup CZK/EUR
+ (define (lookup-eur-rate)
+   (car (lookup-by-period exchange-rates-lookup-table)))

 ;; Extract probable member-id from transaction
 (define (transaction-extract-member-id transaction)