--[[ มอดูล: ตัวอย่างหรคุณจูเลียน ประโยชน์: สำหรับแสดงตัวอย่างการคำนวณในบทความ หรคุณจูเลียน และ สงกรานต์ เนื่องจากการแสดงตัวอย่างโดยคำสั่ง #expr: แก้ไขได้ยาก อ่านเข้าใจยาก มอดูลนี้ไม่ใช้ในการคำนวณหรคุณจูเลียน สำหรับเครื่องมือในการคำนวณ โปรดดู แม่แบบ:หรคุณจูเลียน  วิธีการเรียกใช้งานพึงปฏิบัติดังนี้ {{#invoke|ตัวอย่างหรคุณจูเลียน|ชื่่อฟังก์ชัน|ตัวแปรรับเข้าคั่นด้วยขีดตั้ง}}  ในมอดูลนี้มีฟัง5 ชัน 6 ฟังก์ชันด้วยกัน คือ 1. calcjd(yr,mo,dy,hr,mn,sc,lineno) หาหรคุณจูเลียน 2. calcjd2(yr,mo,dy,hr,mn,sc,lineno) 3. calcdatefromjd(jd,lineno) หาวันที่จากหรคุณจูเลียน ณ เวลา 12 นาฬิกา 4. calcdatefromhd2(jd,lineno) 5. jdnewariesandnewyear(yr,mode,lineno) หาหรคุณจูเลียน ณ วันมหาสงกรานต์ ถ้า mode = 1 หรือหาหรคุณจูเลียน ณ วันเถลิงศก ถ้า mode เป็นค่าอื่น กำหนด วันที่ dy เดือน mo ปีคริสตศักราช yr ส่วน lineno แทนลำดับของตัวแปรที่จะส่งออกไปประกอบตัวอย่าง --]] local p = {}  function p.calcjd(frame)  -- ในวิกิการระบุตัวแปรรับเข้าทุกตัวไว้ในวงเล็บเริ่มฟังก์ชันไม่สามารถทำได้ แต่ภาษาลูอาปกติรองรับ  -- การกระทำดังกล่าว เช่นเดียวกับภาษาอื่น  local yr = tonumber(frame.args[1])  local mo = tonumber(frame.args[2])  local dy = tonumber(frame.args[3])  local lineno = tonumber(frame.args[4])   local line1 = math.floor((1461 * (yr + 4800 + math.floor((mo - 14)/12)))/4)  local line2 = math.floor((367 * (mo - 2 - 12 * math.floor((mo - 14)/12)))/12)  local line3 = math.floor((3 * math.floor((yr + 4900 + math.floor((mo - 14)/12))/100))/4)  local line4 = dy - 32077  local jd = line1 + line2 - line3 + line4  local result  if lineno == 1 then  result = line1  elseif lineno == 2 then  result = line2  elseif lineno == 3 then  result = line3  elseif lineno == 4 then  result = line4  else  result = jd  end  return result end  function p.calcjd2(frame)  --[[  ดูเพิ่ม Meeus, Jean (1998). Astronomical Algorithms. Willman Bell. pp. 60–61.  --]]  local yr = tonumber(frame.args[1])  local mo = tonumber(frame.args[2])  local dy = tonumber(frame.args[3])  local lineno = tonumber(frame.args[4])   if mo<=2 then  mo = mo + 12  yr = yr - 1  end   local A = math.floor(yr/100)  local B = 2 - A + math.floor(A/4)  local jd = math.floor(365.25 * (yr + 4716)) + math.floor(30.6001 * (mo+1)) + dy + B - 1524  local result  if lineno == 1 then  result = mo  elseif lineno == 2 then  result = yr  elseif lineno == 3 then  result = A  elseif lineno == 4 then  result = B  else  result = jd  end  return result end  function p.calcdatefromjd(frame)  --[[  แปลงหรคุณจูเลียน jd ณ เวลา 12 นาฬิกา เป็นวันที่  lineno เป็นตัวเลขกำกับสำหรับระบุค่าคำนวณที่จะส่งออก เรียงตามลำดับบรรทัด  --]]  local jd = tonumber(frame.args[1])  local lineno = tonumber(frame.args[2])  local f = jd + 1401 + math.floor((math.floor((4*jd + 274277)/146097)*3)/4) -38  local e = 4*f + 3  local g = math.floor(math.fmod(e, 1461)/4)  local h = 5*g + 2  local dy = math.floor((math.fmod(h, 153))/5) + 1  local mo = math.fmod(math.floor(h/153) + 2, 12) + 1  local yr = math.floor(e/1461) - 4716 + math.floor((12 + 2 - mo)/12)  local result  if lineno == 1 then  result = f  elseif lineno == 2 then  result = e  elseif lineno == 3 then  result = g  elseif lineno == 4 then  result = h  elseif lineno == 5 then  result = dy  elseif lineno == 6 then  result = mo  else  result = yr  end   return result end   function p.calcdatefromjd2(frame)  --[[  ดูเพิ่ม Meeus, Jean (1998). Astronomical Algorithms. Willman Bell.  และโค้ดใน https://www.esrl.noaa.gov/gmd/grad/solcalc/sunrise.html  --]]  local jd = tonumber(frame.args[1])  local lineno = tonumber(frame.args[2])   local z = math.floor(jd)  local A  if z < 2299161 then  A = z;  else  local alpha = math.floor((z - 1867216.25)/36524.25)  A = z + 1 + alpha - math.floor(alpha/4)  end   local B = A + 1524  local C = math.floor((B - 122.1)/365.25)  local D = math.floor(365.25 * C)  local E = math.floor((B - D)/30.6001)   local dy = B - D - math.floor(30.6001 * E)   local mo  if E < 14 then  mo = E - 1  else  mo = E - 13  end   local yr  if mo > 2 then  yr = C - 4716  else  yr = C - 4715  end   local result  if lineno == 1 then  result = z  elseif lineno == 2 then  result = A  elseif lineno == 3 then  result = B  elseif lineno == 4 then  result = C  elseif lineno == 5 then  result = D  elseif lineno == 6 then  result = E  elseif lineno == 7 then  result = dy  elseif lineno == 8 then  result = mo  else  result = yr  end   return result end  function p.jdnewariesandnewyear(frame)  --[[  คำนวณหรคุณ ณ เวลาสงกรานต์เสด็จ ของปี จ.ศ. y - 638 เมื่อ y เป็น ค.ศ.  --]]  yr = tonumber(frame.args[1])  mode = tonumber(frame.args[2])  lineno = tonumber(frame.args[3])  local sd0, sd, jd0, jd  if mode == 1 then  sd0 = ((yr-638)*292207-1359)/800  else  sd0 = ((yr-638)*292207+373)/800  end   jd0 = sd0 + 1954167.5  -- เศษเวลา  local timefrac1 = jd0 - math.floor(jd0)   if timefrac1 >= 0.5 then  -- ทศนิยมของหรคุณจูเลียน เถิน 0.5 เป็นวันใหม่ทางสุริยคติ ต้องลบออกเสีย 0.5 ก่อนคิดเวลา  timefrac2 = timefrac1 - 0.5  jd = math.floor(jd0) + 1  else  -- ทศนิยมน้อยกว่า 0.5 เลยเที่ยงวันมา ต้องเอา 0.5 บวกก่อนคิดเวลา  timefrac2 = timefrac1 + 0.5  jd = math.floor(jd0)  end   local hr = math.floor(timefrac2*24)  local rem = timefrac2*24 - hr  local mn = math.floor(rem*60)  local rem2 = rem*60 - mn  local sc = math.floor(rem2*60)  local rem3 = rem2*60 - sc  local result  if lineno == 1 then  result = sd0  elseif lineno == 2 then  result = jd0  elseif lineno == 3 then  result = sd  elseif lineno == 4 then  result = jd  elseif lineno == 5 then  result = timefrac1  elseif lineno == 6 then  result = timefrac2  elseif lineno == 7 then  result = hr  elseif lineno ==8 then  result = rem  elseif lineno == 9 then  result = mn  elseif lineno == 10 then  result = rem2  elseif lineno == 11 then  result = sc  else  result = rem3  end  return result end  return p