Saludos
Cita:
Empezado por zugazua2001
mi problema es que no tengo esa unidad.
|
Oops.
Cita:
Empezado por zugazua2001
De donde la puedo bajar¿?
|
Ni la menor idea pero puede hacer esto: Feo, pero es lo que se me ocurre ahora
Código Delphi
[-]
var
fecha,tfecha:TDate;
dia,mes,ano:word;
begin
fecha:=now; DecodeDate(fecha,ano,mes,dia);
inc(mes);
tfecha:=EncodeDate(ano,mes,dia);
showmessage(copy(DateToStr(tfecha+2-fecha),1,2));
Si alguien puede mejorarlo, agradecido estaré