Sección de códigos , trucos y ejemplos para visual basic

134 - Algunas funciones útiles sobre fechas

<Volver> - Anterior - Siguiente

Contenido

Funciones varias para fechas
Calcular el día anterior a una fecha determinada
Valores para pasar al argumento Interval
Enlaces relacionados

Ejemplos para trabajar con fechas en visual basic

El siguiente ejemplo tiene 5 funciones para obtener:

La cantidad de días de un año determinado
Calcular la cantidad de días de un mes específico
Averiguar si un día corresponde a un fin de semana
Averiguar el último día de un Mes determinado
Averiguar el último día de una semana

Controles:

Agregar para el ejemplo 5 CommandButton: Command1, Command2, Command3, Command4 y Command5

Código fuente en un form

Private Sub Command1_Click() MsgBox Dias_del_Año(2006) & " días" End Sub Private Sub Command2_Click() MsgBox Dias_Del_Mes("05/09/2006") & " días" End Sub Private Sub Command3_Click() MsgBox es_Fin_de_Semana(Date) End Sub Private Sub Command4_Click() MsgBox fin_del_Mes(Date) End Sub Private Sub Command5_Click() MsgBox fin_de_Semana(Date) End Sub Private Sub Form_Load() Command1.Caption = " Cantidad de Dias de un Año " Command2.Caption = " Cantidad de Días de un Mes " Command3.Caption = " Fin de semana ? " Command4.Caption = " Obtener último día de un Mes " Command5.Caption = " Obtener último día de una semana " End Sub 'Funciones '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' 'Calcula la cantidad de días de un año Public Function Dias_del_Año(ByVal valor As Variant) As Integer If IsDate(valor) Or _ IsNumeric(valor) Then Dias_del_Año = IIf(saltarYear(valor), 366, 365) End If End Function Public Function saltarYear(ByVal valor As Variant) As Boolean On Error GoTo LocalError Dim iYear As Integer If IsDate(valor) Then iYear = Year(valor) Else iYear = CInt(valor) If TypeName(iYear) = "Integer" Then saltarYear = Day(DateSerial(iYear, 3, 0)) = 29 End If Exit Function LocalError: End Function 'Calcula la cantidad de días de un mes de una fecha determinada 'La fecha debe tener el formato mm/dd/yyyy 'Si no se pasa el parámetro se asume la fecha de hoy Public Function Dias_Del_Mes(Optional ByVal Fecha As Variant) As Integer Dim mes As Integer, y As Integer If IsMissing(Fecha) Then Fecha = Date If IsDate(Fecha) Then y = Year(Fecha) mes = Month(Fecha) ElseIf IsNumeric(Fecha) Then y = Year(Date) mes = IIf(Fecha > 0 And Fecha < 13, CInt(Fecha), 0) ElseIf VarType(Fecha) = vbString Then y = Year(Date) Select Case UCase(Left$(Fecha, 3)) Case "FEB": mes = 2 Case "JAN", "MAR", "MAY", "JUL", "AUG", "OCT", "DEC": mes = 1 Case "APR", "JUN", "SEP", "NOV": mes = 4 End Select End If Select Case mes Case 2: Dias_Del_Mes = IIf(saltarYear(Fecha), 29, 28) Case 1, 3, 5, 7, 8, 10, 12: Dias_Del_Mes = 31 Case 4, 6, 9, 11: Dias_Del_Mes = 30 End Select End Function 'Devuelve si un determinado día corresponde a un fin de semana Public Function es_Fin_de_Semana(ByVal Fecha As Variant) As Boolean If IsDate(Fecha) Then If (Weekday(Fecha) = 1) Or (Weekday(Fecha) = 7) Then es_Fin_de_Semana = True End If End If End Function 'Devuelve el último días del Mes Public Function fin_del_Mes(Fecha As Variant) As Date If IsDate(Fecha) Then fin_del_Mes = DateAdd("m", 1, Fecha) fin_del_Mes = DateSerial(Year(fin_del_Mes), Month(fin_del_Mes), 1) fin_del_Mes = DateAdd("d", -1, fin_del_Mes) End If End Function 'Devuelve el último día de la semana Function fin_de_Semana(ByVal Fecha As Date) As Date If IsDate(Fecha) Then fin_de_Semana = FormatDateTime(Fecha - Weekday(Fecha) + 7, vbGeneralDate) End If End Function

