contact@exceltr.com

ExcelTR - Microsoft Excel Eğitim Sitesi

Görsel Video Microsoft Excel Eğitim Sitesi
16 Oca 2014

ArcSin ve ArcCos Fonksiyonlari VBA

//
Yorumlar0
/
Etiketler, ,

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

Cevap bırakın


3 + 3 =