โปรแกรมโหราศาสตร์ไทย "สมุดจดดวง"

                     โปรแกรม “สมุดจดดวง” พัฒนาขึ้นภายใต้แนวคิดของการเป็น “สื่อการศึกษา” ประกอบการเรียนรู้วิชาโหราศาสตร์ไทย ตามแนวทางท่านอาจารย์อรุณ  ลำเพ็ญ เพื่อให้ผู้ศึกษาได้มีความสะดวกในการวางรูปปัจจัยทางโหราศาสตร์และส่วนขยายความเพิ่มเติมในการพิจารณาดวงชะตา โดยยึดแนวทางตามตำรา “บทเรียนทางไปรษณีย์” ของท่านเป็นสำคัญ โดยโปรแกรมจะแสดงรูปปัจจัยดวงชะตาทั้งเดิมและจรที่เกี่ยวข้องประกอบด้วยพระเคราะห์และฉายาเคราะห์ คือ อาทิตย์ จันทร์ อังคาร พุธ พฤหัสบดี ศุกร์ เสาร์ ราหู เกตุ และมฤตยู โดยบอกสมผุสเป็นราศี องศา ลิปดา ตรียางค์ นวางค์ นักษัตรฤกษ์ หมวดฤกษ์ ประเภทฤกษ์ มาตรฐานดาว วันที่และเวลาดาวยกย้ายราศี การวิกลคติของดาว(พักร มนท์ เสริด) ทัศนสัมพันธ์ปัจจัยเดิม-จร , ลัคนา ตนุเศษ ชันษาจรปี ชันษาจรเดือน ทักษาเดิม-จร ตรีวัย พระเคราะห์เสวยอายุ ส่วนวิเคราะห์ปัจจัยเดิม-จร จักรราศีวิภาค ส่วนวิเคราะห์เรือนสัมพันธ์แบบสองจังหวะ(ชะตาเดิม-จรปี-จรเดือน) ส่วนวิเคราะห์ทัศนจักร(จักรทีปนีจร-ทัศนจักรวิเคราะห์) ส่วนช่วยพิจารณาการวางลัคนาและการเลือกใช้ฤกษ์ประกอบการต่างๆ รวมทั้งโปรแกรมยังสามารถบันทึก/เรียกใช้ฐานช้อมูลกำเนิดของเจ้าชะตา การสั่งพิมพ์ผลอักษรข้อมูลต่างๆ และสามารถบันทึกข้อมูลเป็น text ไฟล์ได้อีกด้วย

                   ผู้จัดทำหวังให้โปรแกรมนี้ก่อเกิดประโยชน์รำลึกถึงกลุ่ม “สมุดจดดวง” ที่มีการรวมตัวกันในเว็บไซต์ payakorn.com มาเป็นเวลานาน และยังได้ก่อตั้งเป็นกลุ่ม “สมุดจดดวง” ในสังคมออนไลน์อย่าง facebook.com จึงได้นำเอาชื่อกลุ่มมาตั้งเป็นชื่อโปรแกรม “สมุดจดดวง” ให้เป็นที่จำได้หมายรู้ว่าเกี่ยวพันกับกลุ่มสมุดจดดวง ซึ่งมีการธำรงรักษาจรรโลงไว้ซึ่งการพัฒนาความรู้ทางโหราศาสตร์ พร้อมกับเผยแพร่ความรู้นั้นให้คงอยู่สืบไป และหากผู้ใช้งานโปรแกรมท่านใดพบข้อผิดพลาด หรือประสงค์จะสอบถาม/เสนอแนะใดๆเพิ่มเติม สามารถติดต่อผู้จัดทำได้ที่กลุ่ม facebook ชื่อ “สมุดจดดวง” หรือที่อีเมล์ tepar2009@gmail.com ผู้จัดทำยินดีที่จะตอบข้อสงสัยและน้อมรับเอาข้อบกพร่องที่เกิดขึ้นนั้นไปแก้ไขพัฒนาโปรแกรมให้มีความสมบูรณ์ต่อไป

                   ผู้จัดทำหวังเป็นอย่างยิ่งว่าโปรแกรม “สมุดจดดวง” ที่พัฒนาขึ้นมาด้วยความวิริยะอุตสาหะและความตั้งใจอันดีนี้ จักเป็นประโยชน์แก่ผู้สนใจศึกษาวิชาโหราศาสตร์ไทยได้บ้างไม่มากก็น้อย ขออำนาจแห่งคุณพระศรีรัตนตรัย ครูบาอาจารย์ และคุณงามความดีทั้งหลาย จงบันดาลประโยชน์สําเร็จอันมีวิชาความรู้ทางโหราศาสตร์นี้

