Ver Mensaje Individual
  #1  
Antiguo 22-10-2008
Avatar de josi
josi josi is offline
Miembro
 
Registrado: feb 2008
Posts: 100
Reputación: 17
josi Va por buen camino
ayuda con suma de fechas

hola a todos despues de un largo tiempo sin conecxion

tengo un problema con la suma de fechas.

esto es para un form de un programa de prestamo lo que
quiero es que si el texto del edit16 'forma de pago es('mensual')
entonces desde la fecha de hoy se le sume 29 dias y luego que le sume los 29
dias a la fecha de hoy se le ponga en el edit17'fecha limite de pago' que es la fecha
que indica cuando seria su proximo pago. tengo este codigo:

Código Delphi [-]
var
s:tdatetime;
begin
if edit16.Text='mensual' then

s:=tdatetime (incday(now, 29));
edit17.Text:=datetostr(s);
 end;

pero entonces la fecha que me devuelve es
30/12/1899 y deviera de ser 21/11/2008

y cuando trato con este:
Código Delphi [-]
edit17.Text:= datetostr(incday(now, 29));
me devuelve la fecha correcta pero cuando 
lo trato de usar asi:
if edit16.text='mensual' then
edit17.Text:= datetostr(incday(now, 29));

no me devuelve nada.

tenia mucho que no me conectaba por problemas que tengo con
la compañia que provee el intenet
gracias..........
Responder Con Cita