In questo articolo, creeremo una funzione personalizzata per convertire le stringhe negative in un numero intero.
I dati grezzi per questo articolo sono costituiti da stringhe seguite da un segno meno (-).
Vogliamo convertire queste stringhe in numeri interi.
Spiegazione logica
In questo articolo, abbiamo creato una funzione personalizzata ConvertNegNumbers per convertire la stringa in numero intero. Questa funzione accetta un valore stringa come input e restituisce un intero come output.
Spiegazione del codice
Destra(Var, 1) = "-"
Il codice sopra viene utilizzato per verificare se l'ultimo carattere della stringa è uguale al segno meno (-).
ConvertiNegNumbers = CInt("-" & Left(Var, Len(Var) - 1))
Nel codice sopra, la funzione di sinistra viene utilizzata per estrarre tutti i caratteri nella stringa, tranne l'ultimo. La funzione CInt viene utilizzata per convertire il valore stringa in intero.
Si prega di seguire sotto per il codice
Opzione Funzione esplicita ConvertNegNumbers(Var As String) 'Verifica se l'ultimo carattere nella stringa è meno (-) If Right(Var, 1) = "-" Then 'Converte il valore della stringa in un intero negativo ConvertNegNumbers = CInt("-" & Left (Var, Len(Var) - 1)) Else 'Converte valore stringa in intero ConvertNegNumbers = CInt(Var) End If End Function
Se ti è piaciuto questo blog, condividilo con i tuoi amici su Facebook. Inoltre, puoi seguirci su Twitter e Facebook.
Ci piacerebbe avere tue notizie, facci sapere come possiamo migliorare il nostro lavoro e renderlo migliore per te. Scrivici al sito di posta elettronica