What does # after an integer means?

[Sun_Force]

I saw the following code in a database. What does # after an integer means?
(It was used in a Select Case statement)

Case 0.8, 1#, 1.2, 1.6, 2#

thank you.

 

[CJ_London]

don't know about access, but in excel it is used to state the number should be treated as a double i.e. 1.0, 2.0

 

[theDBguy]

Should be the same, since it's VBA.

Double data type

VBA language reference

docs.microsoft.com

 

[arnelgp]

' arnelgp
' Suffix meaning in variables or constants:
' variable declaration
'
'   $   string
'   %   integer
'   &   long
'   #   double
'   @   currency, decimal
'   ^   longlong
'   !   single

 

[Sun_Force]

Thanks for the replies. But still I can't understand.
If I run the following code, I receive a "Test passed" message box although the variable is integer and not double.

Sub test()
    
    Dim test As Integer
    test = 1
    
    Select Case test
        Case 0.8, 1#, 1.2, 1.6, 2#
            MsgBox "Test Passed"
        Case Else
        
    End Select
    
End Sub

The result is exactly the same as when I use

Case 0.8, 1, 1.2, 1.6, 2

 

[arnelgp]

it will passed regardless if it is double,single, integer, double as long as they are Exactly the same
in magnitude.

but if you declare "test"

Dim test As Integer
test = 1
Debug.Print Vartype(test) = vbDouble
'result is False

Remember what we are enquiring on the Case statement is the Value
and not the Datatype of the variable.

 

[Sun_Force]

So if they all pass the test, as a result, using 1# or 2# is meaningless.
Isn't that so?

 

[arnelgp]

So if they all pass the test, as a result, using 1# or 2# is meaningless.
Isn't that so?

i believe so.
But.. see the other numbers. they all have decimals. the
author of the code is only being explicit on the datatype.

you can write 0.8# for 0.8 , but since It Already has decimal,
suffixing it with "#" is rather redundant.
only 1 and 2 are suffxied with # (to clearly emphasized that
all in the list are double values).

 

[Sun_Force]

Thank you.

 

[isladogs]

See if this helps...
The limits for Long datatype numbers are -2147483648 to 2147483647.
Paste this into a standard module and run it

Sub NumberTest()

Dim L As Long
L = 2147483646
Debug.Print L + 1
End Sub

You will as expected see 2147483647 in the immediate window.
Now set L=2147483647 & run again. You will get an overflow error and the result is outside the limits
So far, nothing unexpected

Finally enter L =2147483648 and press Enter. Note what happens. Does it make sense to you?

NOTE Using Debug.Print CDbl(L) + 1 will work in all three cases