ArcSin ve ArcCos Fonksiyonlari VBA

Merhaba,

Oncelikle konuyu acma amacimizin VBA’de ArcSin ve ArcCos fonksiyonlarinin olmamasidir, Bunun yaninda VB’de ArcTan fonksiyonunu kullanabilmektesiniz.

Function ArcSin(X As Double) As Double
    ArcSin = Atn(X / Sqr(-X * X + 1))
End Function

Function ArcCos(X As Double) As Double
    ArcCos = Atn(-X / Sqr(-X * X + 1)) + 2 * Atn(1)
End Function

Private Sub Command1_Click()
    ' Ornek Calistirma
    MsgBox "ArcSin(0.5) = " & ArcSin(0.5)
    MsgBox "ArcCos(0.5) = " & ArcCos(0.5)
End Sub

Yazar: mmustafaaslan

2004 yilindan itibaren ozel bir sirketin finans departmaninda calismaktadir. Kendini excel, visual basic kullaniminda gelistirmis olan yazarimiz; Meslegi geregi SAP konusunda ileri derecede bilgilidir.

Bir Cevap Yazın

E-posta hesabınız yayımlanmayacak. Gerekli alanlar * ile işaretlenmişlerdir


9 + 6 =