Función para determinar el último día de mes

imagen principal 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

Si te gusta este artículo compártelo en las redes sociales

Comentarios

No se han publicado comentarios

Publicar un comentario

Introduzca un comentario

Nombre:
Comentario:
Introduce los números
de la imagen de arriba
Introducir

Si te gusta o te es útil esta página puedes hacer una donación para permitir su mantenimiento