Excel Avanzado

Macros, Vba en Excel y muchos ejemplos de nuestro Curso de Excel Avanzado

Excel Avanzado
Funcion Dateserial, Función DateSerial

Función DateSerial

| 9 comentarios

Utilidad:
Devuelve un valor Date que representa un año, mes y día específicos, con la información de la hora establecida en medianoche (00:00:00).

-------------------------------
Public Function DateSerial( _
ByVal [Year] As Integer, _
ByVal [Month] As Integer, _
ByVal [Day] As Integer _
) As DateTime
-------------------------------

Parámetros:

Year
Obligatorio. Expresión Integer entre 1 y 9999. Sin embargo, los valores por debajo de este intervalo también se aceptan. Si Year está entre 0 y 99, se interpreta como si estuviera entre 1930 y 2029, tal y como se explica en la sección "Comentarios" que aparece a continuación. Si Year es menor que 1, se sustrae del año actual.
Month
Obligatorio. Expresión Integerentre 1 y 12. Sin embargo, los valores fuera de este intervalo también se aceptan. El valor de Month tiene un desplazamiento de 1 y se aplica al mes de enero del año calculado. En otras palabras, (Month - 1) se agrega al mes de enero. Si es necesario, se vuelve a calcular el año. Los resultados siguientes ilustran este efecto:
  • Si Month es 1, el resultado es el mes de enero del año calculado.
  • Si Month es 0, el resultado es el mes de diciembre del año anterior.
  • Si Month es -1, el resultado es el mes de noviembre del año anterior.
  • Si Month es 13, el resultado es el mes de enero del año siguiente.
Day
Obligatorio. Expresión Integerentre 1 y 31. Sin embargo, los valores fuera de este intervalo también se aceptan. El valor de Day tiene un desplazamiento de 1 y se aplica al primer día del mes calculado. En otras palabras, (Day - 1) se agrega al primer día del mes. Si es necesario, se vuelven a calcular el mes y el año. Los resultados siguientes ilustran este efecto:
  • Si Day es 1, el resultado es el primer día del mes calculado.
  • Si Day es 0, el resultado es el último día del mes anterior.
  • Si Day es -1, el resultado es el penúltimo día del mes anterior.
  • Si Day pasa del final del mes actual, el resultado es el día adecuado del mes siguiente. Por ejemplo, si Month es 4 y Day es 31, el resultado es el día 1 de mayo.

Ejemplo:

Sub Cumpleano()
'
Dim MiCumpleano As Date
' MiCumpleano contiene la fecha del 5 de Enero de 1974.
MiCumpleano = DateSerial(1974, 1, 5)   ' Return a date.
MsgBox MiCumpleano
End Sub

Elaborado por: Jorge Quispe

9 comentarios

Deja una respuesta

Los campos requeridos estan marcados con *.