เป็นเหตุปัจจัยให้ท่านเจริญสุขวัฒนะทางโหราศาสตร์และเป็นนักโหราศาสตร์ที่ดีของสังคมสืบไป

ธีรพร  บุญวงษ์

ผู้จัดทำโปรแกรมสมุดจดดวง

ลิงค์ดาวน์โหลดโปรแกรมสมุดจดดวง :

http://www.mediafire.com/download/zztucbcxd76rz0w/%E0%B8%8A%E0%B8%B8%E0%B8%94%E0%B8%95%E0%B8%B4%E0%B8%94%E0%B8%95%E0%B8%B1%E0%B9%89%E0%B8%87%E0%B9%82%E0%B8%9B%E0%B8%A3%E0%B9%81%E0%B8%81%E0%B8%A3%E0%B8%A1%E0%B8%AA%E0%B8%A1%E0%B8%B8%E0%B8%94%E0%B8%88%E0%B8%94%E0%B8%94%E0%B8%A7%E0%B8%87.rar

สูตรการคำนวณตำแหน่งดาวเคราะห์แบบดาราศาสตร์ : อาทิตย์

สูตรการคำนวณตำแหน่งดาวเคราะห์แบบดาราศาสตร์ : อาทิตย์

ฟังก์ชั่น Sun คือฟังก์ชั่น VBA บน Excel ใช้ในการหาค่าตำแหน่งอาทิตย์แบบดาราศาสตร์สากล หรือระบบสายนะวิธี มีตัวแปรที่รับเข้าดังต่อไปนี้

day = วันที่

month = เดือน

year = ปี ค.ศ.

hour = ชั่วโมง

minute = นาที

และฟังก์ชั่นเสริมที่ใช้ประกอบการคำนวณคือ Modulo (การหารแบบเอาเศษ,เศษจากการหาร) เพื่อใช้ควบคุมค่าให้อยู่ในช่วงที่ต้องการ ในที่นี้คือ 360

สูตรการคำนวณมีดังนี้

Function Sun(day, month, year, hour, minute As Double) As Double

Dim D, N, M, E As Double

D = 367 * year - Int(7 * (year + Int((month + 9) / 12)) / 4) + Int(275 * month / 9) + day - 730530 + ((hour + (minute / 60)) / 24)

N = Modulo(360 / 365.242191 * D, 360)

M = Modulo(N + 279.557208 - 283.112438, 360) * 3.14159265358979 / 180

E = 360 / 3.14159265358979 * 0.016705 * Sin(M)

Sun = Modulo(N + E + 279.557208, 360)

End Function

Function Modulo(a, b As Double) As Double

Modulo = a / b

Modulo = (Modulo - Int(Modulo)) * b

End Function

ตัวอย่างการคำนวณ 1 พฤษภาคม 2016 เวลา 12.00 น.(กรีนิช)

รูปแบบสูตร Sun(1,5,2016,12,0)

ค่าที่ได้คือ 41.56190514 องศา

(เปรียบเทียบกับค่าที่ได้จากโมดูล swiss คือ 41.5371152186721 ต่างกันอยู่ 0.024789923 องศา)

ในกรณีที่จะทำเป็นค่าตำแหน่งดาวในระบบนิรายนะวิธี ให้นำค่าอายนางศมาลบออกจากค่าที่คำนวณได้ กรณีนี้ใช้ค่าอายนางศแบบลาหิรีที่คำนวณได้ในวันเวลาตามตัวอย่าง คือ 24.0852731799126

           ตำแหน่งอาทิตย์(นิรายนะวิธี) =  41.56190514 - 24.0852731799126 = 17.47663196

1.ราศี 17.47663196 หาร 30 ลัพธ์เป็นราศี = 0

2.องศา จำนวนเต็มของเศษจากการหาร = 17.47663196 = 17

3.ลิปดา ทศนิยมที่เหลือคูณด้วย 60 = 0.47663196 X 60 = 28.5979176 = 28

4.ฟิลิปดา ทศนิยมที่เหลือในข้อ 3. คูณด้วย 60 = 0.5979176X 60 = 35.875056 = 35

สรุป ตำแหน่งอาทิตย์(นิรายนะ) = ราศีเมษ 17 องศา 28 ลิปดา 35 ฟิลิปดา

เปรียบเทียบผลกับโมดูล swiss คือ ราศีเมษ 17 องศา 27  ลิปดา 6 ฟิลิปดา ต่างกันอยู่ 1 ลิปดา 29 ฟิลิปดา

ธีรพร  เพชรกำแพง

