Ver Mensaje Individual
  #2  
Antiguo 01-07-2008
erikmx erikmx is offline
Miembro
 
Registrado: nov 2007
Posts: 40
Reputación: 0
erikmx Va por buen camino
Antes de que me agarren a piedrazos

Era el cansancio que traigo acumulado que las neuronas no me dejaban pensar de manera razonable, ya descubri mi fatal error, yo estaba dividiendo entre el valor de conversion, cuando debo de multiplicar

No me quedo muy elegante pero por ahora me es funcional para lo que necesito si alguie lo quiere pulir un poco pues bienvenida la ayuda por mientras aqui mi solucion de 3 centavos

Código Delphi [-]
var
  Form1: TForm1;
  MinutosX, SegundosX, MilisegundosX, MicrosegundosX, NanosegundosX: Extended;

implementation

{$R *.dfm}

Procedure TForm1.Minutos2Segundos;
begin
MinutosX:= StrToFloat(Minutos.Text)*60;
Segundos.Text:= FloatToStr(MinutosX);
end;

Procedure TForm1.Segundos2Milisegundos;
begin
SegundosX:= StrToFloat(Segundos.Text)*1000;
Milisegundos.Text:= FloatToStr(SegundosX);
end;

Procedure TForm1.Milisegundos2Microsegundos;
begin
MilisegundosX:= StrToFloat(Milisegundos.Text)*1000;
Microsegundos.Text:= FloatToStr(MilisegundosX);
end;

Procedure TForm1.Microsegundos2Nanosegundos;
begin
MicrosegundosX:= StrToFloat(Microsegundos.Text)*1000;
Nanosegundos.Text:= FloatToStr(MicrosegundosX);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Minutos2Segundos;
Segundos2Milisegundos;
Milisegundos2Microsegundos;
Microsegundos2Nanosegundos;
end;

end.
Responder Con Cita