Change worksheet radian default

[Scrungie]

Is there an easy way to change the worksheet radian default to degrees
so that I don´t have to use the 180/PI or PI/180 or the degrees
function.

The following is a formula to derive the Log Haversine of the number
30,

Log((1-Cos(30*PI()/180)))/2)+10

and the following is to derive the number 30 from the Log Haversine,

(Acos(1-(10^((D18-10))*2))*180/PI())/24 D18 being the cell
with the log haversine.

Surely there is an easier way to get a log haversine than this. Any
help will be most appreciated.

Scrungie.

 

[JE McGimpsey]

There's no way to change the default. However, you could use the
RADIANS() function:

=LOG((1-COS(RADIANS(30)))/2)+10

You could also use a UDF, which will be cleaner, though slower:

Public Function CosD(degrees As Double) As Double
Const dRad As Double = 0.0174532925199433
CosD = Cos(degrees * dRad)
End Function

call it as

=LOG((1-CosD(30))/2)+10

and of course, you could put it all in a UDF:

Public Function LogHaversine(degrees As Double) As Double
Const dRad As Double = 0.0174532925199433
LogHaversine = Log((1 - Cos(degrees * dRad)) / 2) / Log(10) + 10
End Function

if you're not familiar with UDFs see

http://www.mvps.org/dmcritchie/excel/getstarted.htm