20 พฤษภาคม 2559

(ต้องการขอรับไฟล์งาน Excel ติดต่อได้ที่ tepar2009@gmail.com)

สูตรการคำนวณหามัธยลัคน์

สูตรการคำนวณหามัธยลัคน์

            ฟังก์ชั่น Midmc คือฟังก์ชั่นที่สร้างขึ้นด้วย VBA บน Excel ใช้ในการหาค่ามัธยลัคน์หรือเมอริเดียน(ทศมลัคน์)แบบดาราศาสตร์ เพื่อใช้ประกอบการคำนวณตำแหน่งปัจจัยโหราศาสตร์ไทยระบบดาราศาสตร์สากล ตัดค่าอายนางศ หรือนิรายนะวิธี มีตัวแปรที่รับเข้าดังต่อไปนี้

day = วันที่

month = เดือน

year = ปี ค.ศ.

hour = ชั่วโมง

min = นาที

                        Lon = ลองจิจูด

                      Lat = ละติจูด

                        ฟังก์ชั่นเสริมที่นำมาใช้ในการคำนวณ คือ Atan2 สามารถดูรายละเอียดได้ที่การคำนวณตำแหน่งดาวพุธ

(สูตรนี้ปรับค่าเขตเวลาหรือ time zone เป็น 7 แล้ว จึงใช้เวลาประเทศไทยในการคำนวณได้เลย)

สูตรการคำนวณมีดังนี้

Function Midmc(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)

    ra = ra - 360 * Int(ra / 360)

    ob = (23.452294 - 0.0130125 * t)

    Midmc = Atan2(Tan(ra * 3.14159265358979 / 180), Cos(ob * 3.14159265358979 / 180)) * 57.2957795130823

    Midmc = Midmc - 360 * Int(Midmc / 360)

End Function

ตัวอย่างการคำนวณ 1 พฤษภาคม 2016 เวลา 12.00 น. ลองจิจูด 100.5 E ละติจูด 13.75 N (ประเทศไทย)

รูปแบบสูตร Midmc(1,5,2016,12,0,100.5,13.75)

ค่าที่ได้คือ 52.58859739 องศา

ทำเป็นลัคนาในระบบนิรายนะวิธี โดยการนำค่าอายนางศแบบลาหิรีมาลบออก 52.58859739 -24.08462478 = 28.50397261 องศา

โดยทำให้อยู่ในรูปของ ราศี-องศา-ลิปดา-ฟิลิปดา ดังนี้

1.ราศี 28.50397261 หาร 30 ลัพธ์เป็นราศี = 0

2.องศา จำนวนเต็มของเศษจากการหาร = 28.50397261 = 28

3.ลิปดา ทศนิยมที่เหลือคูณด้วย 60 = 0.50397261 X 60 = 30.2383566 = 30

4.ฟิลิปดา ทศนิยมที่เหลือในข้อ 3. คูณด้วย 60 = 0.2383566 X 60 = 14.301396 = 14

สรุป ตำแหน่งลัคนา(นิรายนะ) = ราศีเมษ 28 องศา 30 ลิปดา 14  ฟิลิปดา

ธีรพร  บุญวงษ์(เพชรกำแพง)

8 พฤษภาคม 2559

(ต้องการขอรับไฟล์งาน Excel ติดต่อได้ที่ tepar2009@gmail.com)

สูตรการคำนวณหาลัคนาดาราศาสตร์

สูตรการคำนวณหาลัคนาดาราศาสตร์

            ฟังก์ชั่น 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)

สูตรการคำนวณหาค่าอายนางศแบบลาหิรี

สูตรการคำนวณหาค่าอายนางศแบบลาหิรี

            ฟังก์ชั่น 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)

สูตรการคำนวณตำแหน่งดาวเคราะห์แบบดาราศาสตร์ : พลูโต

สูตรการคำนวณตำแหน่งดาวเคราะห์แบบดาราศาสตร์ : พลูโต

ฟังก์ชั่น pluto คือฟังก์ชั่น VBA บน Excel ใช้ในการหาค่าตำแหน่งดาวพลูโตแบบดาราศาสตร์สากล หรือระบบสายนะวิธี มีตัวแปรที่รับเข้าดังต่อไปนี้

day = วันที่

month = เดือน

year = ปี ค.ศ.

hr = ชั่วโมง

mn = นาที

และฟังก์ชั่นเสริมที่ใช้ประกอบการคำนวณคือ Modulo , Atan2 , Asin , Acos (ดูรายละเอียดฟังก์ชั่นเสริมได้ที่การคำนวณดาวพุธ)

สูตรการคำนวณมีดังนี้

