Problemilla de matematicas.

CRIS · #1 12-11-2005

Solucionado bajando los tiempos en el ini en milisegundos:

Código Delphi [-]procedure TForm1.SpeedButton1Click(Sender: TObject);
var
tiempo1:variant;
tiempo2:variant;
nValor,ErrCode:Integer;
begin
tiempo1:=edit2.text;
tiempo2:=edit3.Text;
diferenciavuelta.Text:= (tiempo2)-(tiempo1);
val(diferenciavuelta.Text,nValor,Errcode);
    if nValor > StrToInt('2000') then
    mensaje.Caption:='Vuelta Mala, 2 Seg +'
    else
    mensaje.Caption:='Vuelta Buena';
 if diferenciavuelta.Text='2000' then mensaje.Caption:='Vuelta Mala, 2 Seg +';

end;

end.

Muchas gracias a todos y un Salu2.CRIS.

[Lepe] · #2 12-11-2005

CRIS, ten cuidado, ese código es "muy perezoso", y puedes tener muchos problemas con él. Deberías leer de nuevo las soluciones que te han propuesto.

Razones:

- Val intenta convertir el diferencia.Text en Nvalor, si no se puede convertir, Devuelve el ErrCode, que despues no lo usas para nada, El valor que tenga nvalor puede estar indefinido, o peor aún, será cero, indicando que ha hecho la mejor vuelta posible, cuando en realidad no es cierto.

- Estas realizando conversiones innecesarias:
if nValor > StrToInt('2000')

quizás if nValor > 2000

- Que jamás se ejecute tu programa entre las 23:59:00 y las 0:00:00, como no controlas las fechas, dará casi 24 horas de diferencia.

Por tus mensajes, deduzco que tienes prisas en terminarlo. Para el reloj y estudia las funciones de fechas, vienen muy bien en la ayuda, y si despues tienes preguntas, estaremos por aquí.

saludos