Visual Basic - DIAS DE UN MES

Life is soft - evento anual de software empresarial
   
Vista:

DIAS DE UN MES

Publicado por JULIOESCOBAR (58 intervenciones) el 29/01/2008 18:35:43
NECESITO OBTENER LOS DIAS DE UN MES A DETALLE, POR EJEMPLO: ENERO TIENE 31 DIAS Y QUE SE GUARDEN LOS DATOS DEL MES EN UNA TABLA ASI: 01-01-08 , 02-01-08, 03-01-08......HASTA LLEGAR AL 31-01-08 , GRACIAS DE ANTEMANO
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:DIAS DE UN MES

Publicado por cmgcharli (128 intervenciones) el 30/01/2008 10:16:41
Sub DiasAño()

Dim MiFecha as Variant
Dim MiMes as byte
MiMes=1
MiFecha="01-" & MiMes& "-2008"
Do Until MiMes>12

MiFecha=CDate(Format(MiFecha,"dd-mm-yyyy"))

Do Until Month(MiFecha)<>MiMes
MiFecha=MiFecha+1
Loop

MiMes=MiMes+1

Loop

MiMes=1
End Sub

Nota: Cuando sale de aqui se ha reecorrido todos los dias del año del 2008 y MiFecha Valdra 01/01/2009 y como MiMes valdra 13 se le vuelve a poner en 1 para el año 2009 en la variable MiFecha se van obteniendo cada uno de los dias de los respectivos meses
Espero que te sirva??????
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