.jpg)
Fecha de publicación: 02/11/2014
Función en Visual Basic 6.0. que nos devuelve el último día de un mes. Sólo hay que pasarle el mes y el año.
Public Function Devolver_Ultimo_Dia_Mes(Mes As Integer, Año As Integer) As Integer
Select Case Mes
Case 4, 6, 9, 11
Devolver_Ultimo_Dia_Mes = 30
Case 2
If Año Mod 100 = 0 Then
Devolver_Ultimo_Dia_Mes = 28
ElseIf Año Mod 4 = 0 Then
Devolver_Ultimo_Dia_Mes = 29
Else
Devolver_Ultimo_Dia_Mes = 28
End If
Case Else
Devolver_Ultimo_Dia_Mes = 31
End Select
End Function