brmlab/hackerbase
4
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Convert Fio dates to ISO dates.

Browse source
This commit is contained in:
Dominik Pantůček 2023-03-31 21:49:59 +02:00
parent 2daf2c6ea8
commit d3efbaa82d
1 changed files with 8 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

9
bank-fio.scm
View file

@ -38,11 +38,18 @@
csv-simple csv-simple
progress) progress)
;; Conversion of Fio date to ISO
(define (fio-date->iso str)
(string-intersperse
(reverse
(string-split str "."))
"-"))
;; Converts Fio account statement transaction row into standardized ;; Converts Fio account statement transaction row into standardized
;; bank transaction structure. ;; bank transaction structure.
(define (make-fio-transaction row) (define (make-fio-transaction row)
(let ((id (string->number (car row))) (let ((id (string->number (car row)))
(date (cadr row)) (date (fio-date->iso (cadr row)))
(amount (string->number (amount (string->number
(string-translate* (caddr row) (string-translate* (caddr row)
'(("," . "."))))) '(("," . ".")))))