Francisco
24 de Noviembre del 2003

Hola amigos por favor ayudenme con algo necesito calcular la fecha de cumpleaños de un cliente en el form tengo un txt en el cual ingreso la fecha del cliente y lo guardo en la BDD pero quiero que ese registro me compare con la fecha actual para saber cuantos dias o meses faltan para su cumpleaños, por favor si alguien tiene algun ejemplo de este tipo le agradeseria explicarmelo..... mil gracias y saludos

Alex
24 de Noviembre del 2003

Quetal Francisco.

Podes controlar los cumpleaños de tus compañeros y clientes asi:

** Proba con esto en el Command Window para que veas como funciona.
STORE {^2003-11-29} to dlCumple
STORE DATE() TO dlHoy

STORE 5 TO nDiasMensaje

IF dCumple-dHoy=nDiasMensaje
=MESSAGEBOX('Hoy es Cumpleaños del Sr. Perez')
ENDIF



** Esto podes ponerlo en el Evento Timer de un objeto Timer en tu form
STORE Clientes.dCumple TO dlCumple
STORE DATE() TO dlHoy
STORE SystControl.nDiasToMansaje TO nDiasMensaje

IF dlCumple-dlHoy=nDiasMensaje
=MESSAGEBOX('Hoy es Cumpleaños del Sr. Perez')
ENDIF


** Si tenes muchos clientes o compañeros, podes crear un reporte
STORE DATE() TO dlHoy
STORE SystControl.nDiasToMansaje TO nDiasMensaje
STORE dlHoy + nDiasMensaje TO dlDias

SELECT cNombre, cCompany, cDireccion FROM Clientes WHERE dCumple = dlDias to printer

Espero te sirva


Alex Vargas