Manejo de fecha y hora.

 En esta entrada encontrarás varias funciones útiles para el manejo de fechas y horas.

• Función para el manejo de fechas.

function GetDate(const dExpression: TDate; dType: Integer): Integer; var Day, Month, Year : Word; begin DecodeDate(dExpression,Year,Month,Day); Result := 0; case dType of 1 : Result := Year; 2 : Result := Month; 3 : Result := Day; end; end;

Con la función anterior podemos obtener el, AÑO, MES O DÍA de una fecha.

Solo basta pasar como parámetros  la fecha y el tipo de resultado que deseamos, 1 = Año, 2 = Mes y 3 = Día.

 Ejemplo: 

 nYear    = GetDate(Date, 1); // Nos devuelve como resultado el año de la fecha actual.

 nMonth = GetDate(Date, 2); // Nos devuelve como resultado el mes de la fecha actual.

 nDay     = GetDate(Date, 3); // Nos devuelve como resultado el dia de la fecha actual.

• Función para el manejo del Tiempo.

function GetTime(const tExpression: TDateTime; tType: Integer): Integer; var Hour, Minute, Second, MilSecond : Word; begin DecodeTime(tExpression,Hour,Minute,Second,MilSecond); Result := 0; case tType of 1: Result := Hour; 2: Result := Minute; 3: Result := Second; 4: Result := MilSecond; end; end;

Con la función anterior podemos obtener el, LA HORA, MINUTO, SEGUNDO O MILISEGUNDO de una fecha tipo Time.

Solo basta pasar como parámetros  la fecha tipo Time (TDateTime) y el tipo de resultado que deseamos, 1 = Hora, 2 = Minuto, 3 = Segundo, 4 = Milisegundo.

 Ejemplo: 

 nHour       = GetTime(Date, 1); // Nos devuelve como resultado la hora de la fecha actual.

 nMin        = GetTime(Date, 2); // Nos devuelve como resultado el minuto de la fecha actual.

 nSec         = GetTime(Date, 3); // Nos devuelve como resultado el segundo de la fecha actual.

 nMilSec   = GetTime(Date, 4); // Nos devuelve como resultado el milisegundo de la fecha actual.

• Función para obtener la edad de una persona.

function Getage(const dExpresion: TDate): Integer; var f1, f2 : TDate; DateDiff : float; begin f1 := dExpresion; f2 := Date; DateDiff := (f2-f1)/365.2; Result := floor(DateDiff); end;

Con la función anterior podemos obtener la edad exacta de una persona.

Solo basta pasar como parámetro  la fecha de nacimiento de la persona.

 Ejemplo: 

dFechaNac = strToDate('10-13-1984')

 nEdad       = GetAge(dFechaNac); // Nos devuelve como resultado la edad.

Gracias por visitar este Blog, comparte si te ha sido de ayuda, para que otros se beneficien también.