Visual Basic - Ayuda con un codigo

Life is soft - evento anual de software empresarial
   
Vista:

Ayuda con un codigo

Publicado por jose (1 intervención) el 10/05/2014 18:56:29
Buenas necesito un ayuda con un codigo de un sistema que estoy realizando en Visual Basic 6.0 el cual se los muestro con un ejemplo para que entiendan mejor:

Estoy realizando un sistema numerico con forma de piramide invertida en base al dia, mes y año: 10-05-2014 en forma de piramide seria asi:

10052014
1057215
152936
67129
3831
114
25
7

Ahora como veran es un sistema con forma de piramide numerica invertida basada en sumar los digitos entre si, como la suma de los digitos que no contiene valo (0) dara un resultado de 2 digitos solo necesito tomar el valor del segundo digito o mejor dicho del lado derecho y asi sucesivamente hasta llegar a la punta que consta de un solo digito.

para ser un poco mas especifico, si los digitos son el 7 y el 5 y la suma de estos entre si da un resultado de 12 solo y unicamente necesito el valor 2 y asi sucesivamente pero no se como se hace en ese caso para que el programa no me tome los dos sino uno.
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

Ayuda con un codigo

Publicado por Juan Gilberto (277 intervenciones) el 11/05/2014 22:09:03
1
2
3
4
5
6
7
8
9
Dim Dig1 As Integer
Dim Dig2 As Integer
Dim Res  As Integer
Dim DigD As String
 
Dig1 = 7
Dig2 = 5
Res = Dig1 + Dig2
DigD = Right(Format(Res),1)
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