สูตรการคำนวณหาค่าอายนางศแบบลาหิรี
ฟังก์ชั่น lahiry คือฟังก์ชั่นที่สร้างขึ้นด้วย
VBA บน Excel ใช้ในการหาค่าอายนางศแบบลาหิรี
เพื่อใช้ประกอบการคำนวณตำแหน่งดาวระบบดาราศาสตร์สากล ตัดค่าอายนางศ
หรือนิรายนะวิธี มีตัวแปรที่รับเข้าดังต่อไปนี้
d = วันที่
m = เดือน
y = ปี ค.ศ.
hr = ชั่วโมง
mn = นาที
สูตรการคำนวณมีดังนี้
Function lahiry(d, m, y, hr, mn As Double) As Double
Dim im As Double, j
As Double
Dim ln As Double, Off As
Double
im = (12 * y) + m + 57597
j = (2 * (im - Int(im /
12) * 12) + 7 + 365 * im) / 12
j = Int(j) + d + Int(im /
48) - 32083
If j > 2299171 Then
j = j + Int(im /
4800) - Int(im / 1200) + 38
End If
h = hr + (mn / 60)
f = h - 6
t = ((j - 2415020) + f /
24 - 0.5) / 36525
ln = ((933060 - 6962911 *
t + 7.5 * t * t) / 3600)
ln = ln - 360 * Int(ln / 360)
Off = (259205536 * t +
2013816) / 3600
Off = 17.23 * Sin(ln *
3.14159265358979 / 180) + 1.27 * Sin(Off * 3.14159265358979 / 180) - (5025.64 +
1.11 * t) * t
lahiry = Abs((Off -
80861.27) / 3600)
End Function
ตัวอย่างการคำนวณ 1 พฤษภาคม 2016 เวลา 12.00 น.(ประเทศไทย)
รูปแบบสูตร lahiry(1,5,2016,12,0)
ค่าที่ได้คือ 24.08462478 องศา โดยทำให้อยู่ในรูปของ
องศา-ลิปดา-ฟิลิปดา ดังนี้
1.องศา จำนวนเต็มของจำนวนองศาจริง = 24.08462478 = 24
2.ลิปดา ทศนิยมที่เหลือคูณด้วย 60 = 0.08462478 X 60 = 5.0774868 = 5
3.ฟิลิปดา
ทศนิยมที่เหลือในข้อ 2. คูณด้วย 60 = 0.0774868 X 60 = 4.649208 = 4
สรุป ค่าอายนางศแบบลาหิรี = 24 องศา 5 ลิปดา
4 ฟิลิปดา
หมายเหตุ : สูตรนี้มีการปรับค่าให้ใช้ค่าเวลาของประเทศไทยแล้ว
จึงสามารถใช้เวลาประเทศไทยได้เลย
ธีรพร เพชรกำแพง
4 พฤษภาคม 2559
(ต้องการขอรับไฟล์งาน
Excel
ติดต่อได้ที่ tepar2009@gmail.com)