Numero de dias en un mes y bisiesto!!!!!!!

[doolphyy]

Que tal sala, he leeido varias cosas, mas no me he encontrado publicado con el problema que tengo, a ver sino estoy queriendo hacer cosas que no.
Expongo:
Deseo saber cuantos dias trae un determinado mes, es mes que yo le envie a una determinada función, existe alguna función que me devuelva el numero de dias de un mes???
De igual forma, no he encontrado alguna función que me diga si el año que yo le diga, tiene mes bisiesto o no???

He programado en WEB y existen funciones que permiten realizar estas comparaciones, pero en Visual Basic no he encontrado la función para consegui esto, puedo obtener la fecha en curso, el dia, el mes o el año, pero hasta ahorita no he encontrado la función que me diga lo antes descrito.

Agradeciendo su atención te antemano quedo de ustedes.

Saludos.

[Mosiah]

No se si existe dicha función pero te puedes crear tu propia función que te diga si un año es bisiesto o no.
Para saber si un año es bisiesto solo necesitas saber si el resto de dividir el año entre 4 es igual a 0.

Lo mismo para los días de un mes.

[Skalitiko]

Puedes ocupar las funciones Day y Dateadd. Por ejemplo:

private sub Command1_Click()
Dim F as date
dim dia as byte
f=format(#01/01/2005#,"Short Date") ' Seteo la fecha al primer día del mes del cual quiero saber la canridad de días
f=DateAdd("M",1,F) ' le agrego un mes a la fecha para que quede en 01/02/2005
f=DateAdd("d",-1,f)' Le quito un día a la fecha para que me de el último día del mes del cual quiero saber la cantidad de días
dia = Day(f)' extraigo el día de la fecha
msgbox "El mes " & Month(f) & ", tiene " & dia & " días"

End Sub

[neikex]

para que un mes sea bisiesto tienes que comprobar dos cosas:
que sea multiplo de 4 y no sea multiplo de 100
o que sea multiplo de 400
seria algo como:
if mod(año,4)=0 AND mod(año,100)!=0 OR mod(año,400)=0 then 'lo que sea

Para saber los dias que tiene un mes si no usas funciones puedes crearte tu mismo una que compruebe el numero del mes que es y con select case pos indicas los meses que tienen 31, 30 o 28.

Espero aberme explicao bien

[MANOLO MAD]

Hola,

Aquí tienes un ejeplo:

Function DiasDelMes(Fecha as String) as Long
Select Case Month(Fecha)
Case 2
If Bisiesto(Year(Fecha)) = True Then
Dia = 29
Else
Dia = 28
End If
Case 1, 3, 5, 7, 8, 10, 12
Dia = 31
Case Else
Dia = 30
End Select

DiasDelMes = Dia
End Function

Function Bisiesto(Num As Integer) As Boolean
If Num Mod 4 = 0 And (Num Mod 100 Or Num Mod 400 = 0) Then
Bisiesto = True
Else
Bisiesto = False
End If
End Function

Espero que te sirva.

Un saludo.

[GeoAvila]

bueno aqui hay ejemplo bastante sencillo

solo ingresas la fecha alguna fecha del mes que queres saber la fecha y listo..

Código:

Private Sub Command1_Click()
MsgBox DaysInMonth(Date)
End Sub
 Public Function DaysInMonth(dteInput As Date) As Integer
DaysInMonth = DateAdd("m", 1, dteInput) - dteInput
End Function