Visual Basic para Aplicaciones - Ayuda VBA

Life is soft - evento anual de software empresarial
   
Vista:

Ayuda VBA

Publicado por Federico (2 intervenciones) el 23/01/2009 18:48:55
Tengo problemas para programar esta funcion.
Tengo una fecha inicial , ej: jan-01 (celda a1)
Tengo una fecha final, ej: nov-08 (celda a2)
Quiero que automaticamente me arme la lista de todos los meses entre esas dos fechas
ej:
jan-01 (celda d1)
feb-01 (celda d2)
mar-01 (celda d3)
apr-01
may-01
jun-01
.
.
.
.
.
hasta nov-08
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
Imágen de perfil de JuanC

RE:Ayuda VBA

Publicado por JuanC (431 intervenciones) el 24/01/2009 10:44:11
pues simplemente debes ir sumando 28-29-30 o 31 días (según el caso) a la fecha inicial hasta llegar a la final (un ciclo do ... while o un for ... next)

Dim f As Date
f = "01/01/09"
f = f + 31
.....

Saludos desde Baires, JuanC
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

RE:Ayuda VBA

Publicado por Federico (2 intervenciones) el 26/01/2009 13:20:11
Gracias por la ayuda. La verdad es que soy nuevo en todo esto de la programacion en visual basics y me esta costando bastante sacar este programita. Se que se puede usar un ciclio pero el problema mas grande es que me reconozca que es un año bisiest. Si alguie puede pasarme exactamente el codigo tengo que ingresar para que me funcione el programa seria de mucha ayuda.

Muchas Gracias
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
Imágen de perfil de JuanC

RE:Ayuda VBA

Publicado por JuanC (431 intervenciones) el 26/01/2009 14:05:06
Const ReformYear As Integer = 1582

Public Function EsBisiesto(ByVal Anio As Integer) As Boolean
If Anio < ReformYear Then
EsBisiesto = True '//Antes de este año todos son bisiestos
Exit Function
End If

EsBisiesto = ((Anio Mod 4 = 0 And Anio Mod 100 <> 0) Or (Anio Mod 400 = 0))
End Function

Saludos desde Baires, JuanC
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