Función para fechas

[Alexandro]

Hola:
Hace unos dias que tengo una duda con los campos Date (Fecha) de las tablas Paradox7.
Estoy creando un programa para contratos de trabajo. Como saben los contratos son por tiempo definido. Yo quiero que cuando un contrato sea creado por 12, 3, 6, 9 meses o más o menos, sumarselo a la fecha en que se realizó y así obtengo la fecha del fin del contrato. Lo que quiero saber es si hay alguna funcion que me permita hacer esto. Espero que me ayuden.
Gracias de antemano

[[enecumene]]

Hola, no sé si en paradox acepta función SQL:

Código SQL [-]
select dateadd(month, 3, Campo_fecha);

en delphi puedes hacer algo como:

Código Delphi [-]
Edit1.text := Datetostr(Datetime.date + 90); //sumo tres meses equivalente en dias

También revisa la función MonthToStr.

Saludos.

[Alexandro]

Gracias por tu respuesta Enecumene. Me ha servido de mucho.
Nos vemos.

[marcoszorrilla]

También puedes actuar sobre el campo en concreto aprovechando su evento OnChange.

Código Delphi [-]
Vencimiento.Value:=MiCampoFecha.Value * nMeses * 30;

nMeses lógicamente sería una variable en donde se le pediría al usuario que introdujera el número de meses, también sería conveniente controlar que la fecha no sea nula.

Un Saludo.

[[enecumene]]

Empezado por marcoszorrilla

También puedes actuar sobre el campo en concreto aprovechando su evento OnChange.

Código Delphi [-]Vencimiento.Value:=MiCampoFecha.Value * nMeses * 30;


nMeses lógicamente sería una variable en donde se le pediría al usuario que introdujera el número de meses, también sería conveniente controlar que la fecha no sea nula.

Un Saludo.

Muy bueno Marcos, no lo había visto de esa forma, lo tendré presente,

Saludos.