Funzione CLng

Restituisce un'espressione convertita in una variabile Variant di sottotipo Long.

Sintassi

CLng(expression)

Note

L'argomento (expression) è qualsiasi espressione valida.

Utilizzare la funzione CLng per fornire conversioni riconosciute a livello internazionale da qualsiasi altro tipo di dati a un sottotipo Long. Ad esempio, diversi separatori decimali vengono riconosciuti correttamente a seconda delle impostazioni nazionali del sistema, così come i diversi separatori delle migliaia.

Se l'espressione non rientra nell'intervallo accettabile per il sottotipo Long, si verifica un errore.

Nell'esempio seguente viene utilizzata la funzione CLng per convertire un valore in un valore di tipo Long.

Esempio 1

Dim MyVal1, MyVal2, MyLong1, MyLong2
MyVal1 = 25427.45: MyVal2 = 25427.55   ' MyVal1, MyVal2 are Doubles.
MyLong1 = CLng(MyVal1)   
'Output: 25427
MyLong2 = CLng(MyVal2)   
'Output: 25428

Esempio 2

Dim MyString, MyLong
MyString = "123456.78"    
MyLong = CLng(MyString)   
'Output: 123457

Esempio 3

Dim MyLocaleString
MyLocaleString = "12.345,67"   ' Locale-specific decimal separator.
MyLong = CLng(MyLocaleString)  ' Convert to Long, interpreted based on locale.
'MyLong contains the correctly interpreted long value within locale settings

Esempio 4

MyDouble = 2.6
MyLong = CLng(MyDouble)   ' 2.6 rounds to 3.
'Output: 3

Esempio 5

MyDouble = 2.4
MyLong = CLng(MyDouble)   ' 2.4 rounds to 2.
'Output: 2

Esempio 6

MyDouble = 1.5
MyLong = CLng(MyDouble)   ' 1.5 rounds to 2 (nearest even number).
'Output: 2

Esempio 7

MyDouble = 0.5
MyLong = CLng(MyDouble)   ' 0.5 rounds to 0 (nearest even number).
'Output: 0