Último digito

  1. 7 months ago

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

  2. Ramon S

    20 Apr 2017 Pre-Release Testers, Xojo Pro UPC, Europe (Barcelona, Spain)

    Dim I As Integer = 6534

    'Último dígito = t
    Dim t As String = Right(Str(i), 1)

  3. Michel B

    20 Apr 2017 Pre-Release Testers, Xojo Pro
    Edited 7 months ago

    Si el entero es muy gordo, se puede hacer

    'Último dígito = t
    Dim t As String = Right(Format(i, "###"), 1)
  4. Vaughn C

    20 Apr 2017 Pre-Release Testers Tropic of Cancer

    Generalmente lo manejo así como string, pero también es posible matemáticamente con:

    t=t-((t\10)*10)

    (Ojo: Se divide con \ 'integer division' y no /, aunque se puede usar Floor(t/10)*10 que es más reconocible)

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

or Sign Up to reply!