Cita:
Empezado por escafandra
Código Delphi [-]
function CurrToGra(Val: Extended): AnsiString;
var
V: Currency;
begin
Result:= IntToStr(Floor(Val)) + '° ';
V:= (Val - Floor(Val)) * 60;
Result:= Result + IntToStr(Floor(V)) + #39 + #32;
V:= (V - Floor(V)) * 60;
Result:= Result + CurrToStr(V) + #39 + #39;
end;
Saludos.
|
Muchas gracias,
Tambien necesito convertir ese mismo numero a valor de Hora, minuto y segundo, de esta forma
12h 16' 56"
Saludos