Converting Text to Single

[sibe]

TT as a Text is equal
TT= "970531101235"
Then converted in P6 as below
P6 = CSng(TT)
Now P6 is equal 9.705311E+11
Which after formatting as below;
C6 = Format(P6, "#,####")
It is equal 970,531,100,000
And truncated so the last 5 digits converted to zero.
I want to convert TT to a complete Number(970,531,101,235 : Single Percision).
How could I solve the problem?

[orange]

I tried the following

Sub TTEST()
    Dim TT As String: TT = "970531101235"
    Dim p6 As Single, p7 As Double
    p6 = CSng(TT)
    p7 = CDbl(TT)
    Debug.Print TT & "  " & p6 & "   " & Format(p6, "###,###,###,###,###") _
                   & "  " & p7 & "   " & Format(p7, "###,###,###,###,###")
End Sub

With this result:

970531101235 9.705311E+11 970,531,100,000 970531101235 970,531,101,235


Good luck

[June7]

Be aware Format function returns a string, not a number. Tested in query:

CSng("970531101235") returns number = 970531078144

CDbl("970531101235") returns number = 970531101235

Int() returns same as CDbl()

VBA immediate window showed same.

Might find these interesting:

http://blabla.co.za/access-number-da...e-field-sizes/

https://support.office.com/en-us/art...f-b77bae076f70

[sibe]

I tried the following

Sub TTEST()
    Dim TT As String: TT = "970531101235"
    Dim p6 As Single, p7 As Double
    p6 = CSng(TT)
    p7 = CDbl(TT)
    Debug.Print TT & "  " & p6 & "   " & Format(p6, "###,###,###,###,###") _
                   & "  " & p7 & "   " & Format(p7, "###,###,###,###,###")
End Sub

With this result:

970531101235 9.705311E+11 970,531,100,000 970531101235 970,531,101,235


Good luck

=============================
Hi,
Many Thanks
Simply I used CDbl() and it solved
I could do some summation operations after conversion
Good luck

[sibe]

1234567890

[sibe]

Hi June7,
Many Thanks
Simply I used CDbl() and it solved
I could do some summation operations after conversion
I used Format() only for showing the conversion result.
Anyway it is very interesting that
"CSng("970531101235") returns number = 970531078144"
Since it is not my present moot point, I will pay to it later.
Good luck