numbers... - GameCreators Forum

Author

Message

Allie

16

Years of Service

User Offline

Joined: 5th Jan 2008

Location: Melbourne, Aus

Posted: 19th Jan 2008 12:03 Edited at: 21st Jan 2008 09:05

Link

Just wanted to know how to convert a integer number to a dollar value, thanks for the reply its much appreciated.

Back to top

Profile PM

BMacZero

18

Years of Service

User Offline

Joined: 30th Dec 2005

Location: E:/ NA / USA

Posted: 19th Jan 2008 18:32 Edited at: 19th Jan 2008 18:34

Link

So you have an integer and you want to make it a money amount? In that case, use something like this:

Edit: I modified it into a function so you can use it easily:

+ Code Snippet

number=1934

returnstring$=ConvertToMoney(number)

`Print it so you can see that it worked
print moneyamount$
wait key
end



function ConvertToMoney(number)

`Make the integer into a string
moneyamount$=str$(number)

`Add the dollar sign to the front (because I don't know how to do a pounds sign)
moneyamount$="$"+moneyamount$

`Put a period before the last two numbers
`This saves the last two digits in a seperate string
moneyamountright$=right$(moneyamount$,2)
`This removes them from the original
moneyamount$=left$(moneyamount$,len(moneyamount$)-2)
`This adds the period in
moneyamount$=moneyamount$+"."
`And finally, this tacks the last two digits back on
moneyamount$=moneyamount$+moneyamountright$

endfunction moneyamount$

[i]"Grow food in dirt? Save time — eat dirt."[i]

Back to top

Profile PM Email Website

Allie

16

Years of Service

User Offline

Joined: 5th Jan 2008

Location: Melbourne, Aus

Posted: 19th Jan 2008 19:02

Link

Fantastic thanks

Back to top

Profile PM

Allie

16

Years of Service

User Offline

Joined: 5th Jan 2008

Location: Melbourne, Aus

Posted: 19th Jan 2008 19:38 Edited at: 19th Jan 2008 21:00

Link

Back to top

Profile PM

BMacZero

18

Years of Service

User Offline

Joined: 30th Dec 2005

Location: E:/ NA / USA

Posted: 19th Jan 2008 19:49

Link

Ah, sorry about that, I got two strings mixed up when I changed it into a function. This should work:

+ Code Snippet

number=1934

returnstring$=ConvertToMoney(number)

`Print it so you can see that it worked
print returnstring$
wait key
end



function ConvertToMoney(number)

`Make the integer into a string
moneyamount$=str$(number)

`Add the dollar sign to the front (because I don't know how to do a pounds sign)
moneyamount$="$"+moneyamount$

`Put a period before the last two numbers
`This saves the last two digits in a seperate string
moneyamountright$=right$(moneyamount$,2)
`This removes them from the original
moneyamount$=left$(moneyamount$,len(moneyamount$)-2)
`This adds the period in
moneyamount$=moneyamount$+"."
`And finally, this tacks the last two digits back on
moneyamount$=moneyamount$+moneyamountright$

endfunction moneyamount$

[i]"Grow food in dirt? Save time — eat dirt."[i]

Back to top

Profile PM Email Website

Benjamin

22

Years of Service

User Offline

Joined: 24th Nov 2002

Location: France

Posted: 20th Jan 2008 06:17

Link

Why have you removed your original post?

Multisync - TCP Server/Client Multiplayer Plugin (DBP/DBCe)

Back to top

Profile PM Email

BMacZero

18

Years of Service

User Offline

Joined: 30th Dec 2005

Location: E:/ NA / USA

Posted: 20th Jan 2008 16:01

Link

Yes, it's nice for other people to know what you asked so they can benefit from the answer.

[i]"Grow food in dirt? Save time — eat dirt."[i]

Back to top

Profile PM Email Website

Allie

16

Years of Service

User Offline

Joined: 5th Jan 2008

Location: Melbourne, Aus

Posted: 20th Jan 2008 16:54 Edited at: 20th Jan 2008 21:02

Link

sorry...Just wanted to know how to convert a integer number to a dollar value, thanks for the reply its much appreciated.

Back to top

Profile PM

Dabbler

17

Years of Service

User Offline

Joined: 3rd Mar 2007

Location: Minnesota

Posted: 20th Jan 2008 18:22

Link

Try this one:

+ Code Snippet

number=1934

money$=money_maker(number)

center text screen width()/2,screen height()/2,money$
wait key
end

function money_maker(n)
   m$="$"+str$(n/100)+"."+left$("0",(n mod 100)<10)+str$(n mod 100)
endfunction m$

Whatever...

Back to top

Profile PM

Sven B

19

Years of Service

User Offline

Joined: 5th Jan 2005

Location: Belgium

Posted: 20th Jan 2008 19:32

Link

and

+ Code Snippet

n = 1935
center text screen width()/2, screen height()/2, "$" + str$(n*0.01, 2)
wait key
end

?

Though it is DBP...

It's the programmer's life:
Have a problem, solve the problem, and have a new problem to solve.

Back to top

Profile PM Email

Allie

16

Years of Service

User Offline

Joined: 5th Jan 2008

Location: Melbourne, Aus

Posted: 20th Jan 2008 21:03

Link

wow thanks for the replys, much appreciated they are excellent.

Back to top

Profile PM

TDK

Retired Moderator

22

Years of Service

User Offline

Joined: 19th Nov 2002

Location: UK

Posted: 21st Jan 2008 01:26

Link

Can you edit the OP please to put your original question back - just in case anyone else asks the same question in the future.

I'll edit the topic title when you've done it...

TDK_Man

* TDK's Game Programming Forums - Open To All - DB & Team Request Boards *

Back to top

Profile PM Email Website

Allie

16

Years of Service

User Offline

Joined: 5th Jan 2008

Location: Melbourne, Aus

Posted: 21st Jan 2008 12:50

Link

the code from sven b,

+ Code Snippet

n = 1935
center text screen width()/2, screen height()/2, "$" + str$(n*0.01, 2)
wait key
end

Is there a way to round off the extra numbers displayed? it says $19.3500001835, im guessing its mixing your code with dabblers code? if i use int, it shows only 19, thanks for help, al

Back to top

Profile PM

Sorry your browser is not supported!

Newcomers DBPro Corner / numbers...