SHOW:
|
|
- or go back to the newest paste.
| 1 | let dotransaction(filename:string,accountNumber:int,currentBalance:string) = | |
| 2 | - | let transactions = loadfile filename |
| 2 | + | let transactions = loadfile filename |
| 3 | - | let balancearr = currentBalance.Split('.')
|
| 3 | + | let balancearr = currentBalance.Split('.')
|
| 4 | - | let kr = System.Int32.Parse(balancearr.[0]) |
| 4 | + | let kr = System.Int32.Parse(balancearr.[0]) |
| 5 | - | let cent = System.Int32.Parse(balancearr.[1]) |
| 5 | + | let cent = System.Int32.Parse(balancearr.[1]) |
| 6 | - | let myAcc = new MyAccount(accountNr = accountNumber, accountCent = cent, accountKr = kr) |
| 6 | + | let myAcc = new MyAccount(accountNr = accountNumber, accountCent = cent, accountKr = kr) |
| 7 | - | for itr in transactions do |
| 7 | + | for itr in transactions do |
| 8 | - | match itr.AccountNr with |
| 8 | + | match itr.AccountNr with |
| 9 | - | //här är problemet. accountNumber och itr.AccountNumber matchas alltid oavsett vad |
| 9 | + | //här är problemet. accountNumber och itr.AccountNumber matchas alltid oavsett vad |
| 10 | - | // itr.accountnr eller accountnumber är. |
| 10 | + | // itr.accountnr eller accountnumber är. |
| 11 | - | | accountNumber -> myAcc.ChangeBalance(itr.amountOfKr,itr.amountofCent) |
| 11 | + | | accountNumber -> myAcc.ChangeBalance(itr.amountOfKr,itr.amountofCent) |
| 12 | - | | _ -> printfn "%s" "Do not match" |
| 12 | + | | _ -> printfn "%s" "Do not match" |
| 13 | - | let result = myAcc.accountKr.ToString()+"."+myAcc.accountCent.ToString() |
| 13 | + | let result = myAcc.accountKr.ToString()+"."+myAcc.accountCent.ToString() |
| 14 | - | result |
| 14 | + | result |
