Removing Decimal

[tekvaio]

Decimal
I'm in need of a script that will remove the decimal point of a number. For example: 13.22 -->> 1322 or 13.2 -->>13.20 or 13 -->> 1300 I'm unsure on how to do this.
Submitted by tekvaio (Programmer) on Jun 6, 2005

 

[EBGreen]

strNew = Replace(strOld, ".", "")

[red]"... isn't sanity really just a one trick pony anyway?! I mean, all you get is one trick, rational thinking, but when you are good and crazy, oooh, oooh, oooh, the sky is the limit!" - The Tick[/red]

 

[PHV]

Why not simply newValue=CLng(100*oldValue) ?

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[EBGreen]

With that I think you would need to count the digits after the decimal to determine what to multiply by.

[red]"... isn't sanity really just a one trick pony anyway?! I mean, all you get is one trick, rational thinking, but when you are good and crazy, oooh, oooh, oooh, the sky is the limit!" - The Tick[/red]

 

[tekvaio]

This is what I used:
dim sourcetype
dim targettype

'Read in the source field
sourcetype = Records("[PersonInstruction!Instruction!Amount!AmountValue]Fixed").Fields("Value")
targetype = sourcetype * 100

targettype

it worked, it did not display any decimal points.
Thanks
TV

 

[EBGreen]

As long as your data never goes past the hundreths position.

[red]"... isn't sanity really just a one trick pony anyway?! I mean, all you get is one trick, rational thinking, but when you are good and crazy, oooh, oooh, oooh, the sky is the limit!" - The Tick[/red]

 

[tekvaio]

And if it does, what else can I do?

 

[EBGreen]

If you know that the data will always be numbers potentially with a decimal then you could do
strNew = Replace(strOld, ".", "")

[red]"... isn't sanity really just a one trick pony anyway?! I mean, all you get is one trick, rational thinking, but when you are good and crazy, oooh, oooh, oooh, the sky is the limit!" - The Tick[/red]

 

[earthandfire]

TomThumbKP, surely CLng converts the number to a Long.

13.23456 * 100 = 1323.456

CLng(1323.456) = 1323

but CLng(1323.546) = 1324

To avoid rounding Fix(1323.546) = 1323

Hope this helps.

 

[EBGreen]

It is possible that I do not understand the end result, but I thought the desired result was to take any number that is provided and remove the decimal point from it. If that is the desired result, then this should work:

Replace(sourcetype, ".", "")

[red]"... isn't sanity really just a one trick pony anyway?! I mean, all you get is one trick, rational thinking, but when you are good and crazy, oooh, oooh, oooh, the sky is the limit!" - The Tick[/red]

 

[tekvaio]

The Desired result is to have a implied decimal right justified... Must contain the same numbers(no rounding) 1222.33 -> 122233 or 1222.333 -> 1222333
Multiplying by 100 will only be correct for values with a hundreth of a decimal

 

[EBGreen]

The replace solution that I gave will do that.

[red]"... isn't sanity really just a one trick pony anyway?! I mean, all you get is one trick, rational thinking, but when you are good and crazy, oooh, oooh, oooh, the sky is the limit!" - The Tick[/red]

 

[tsuji]

Try this.
[tt]a=123456.7890123456
n=16 'fixed length
b=left(replace(a,".","")&string(n,"0"),n)
wscript.echo b
[/tt]
string is used for "big" number case.