Visual Basic - dias del mes

Life is soft - evento anual de software empresarial
 
Vista:

dias del mes

Publicado por Oscar (6 intervenciones) el 02/09/2004 00:31:04
hola ojala puedan ayudarme. como obtengo el número de dias que tiene un mes ?
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 del mes

Publicado por Dante (72 intervenciones) el 02/09/2004 03:42:24
No hay una función para esto, hay que usar un truco
Uno de los favoritos es el siguiente:
Si quieres saber cuantos dias tiene mayo, le restas 1 al primero de junio, asi:
diasmayo=cdate('01/06/04') -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

RE:dias del mes

Publicado por ruri (7 intervenciones) el 02/09/2004 04:51:14
Oscar:
Los obtenés mirando el almanaque. Los meses pares tienen 30 días y los impares 31. Febrero es una excepción fácil de controlar. Te paso un función

Private function DiasDelMes(Byval NumMes as long, optional Anio as long=0) as long
if NumMes=2 then
if anio=0 then anio=year
DiasDelMes=iif((anio mod 4) =0,29,28)
else
DiasDelMes=iif((NumMes mod 2) =0,30,31)
end if
end function

Saludos Ruri
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