Grad <-> Fahrenheit (Formel)

[mkinzler]

Zitat:

Das habe ich doch auch geschrieben. ouch!

@Matze:Ich wollte eigentlich deine Aussage nur untermauern, da er so ungläubig geklungen hat.

[Matze]

Ich weiß, die Aussage war auch nicht an dich gerichtet.

Aber das Thema ist nun ja erledigt.

[hathor]

StdConvs unit

CelsiusToFahrenheit
FahrenheitToCelsius


http://www.delphibasics.co.uk/RTL.as...usToFahrenheit
http://www.delphibasics.co.uk/RTL.as...nheitToCelsius

function FahrenheitToCelsius(const AValue: Double): Double;
begin
Result := ((AValue - 32) * 5) / 9;
end;

function CelsiusToFahrenheit(const AValue: Double): Double;
begin
Result := ((AValue * 9) / 5) + 32;
end;