Currency: Difference between revisions
Content added Content deleted
MaiconSoft (talk | contribs) (Added Delphi example) |
(Added an example based on the Bankster library) |
||
Line 409: | Line 409: | ||
(println " Tax: " (mf/format tax)) |
(println " Tax: " (mf/format tax)) |
||
(println " Total with tax: " (mf/format (ma/plus pre-tax tax))))</lang> |
(println " Total with tax: " (mf/format (ma/plus pre-tax tax))))</lang> |
||
{{out}} |
|||
<pre> |
|||
Total before tax: $22,000,000,000,000,005.72 |
|||
Tax: $1,683,000,000,000,000.44 |
|||
Total with tax: $23,683,000,000,000,006.16</pre> |
|||
{{libheader|io.randomseed/bankster}} |
|||
<lang clojure>(require '[io.randomseed.bankster.money :as m]) |
|||
(let [burgers (m/mul #money[USD 5.50] 4000000000000000) |
|||
milkshakes (m/mul #money[USD 2.86] 2) |
|||
pre-tax (m/add burgers milkshakes) |
|||
tax (m/with-rounding UP (m/mul pre-tax 0.0765))] |
|||
(println "Total before tax: " (m/format pre-tax)) |
|||
(println " Tax: " (m/format tax)) |
|||
(println " Total with tax: " (m/format (m/add pre-tax tax))))</lang> |
|||
{{out}} |
{{out}} |