erro no resultado

[Read_Mynd]

Pessoal mais uma questao, tenho esta função, com d= 66 o dec era para dar 23.3244... mas da-me -17, qual sera o meu erro, não estou a ver erro nenhum.

Public Function Declinacao()

Dim d As Double

Dim dec As Double

d = Cells(1, 1)

dec = 23.45 * Sin(360 / 365 * (284 + d))

Cells(1, 2) = dec

obrigado

[jmaocubo]

Verifica bem a tua expressão:

coloquei exactamente:  23.45 * Sin(360 / 365 * (284 + 66))

e:

em radianos: -8.474

em graus: -5.988

????

Será que sou eu que estou a dizer matematicamente uma barbaridade? (já não uso trigonometria há muito) ?