Adding a Decimal Value

[Dimster]

I want to add a decimal value to a decimal value that was converted to a whole number. The method I'm using is similar to the accompanying code

Code: QB64: [Select]

1. DIM a AS _INTEGER64
2. a = .1234567 * 100000
3. b = a + .25
4. c = .25
5. d = a + c
6. PRINT a; b; d

The result I want to achieve is 1234567.25. The resulting number is then sent to a sorting routine after which the .25 is subtracted and the 1234567 is revered back to .1234567

[Dimster]

Sometimes I just amaze myself on how I can look at a  routine and see what I want to see and not see what is really there. My crucial variable was incorrectly dimensioned.

[AtomicSlaughter]

You can try this if you need to print a decimal place to screen, but you will have to convert your number into a string first using

Code: QB64: [Select]

1. a$ = STR$(variable)

first.

Code: QB64: [Select]

1. INPUT "enter a number", a$
2. Numeric_Decimal (a$)
3. PRINT a$
4.  
5. SUB Numeric_Decimal (a$)
6.  
7.     l = LEN(a$)
8.     penny$ = RIGHT$(a$, 2)
9.     IF LEN(LTRIM$(penny$)) = 1 THEN
10.         pound$ = "0"
11.         penny$ = "0" + LTRIM$(penny$)
12.         conv$ = pound$ + "." + penny$
13.         a$ = conv$
14.     ELSE
15.         pound$ = LEFT$(a$, (l - 2))
16.         conv$ = pound$ + "." + penny$
17.         a$ = conv$
18.     END IF
19.     IF LEN(conv$) = 3 THEN a$ = "0" + conv$
20. END SUB
21.