ltimo digito

Hola foro, les hago una consulta se puede obtener el ultimo dgito de un entero por ejemplo de 6534 el 4? hay alguna forma de hacerlo, saludos

Dim I As Integer = 6534

'ltimo dgito = t
Dim t As String = Right(Str(i), 1)

Si el entero es muy gordo, se puede hacer

'ltimo dgito = t Dim t As String = Right(Format(i, "###"), 1)

Generalmente lo manejo as como string, pero tambin es posible matemticamente con:

(Ojo: Se divide con \ ‘integer division’ y no /, aunque se puede usar Floor(t/10)*10 que es ms reconocible)

En este ejemplo evaluara como
't=6534-(6530) // igual a 4 ’