ciclo for anidado en while
Publicado por kevin (4 intervenciones) el 30/11/2016 16:35:34
tengo este codigo la idea es que cuando los dos dias sean iguales me sume 300 es decir
entoces lo que ocupo es q cuando fecha-ingreso = fecha-pago el ciclo se repita n (es una vaiable) cantidad de veces para que mes a mes me sume 300 y cuando se cumpla esa cantidad de veces de repeticion me manda un msg box terminado
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
''' dia de pago dia que me paga alquiler
''dia de hoy '= hoy() y con una formula saco el dia
Public sub acumulador()
Dim resultado as integer
Dim fecha-ingreso as StingDim fecha-pago as stringdim meses_de_contrato as integer
Range("a1") = fecha-ingreso
Range("a2")= fecha-pago
Range("a3") = meses_de_contrato ' ejemplo 12 meses entonces repitame el ciclo 12 veses
White fecha-ingreso = fecha-pago ' solo una vez al mes se cumple esta condicion cuando los dias coincidan
Then
i=0For i + 300Resultado= inext
End while
entoces lo que ocupo es q cuando fecha-ingreso = fecha-pago el ciclo se repita n (es una vaiable) cantidad de veces para que mes a mes me sume 300 y cuando se cumpla esa cantidad de veces de repeticion me manda un msg box terminado
Valora esta pregunta
0
