Diferencia de horas

[roman]

Empezado por jachguate

Eso si, la forma del cálculo, pues no es nada del otro mundo... no trato de atribuirme la idea original, pero si que soy el autor de estas.

Lo sé perfectamente. De hecho tú método me gusta más. Vamos, es cómo uno lo pensaría. Es curioso, pero al ver el código de borHoursBetween, borMinutesBetween, etc. me quedé pensando en como algunas cosas llegan a niveles absurdos de generalización. Si te has fijado en dicho código, que en esencia es el mismo, notarás que usan constantes como:

HoursPerDay = 24
MinsPerHour = 60
SecPerMin = 60
MSecsPerSec = 100

y me pregunto:

¿es que acaso existe la posibilidad de que en algún momento cambie el número de horas por día o el de minutos por hora????

O quizá es que mi visión es corta y no me doy cuenta de que se preparan para hacer cálculos una vez que poblemos Marte u otros planetas .

// Saludos

[jachguate]

pues al paso que vamos, se va a poblar primero la luna... pero alli cómo medirian los dias???

Ya en serio.. supongo que es para hacer legible el código...

Hasta luego.

[josesantho]

Este procedimiento lo obtube de una formula vieja que usaba en visual foxpro hace muchos year,, quizas le puede ser de ayuda:

lo que hago es que con los segundos que me resultan de : SecondsBetween,,hago todos los calculos para obtener las horas, minutos y segundos exactos..
ahi le va


var
a,b,c,d,e,,:integer;
q0,q1:string;
fl0:Currency;
begin

c := SecondsBetween(Queryhora1.Value,Queryhora2.Value) + 1;
b := (c div 3600);
q1 := inttostr(b);
Edit5.Text := IntToStr(c);
Edit2.Text := q1;

d := (c-(b*3600)) div 60;
fl0 := int(d);
Edit3.Text := CurrToStr(fl0);

e := (c mod 60) - 1;
Edit4.Text := IntToStr(e);

Esper que le sea de ayuda