Currency: Difference between revisions
Content added Content deleted
Line 782: | Line 782: | ||
<syntaxhighlight lang="futurebasic"> |
<syntaxhighlight lang="futurebasic"> |
||
local fn Lunch_Invoice( burger_price as CFStringRef, burger_amount as CFStringRef, shake_price as CFStringRef, shake_amount as CFStringRef, tax as CFStringRef ) |
local fn Lunch_Invoice( burger_price as CFStringRef, burger_amount as CFStringRef, shake_price as CFStringRef, shake_amount as CFStringRef, tax as CFStringRef ) |
||
'~'1 |
|||
⚫ | |||
DecimalNumberRef burgerPriceDecimal = fn DecimalNumberWithString( burger_price ) |
|||
DecimalNumberRef burgerAmountDecimal = fn DecimalNumberWithString( burger_amount ) |
|||
DecimalNumberRef burgersDecimal = fn DecimalNumberByMultiplyingBy( burgerPriceDecimal, burgerAmountDecimal ) |
|||
DecimalNumberRef shakePriceDecimal = fn DecimalNumberWithString( shake_price ) |
|||
DecimalNumberRef shakePriceDecimal = fn DecimalNumberWithString( shake_price ) |
|||
DecimalNumberRef shakeAmountDecimal = fn DecimalNumberWithString( shake_amount ) |
|||
DecimalNumberRef shakesDecimal = fn DecimalNumberByMultiplyingBy( shakePriceDecimal, shakeAmountDecimal ) |
|||
DecimalNumberRef taxDecimal = fn DecimalNumberWithString( tax ) |
|||
⚫ | |||
DecimalNumberRef subtotalDecimal = fn DecimalNumberByAdding( burgersDecimal, shakesDecimal ) |
|||
DecimalNumberRef taxTotalDecimal = fn DecimalNumberByMultiplyingBy( subtotalDecimal, taxDecimal ) |
|||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
CFStringRef burgersString = fn DecimalNumberString( burgersDecimal ) |
|||
CFStringRef shakesString = fn DecimalNumberString( shakesDecimal ) |
|||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
printf @"Milkshakes %6s %18s %18s", fn StringUTF8String( shake_price ), fn StringUTF8String( shake_amount ), fn StringUTF8String( shakesString ) |
|||
⚫ | |||
printf @"%@", fn StringByPaddingToLength( @"", 55, @"-", 0 ) |
|||
printf @"Milkshakes %6s %18s %18s", fn StringUTF8String( shake_price ), fn StringUTF8String( shake_amount ), fn StringUTF8String( shakesString ) |
|||
printf @"%@", fn StringByPaddingToLength( @"", 55, @"-", 0 ) |
|||
printf @"%34s %@", fn StringUTF8String( @"Subtotal:" ), fn DecimalNumberString( subtotalDecimal ) |
|||
printf @"%35s %@", fn StringUTF8String( @" Tax: " ), fn StringSubstringToIndex( taxTotalString, len(taxTotalString) - 3 ) |
|||
printf @"%34s %@", fn StringUTF8String( @" Total:" ), fn StringSubstringToIndex( billTotalString, len(billTotalString) - 3 ) |
|||
end fn |
end fn |
||
NSLog( @"%@", fn WindowPrintViewString( 1 ) ) |
|||
fn Lunch_Invoice( @"5.50", @"4000000000000000", @"2.86", @"2", @"0.0765" ) |
|||
HandleEvents |
HandleEvents |
||
Line 819: | Line 821: | ||
Milkshakes 2.86 2 5.72 |
Milkshakes 2.86 2 5.72 |
||
------------------------------------------------------- |
------------------------------------------------------- |
||
Subtotal: 22000000000000005.72 |
Subtotal: 22000000000000005.72 |
||
Tax: 1683000000000000. |
Tax: 1683000000000000.44 |
||
Total: 23683000000000006. |
Total: 23683000000000006.16 |
||
</pre> |
</pre> |