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.