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.
Entradas
