Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » Visual Basic » sumar un nº

Visual Basic - sumar un nº

Life is soft - evento anual de software empresarial
Volver
Nuevo Tema
<<>>
 
Vista:

sumar un nº

Publicado por juan (1 intervención) el 10/12/2003 13:15:12
como puedo hacer parasumar un nº
ej. minum=28610840
y quiero sumar todos los dig. 2+8+6+1+0+8+4+0
desde ya gracias es urgente
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:sumar un nº

Publicado por Cecilia Colalongo (3116 intervenciones) el 10/12/2003 15:04:11
Fijate con ésto:

Dim Numero As String, Suma As Double, i As Integer

Numero = CStr(28610840)

Suma = 0

For i = 1 To Len(Numero)
Suma = Suma + CInt(Mid(Numero, i, 1))
Next i

Debug.Print Suma
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar