Capturar valores

[pabje]

Hola a todos

Queria preguntar si conocen un funcion en visula basic 6.0 que devuelva el ultimo dia de un mes del año actual , o la cantidad de dias de un mes del año actual.

Si conocen una funcion le agredeciria si me pudieran informar.

Si no existe una funcion como yo me podria capturar , cualquiera de esos 2 valores.

[seba123neo]

Hola,el ultimo dia del Mes:

Código:

Private Sub Form_Load()
MsgBox Dias(3, 2008)
End Sub

Private Function Dias(ByVal Mes As Long, ByVal Año As Long) As Long
Dias = Day(DateSerial(Año, Mes + 1, 0))
End Function

cantidad de dias de un mes:

Código:

Private Sub Form_Load()
MsgBox Dias(3, 2008)
End Sub

Function Dias(ByVal Mes As Long, ByVal Año As Long) As Long
Dias = Day(DateSerial(Año, Mes + 1, 0))
End Function

Function Bisiesto(ByVal Año As Long) As Boolean
Bisiesto = Dias(2, Año) = 29
End Function

saludos.