Function pluto(day, month, year, hr, mn As Double) As Double

Dim dj2000, days, Ma, Ta, L, RV As Double

dj2000 = 367 * year - Int(7 * (year + Int((month + 9) / 12)) / 4) + Int(275 * month / 9) + day - 730531.5 + ((hr + (mn / 60)) / 24)

days = dj2000 + 864.5

'องค์ประกอบของดาวเคราะห์

Ma = modulo(0.0000690814 * days + 4.114885983 - 3.923543792, 6.283185307)

Ta = Ma + (2 * 0.2501272 - 0.2501272 ^ 3 / 4 + 5 / 96 * 0.2501272 ^ 5) * Sin(Ma) + (5 * 0.2501272 ^ 2 / 4 - 11 / 24 * 0.2501272 ^ 4) * Sin(2 * Ma) + (13 * 0.2501272 ^ 3 / 12 - 43 / 64 * 0.2501272 ^ 5) * Sin(3 * Ma) + 103 / 96 * 0.2501272 ^ 4 * Sin(4 * Ma) + 1097 / 960 * 0.2501272 ^ 5 * Sin(5 * Ma)

L = modulo(Ta + 3.923543792, 6.283185307)

RV = 39.5804 * (1 - 0.2501272 ^ 2) / (1 + 0.2501272 * Cos(Ta))

'องค์ประกอบของโลก

Dim Mae, Tae, Le, RVe, Hlong, Hlat, Dis, lambda, beta, alpha, delta As Double

Mae = modulo(0.017201609 * days + 5.731722874 - 1.795100806, 6.283185307) 

Tae = Mae + (2 * 0.0166967 - 0.0166967 ^ 3 / 4) * Sin(Mae) + 5 * 0.0166967 ^ 2 / 4 * Sin(2 * Mae) + 13 * 0.0166967 ^ 3 / 12 * Sin(3 * Mae)

Le = modulo(Tae + 1.795100806, 6.283185307)

RVe = 1 * (1 - 0.0166967 ^ 2) / (1 + 0.0166967 * Cos(Tae))

'มุมมอง Helio

Hlong = Atan2(Cos(L - 1.926552024), Sin(L - 1.926552024) * Cos(0.298824279)) + 1.926552024

Hlat = Asin(Sin(L - 1.926552024) * Sin(0.298824279))

Dis = RV * Cos(Hlat)

'ผลลัพธ์

lambda = modulo(Atn(RVe * Sin(Hlong - Le) / (Dis - RVe * Cos(Hlong - Le))) + Hlong, 6.283185307)

pluto = lambda * (180 / 3.141592654)

End Function

ตัวอย่างการคำนวณ 1 พฤษภาคม 2016 เวลา 12.00 น.(กรีนิช)

รูปแบบสูตร pluto(1,5,2016,12,0)

ค่าที่ได้คือ 287.3219655 องศา

(เปรียบเทียบกับค่าที่ได้จากโมดูล swiss คือ 287.442411271609 ต่างกันอยู่ 0.120445772 องศา)

ในกรณีที่จะทำเป็นค่าตำแหน่งดาวในระบบนิรายนะวิธี ให้นำค่าอายนางศมาลบออกจากค่าที่คำนวณได้ กรณีนี้ใช้ค่าอายนางศแบบลาหิรีที่คำนวณได้ในวันเวลาตามตัวอย่าง คือ 24.0852731799126

ตำแหน่งดาวพลูโต(นิรายนะวิธี)  287.3219655 - 24.0852731799126 = 263.2366923

1.ราศี 263.2366923 หาร 30 ลัพธ์เป็นราศี = 8

2.องศา จำนวนเต็มของเศษจากการหาร = 23.23669232 = 23

3.ลิปดา ทศนิยมที่เหลือคูณด้วย 60 = 0.23669232 X 60 = 14.20153921 = 14

4.ฟิลิปดา ทศนิยมที่เหลือในข้อ 3. คูณด้วย 60 = 0.20153921 X 60 = 12.09235231 = 12

สรุป ตำแหน่งดาวพลูโต(นิรายนะ) = ราศีธนู 23 องศา 14 ลิปดา 12 ฟิลิปดา

เปรียบเทียบผลกับโมดูล swiss คือ ราศีธนู 23 องศา 21 ลิปดา 25 ฟิลิปดา ต่างกันอยู่ 7 ลิปดา 13 ฟิลิปดา

ธีรพร  เพชรกำแพง

3 พฤษภาคม 2559

(ต้องการขอรับไฟล์งาน Excel ติดต่อได้ที่ tepar2009@gmail.com)