Curso gratis de Lazarus Free Pascal - introducción.

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.

IDE LAZARUS

Lazarus es una herramienta de desarrollo rápido de aplicaciones (RAD) basada en el lenguaje de programación Object Pascal, disponible para los sistemas operativos Windows, GNU/Linux y Mac OS X.

Se trata de una alternativa libre y gratuita a Delphi, desarrollada como proyecto de software libre a partir de Free Pascal. La web y la mayoría de la documentación están en inglés, pero el entorno de desarrollo (IDE) sí está traducido al español en gran parte.

Compatibilidad con bases de datos

Lazarus es compatible con varios motores de bases de datos, sin embargo el desarrollador debe instalar paquetes adicionales para gestionar cada uno. El programador puede acceder a la base de datos mediante código o bien arrastrando componentes en un formulario visual. Los componentes de la base de datos representan campos y son conectados por la correcta configuración de propiedades a un TDataSource, que representa una tabla y es también conectado a los componentes de la base de datos, ya sea TPSQLDatabase, TSQLiteDataSet o algún otro.

Los siguientes motores de bases de datos son compatibles:

• PostgreSQL requiere el paquete PSQL
• dBase y FoxPro pueden ser usados sin necesidad de un servidor externo o biblioteca mediante el componente TDbf
• MySQL funciona correctamente
• SQLite, necesita sólo una simple biblioteca externa y el componente TSQLiteDataSet
• Microsoft SQL Server, funciona con la biblioteca ZeosLib
• InterBase / Firebird, componente de acceso nativo, también trabaja con ZeosLib
• Oracle, también trabaja con ZeosLib

Licencia

Aunque el software Lazarus está licenciado bajo la GPL, el software desarrollado mediante el uso de esta herramienta puede ser distribuido bajo alguna otra licencia. La biblioteca de componentes de Lazarus (LCL) se vincula estáticamente dentro de los programas y es licenciada usando una versión modificada de la LGPL diseñada especialmente para permitir vinculaciones estáticas a programas propietarios.

Nótese que instalar un paquete en tiempo de diseño equivale a vincular al IDE. Distribuir el IDE Lazarus junto a paquetes en tiempo de diseño con una licencia no compatible con GPL (por ejemplo, MPL) preinstalados podría suponer una violación de licencia. Aparte de esto, se puede construir paquetes propietarios de Lazarus siempre que no se distribuyan un Lazarus preinstalado con ellos.

Distribución CodeTyphon

Esta distribución de Lazarus incluye: el entorno Lazarus, el compilador FPC (Free Pascal Compiler), herramientas, componentes gratuitos y librerías gratuitas.

Está disponible para Linux y para Windows.

En esta dirección web se puede descargar dicha distribución y ampliar la información sobre ella.

Véase también

• Free Pascal
• Delphi

Enlaces externos

• Sitio web oficial del proyecto Lazarus (en inglés)
• Documentación oficial del proyecto Lazarus(en inglés) (en castellano)
• Foro de Lazarus Foro sobre Free Pascal y el entorno integrado Lazarus, en español.
• Hispalazarus Foro de Lazarus & Free Pascal
• Editor Simple UTF8 Videos eduactivos de: ¿Cómo hacer un editor UTF8 en Linux con Lazarus?
• CodeTyphon Lazarus+FreePascal+Herramientas+Free Components packages+Free Libraries y todo con codigo fuente y ejemplos