Funciones de fecha y hora - III

DatePart( )

' Sintaxis
DatePart(TipoIntervalo, Fecha)

Extrae la parte de una fecha indicada en TipoIntervalo. Podemos obtener, el día, mes, año, día de la semana, etc.

El Código fuente 202 muestra un conjunto de ejemplos que utilizan las funciones para manipular fechas que hemos descrito anteriormente.

Dim MiFecha As Date
Dim FechaPosterior As Date
Dim DiasDiferencia As Long
Dim ParteFecha As Integer
MiFecha = Now() ' #1/19/2002 12:27:08 PM#
FechaPosterior = DateAdd(DateInterval.Month, 2, MiFecha) ' #3/19/2002 12:27:08 PM#
DiasDiferencia = DateDiff(DateInterval.Day, MiFecha, FechaPosterior) ' 59
ParteFecha = DatePart(DateInterval.Year, MiFecha) ' 2002

Código fuente 202