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

A PHP Error was encountered

Severity: Core Warning

Message: PHP Startup: Unable to load dynamic library 'mongodb.so' (tried: /opt/cpanel/ea-php74/root/usr/lib64/php/modules/mongodb.so (libicuuc.so.50: cannot open shared object file: No such file or directory), /opt/cpanel/ea-php74/root/usr/lib64/php/modules/mongodb.so.so (/opt/cpanel/ea-php74/root/usr/lib64/php/modules/mongodb.so.so: cannot open shared object file: No such file or directory))

Filename: Unknown

Line Number: 0

Backtrace: