สูตรการคำนวณหาลัคนาดาราศาสตร์
ฟังก์ชั่น Ascendant คือฟังก์ชั่นที่สร้างขึ้นด้วย
VBA บน Excel ใช้ในการหาค่าลัคนาแบบดาราศาสตร์
เพื่อใช้ประกอบการคำนวณตำแหน่งปัจจัยโหราศาสตร์ไทยระบบดาราศาสตร์สากล
ตัดค่าอายนางศ หรือนิรายนะวิธี มีตัวแปรที่รับเข้าดังต่อไปนี้
day = วันที่
month = เดือน
year = ปี ค.ศ.
hour = ชั่วโมง
min = นาที
Lon = ลองจิจูด
Lat = ละติจูด
ฟังก์ชั่นเสริมที่นำมาใช้ในการคำนวณ คือ Atan2
สามารถดูรายละเอียดได้ที่การคำนวณตำแหน่งดาวพุธ
(สูตรนี้ปรับค่าเขตเวลาหรือ time zone เป็น 7 แล้ว จึงใช้เวลาประเทศไทยในการคำนวณได้เลย)
สูตรการคำนวณมีดังนี้
Function Ascendant(day As Double, month As Double, year As Double,
_
hour As Double, min As Double, Lon As Double, Lat As Double) As
Double
Dim hr As Double, tz As
Double, ln As Double, la As Double, t As Double
Dim days As Double, f As
Double, ra As Double, ob As Double, mc As Double
hr = hour + min / 60
tz = 7
ln = Lon
la = Lat
ln = -ln
la = la
z = tz - 1
days = = 367*
year-INT(7*( year+INT((month +9)/12))/4)+INT(275* month /9)+ day-767057
f = hr - tz
t = (days + f /
24 - 0.5) / 36525
ra = ((6.6460656 +
2400.0513 * t + 0.0000258 * t * t + f) * 15 - ln) 'RAMC
ra = ra - 360 * Int(ra /
360)
ob = (23.452294 -
0.0130125 * t) ' Obliquity of Ecliptic
Ascendant = (Atan2(Cos(ra
* pi / 180), -Sin(ra * 3.14159265358979 / 180) * Cos(ob * 3.14159265358979 /
180) - Tan(la * 3.14159265358979 / 180) * Sin(ob * 3.14159265358979 / 180)))*
57.2957795130823
Ascendant = Ascendant -
360 * Int(Ascendant / 360)
End Function
ตัวอย่างการคำนวณ
1 พฤษภาคม 2016 เวลา 12.00 น. ลองจิจูด 100.5 E ละติจูด 13.75 N (ประเทศไทย)
รูปแบบสูตร Ascendant(1,5,2016,12,0,100.5,13.75)
ค่าที่ได้คือ 127.3353831 องศา
ทำเป็นลัคนาในระบบนิรายนะวิธี โดยการนำค่าอายนางศแบบลาหิรีมาลบออก 127.3353831-24.08462478
= 103.2507583 องศา
โดยทำให้อยู่ในรูปของ ราศี-องศา-ลิปดา-ฟิลิปดา ดังนี้
1.ราศี 103.2507583 หาร 30 ลัพธ์เป็นราศี = 3
2.องศา จำนวนเต็มของเศษจากการหาร = 13.2507583 = 13
3.ลิปดา ทศนิยมที่เหลือคูณด้วย 60 = 0.2507583 X 60 = 15.045498 = 15
4.ฟิลิปดา ทศนิยมที่เหลือในข้อ 3. คูณด้วย 60 = 0.045498 X 60 = 2.72988 = 2
สรุป ตำแหน่งลัคนา(นิรายนะ) = ราศีกรกฎ 13 องศา 15 ลิปดา 2 ฟิลิปดา
ธีรพร บุญวงษ์(เพชรกำแพง)
6 พฤษภาคม 2559
(ต้องการขอรับไฟล์งาน
Excel
ติดต่อได้ที่ tepar2009@gmail.com)