Public Const Pi As Double = 3.14159265358979
Dim side As Long
Dim base As Long
Dim hyp As Long
Dim opp As Long
Dim angle As Double
side = 75
base = 50
hyp = side
opp = base / 2
' multiplying by 2 because we were solving for half the original triangle.
' multiplying by 180 / PI to convert radians to to degrees
angle = arcSin(opp / hyp) * 180 / Pi * 2
' arc sine
' error if value is outside the range [-1,1]
Function arcSin(value As Double) As Double
If Abs(value) <> 1 Then
arcSin = Atn(value / Sqr(1 - value * value))
arcSin = 1.5707963267949 * Sgn(value)
Open in new window
With monday.com’s project management tool, you can see what everyone on your team is working in a single glance. Its intuitive dashboards are customizable, so you can create systems that work for you.
Please enter a first name
Please enter a last name
Must be at least 4 characters long.
Join and Comment
From novice to tech pro — start learning today.
Premium members can enroll in this course at no extra cost.
Premium members get this course for $174.99.
Premium members get this course for $159.20.
Premium members get this course for $37.50.
Premium members get this course for $25.00.
Premium members get this course for $79.20.