Problemilla de matematicas.

[CRIS]

No se como hacerlo, gracias a los tres.

Salu2.CRIS.

[roman]

Empezado por CRIS

Tengo label1 y label2 con este caption el label1 1:12:150 y 1:13:250 el label2

Una pregunta. ¿De dónde obtienen estos valores las etiquetas? Yo creo que sería mejor que buscaras la diferencia de tiempos en los valores originales en lugar de basar tu código en elementos de la interfaz de usuario.

// Saludos

[Neftali [Germán.Estévez]]

Empezado por CRIS

No se como hacerlo

Me reitero en lo dicho antes. Dinos qué es lo que no saber hacer. Danos algo más de info...

¿No entiendes las funciones?
¿No sabes cómo usarlas?
¿Te dan error (y qué error te dan)?
¿No te dan error, pero no te funciona?

La verdad es que 4 palabras -del último mensaje- (sin contar las gracias y el saludo) es muy poca información.

[CRIS]

Los datos los pillo de un fichero.ini que me bajo de internet, el label1 pilla el dato del ini y el label2 pilla el dato de un fichero de texto que esta encriptado, lo que necesito es comparar los dos tiempos y si es mayor de dos segundos que me devuelva un mensaje de, la vuelta rapida supera en dos segundos el record de la pista.

Neftali estas dos cosas son las que me ocurre ¿No entiend las funciones?
¿No se cómo usarlas?

pd. el saludo y las gracias nunca pueden faltar.

Salu2.CRIS.

[CRIS]

Código Delphi [-]
procedure TForm1.SpeedButton1Click(Sender: TObject);
var recordpista,vueltarapida,Diferencia:TTime;
begin
recordpista:=StrToTime(label1.caption);
vueltarapida:=StrToTime(label2.caption);
Diferencia:=recordpista-vueltarapida;
label3.caption:=TimeToStr(Diferencia);
end;
end.

Hasta aqui llego chicos, pero me da horas minutos y segundos.

[ContraVeneno]

Supongo que de "diferencia" tendrías que usar DecodeDateTime para obtener los segundos y luego una simple comparación para ver si es mayo o no a 2 segundos. DecodeDateTime viene muy bien explicado en la ayuda de delphi, presionando F1 sobre la palabra. O tal vez solo comparando Dierencia.

[OSKR]

DecodeTime(StrToTime("00:"+label1->Caption),h1,m1,s1,ms1);
DecodeTime(StrToTime("00:"+label2->Caption),h1,m2,s2,ms2);
if( abs(((m1*60*1000+s1*1000+ms1)-(m2*60*1000+s2*1000+ms2))/(1000*60)) >= 2)
 //hay por lo menos 2 segundos de diferencia

[[Héctor Randolph]]

Al menos en Delphi7 existe la función MinutesBetween, que devuelve la diferencia en minutos entre dos variables tipo TDateTime.

Empezado por Ayuda de Delphi

MinutesBetween

Returns the number of minutes between two specified TDateTime values.

Unit

DateUtils

Category

date/time routines

Description

Call MinutesBetween to obtain the difference, in minutes, between two TDateTime values. MinutesBetween counts only entire minutes. Thus, MinutesBetween reports the difference between 9:00:00 AM and 9:00:59:999 AM as 0 because the difference is one millisecond short of an entire minute.

Un saludo