Calcular el día anterior a una fecha determinada.

formulario

Colocar en el form

un control MasKed edit control
un Text1
un Commandbutton

Código fuente

Private Sub Command1_Click() ' resultado de la fecha Text1.Text = DateSerial(Year(MaskEdBox1), Month(MaskEdBox1), 0) End Sub Private Sub Form_Activate() Command1.Caption = "Obtener fecha" MaskEdBox1.SetFocus End Sub Private Sub Form_Load() ' máscara Form1.MaskEdBox1.Mask = "##/##/##" End Sub

Valores para pasar al argumento Interval

Tres funciones de Visual basic para el cálculo de fechas requieren un argumento llamado Interval, esas funciones son : DateAdd, DateDiff y DatePart.

Este argumento es una expresión de cadena ( un valor de tipo String) que indica si se hace referencia a un año, día, mes, hora, minuto etc ..

Los valores mínimos que devolverán o se le podrán asignar dependiendo de la función a utilizar son los siguientes

"yyyy" : Indica Año - El rango de Valores puede ser desde el año 100 hasta el 9999
"q" : Indica un cuatrimestre - Los posibles valores pueden ser de 1 a 4
"m" : Indica un mes - Los posibles valores pueden ser de 1 a 12
"y" : Indica un día del año - Los posibles valores pueden ser de 1 a 366
"d" : Indica un día del mes - Los posibles valores pueden ser de 1 a 31
"w" : Indica un día de la semana - Los posibles valores pueden ser de 1 a 7
"ww" : Indica el número de semana en el año - Los posibles valores pueden ser de 1 a 53
"h" : Hora - Los posibles valores pueden ser de 0 a 23
"n" : Minuto - Los posibles valores pueden ser de 0 a 59
"s" : segundo - Los posibles valores pueden ser de 0 a 59

Algunos ejemplos para pasar al argumento Interval con las funciones DateDiff y DateAdd

' -- DateDiff : Devuelve el número de intervalos de tiempo entre dos fechas determinadas ' -- DateAdd : Devuelve un Variant que contiene una fecha que indica el intervalo de tiempo que se ha agregado Dim dValueDate As Date ' ----------------------------------------------- ' -- yyyy' con DateAdd ' ----------------------------------------------- ' -- Agregar dos años a la fecha "01/01/2008" -- Retorna "01/01/2010" dValueDate = "01/01/2008" MsgBox DateAdd("yyyy", 2, dValueDate) ' ----------------------------------------------- ' -- yyyy' con DateDiff ' ----------------------------------------------- ' -- Obtener la cantidad de años entre dos fechas -- Retorna 8 años MsgBox DateDiff("yyyy", "01/01/2001", "01/01/2009") ' ----------------------------------------------- ' -- h' con DateDiff ' ----------------------------------------------- ' -- Obtener la cantidad de horas entre dos tiempos -- Retorna 2 horas de diferencia MsgBox DateDiff("h", "19:22:30", "21:22:30") ' ----------------------------------------------- ' -- h' con DateAdd ' ----------------------------------------------- ' -- Agregar 2 Horas al valor de Hora actual MsgBox TimeValue(DateAdd("h", 2, Time)) ' ----------------------------------------------- ' -- d' con DateAdd ' ----------------------------------------------- ' -- Agregar 90 días a la fecha "01/01/2009" -- Retorna 1 de Abril de 2009 MsgBox DateAdd("d", 90, "01/01/2009")

Recursos vb 6.0 - enlaces relacionados

Funciones para fechas - Tutorial de vb

Buscar en Recursos vb