!!!Duda sobre cálculos de fechas !!!

[ecfisa]

Hola Darkseratul.

Sigo sin entenderte muy bién, pero a ver si lo que andas buscando es algo así...

Código Delphi [-]
begin
  ShowMessage(Format('%s %d %s %d %s',
              ['Transcurrieron: ',
               DaysBetween(Now, DateTimePicker1.Date),
               ' días. Restan: ',
               102-DaysBetween(Now, DateTimePicker1.Date),
               ' días']));
end;

Saludos.

[[Delphius]]

A ver... no se de donde sale esos 102.
La hago fácil: dadas dos fechas, la cantidad de días entre ellos como ya te indicaron se puede obtener con DaysBetween().
Por tanto, la cantidad de días que faltan de la fecha menor a la mayor es justamente esa cantidad.
La pregunta aquí es ¿De donde (disculpen mi vocabulario) carajos sale los 102?

De tu imagen yo entiendo esto:
1) El usuario selecciona una fecha, llamemosla Fecha1
2) Se obtiene la fecha actual del sistema, llamemosla Fecha2
3) "Cuantos días quedan" o "cuantos días para terminar" indica resta o diferencia. Entonces simple: DaysBetween(). El resultado puede ser 101, 102, 365... 0.

Si a lo mejor en vez de aventar las oraciones sueltas, una a una, te tomaras la molestia de pensar tus palabras primero y reordenaras tus ideas podrías elaborar un buen párrafo, con sus debidos signos de puntuación (o al menos cuidando lo mejor posible) podríamos hacer una mejor lectura.

Es más, te propongo algo lijeramente diferente: en vez de aventarnos TU problema explica textualmente lo que debe hacer el usuario, el porqué, su para que, es decir: una descripción del objetivo. Olvidémosnos de fecha1, fecha2, daysbetween, etc. Hablemos: porqué esos 102, ¿que significan? ¿Para que se necesita hacer? ¿Cuál es el propósito, el fin último? Explica el contexto, y la idea y el problema (tu problema en realidad) saldrá a la vista.

Saludos,

[[maeyanes]]

Hola...

Según entiendo, la solución de Caro es lo que el compañero busca: http://www.clubdelphi.com/foros/show...55&postcount=4


Saludos...

[Darkseratul]

gracias por su ayuda amigos

Se que de vi estructurar bien el problema

Por te de la solución la ha dado Caro a un que por lo mismo que no me se explicar tampoco lo entiendo bien

El problema es este

fecha1 es la que captura el usuario
fecha2 fecha actual del sistema

limite 102 días (el proceso solo dura 102 días)

En la aplicación tengo que hacer un proceso general que cuente los días
el cual empieza con la fecha1 se compara con la fecha2 y el resultado es cuanto días lleva de los 102 días que se tienen de limite

espero a verme explicado, por que es lo mejor que puedo

muchas gracias Caro,Delphius,oscarac y en especial ecfisa que siempre me ayuda a un cuando no me explico bien te debo una parrillada

[Darkseratul]

la solución de caro es la como yo quería es genial y muchas gracias a todos los demás que siempre me ayudan a un que no me se explicar

Código Delphi [-]
var
 Fecha, FechaS: TDateTime;
 DiasP, DiasF : Integer;
begin
 Fecha := DataSet.FieldByName('fecha').AsDateTime; 
 FechaS :=IncDay(Fecha, 102);
 
 DiasP := DaysBetween(Now, Fecha);
 DiasF := DaysBetween(FechaS, Now); 
 
 Label.Caption := 'Han pasado :'+IntToStr(DiasP)+' días faltan '+IntToStr(DiasF)+' días'+;

Muchas gracias a todos