";
$lstDay=$_POST["lstDay"];
$lstMonth=$_POST["lstMonth"];
$lstYear=$_POST["lstYear"];
if(empty($lstYear)) {
if($lstYear=="0") { $lstYear="0"; } else { $lstYear="2530";}
}
//$strTime=$_POST["strTime"];
//if(empty($strTime)) $strTime="06:00";
$mydate=$lstDay."/".$lstMonth."/".$lstYear;
//defaulf value
if(empty($mydate)) $mydate="15/08/2530";
if(empty($_POST['mytime'])) $_POST['mytime']="24:00";
if(empty($_POST['timezone'])) $_POST['timezone']="105E";
if(empty($_POST['long'])) $_POST['long']="100:30E";
function sPiSoShowREJG($diJ,$calendar)
{
//----------------------
//ปรับปรุงใหม่ 7 ก.ค. 2549
//ปรับปรุงใหม่ 24 มี.ค. 2555
$sREJG = Utility::sPuUtGetREJG();
$dJ = $diJ;
if ($dJ < Utility::ROMAN)
{
//เป็นแบบจูเลี่ยนอย่างเดียว
$strText= "ปฎิทินแบบจูเลี่ยน";
echo "ปฎิทินแบบจูเลี่ยน";
}
else if ($dJ > Utility::ENGLISH)
{
//เป็นเกรกรอเรี่ยนอย่างเดียว
$strText = "ปฎิทินแบบเกรกรอเรียน";
echo "ปฎิทินแบบเกรกรอเรียน";
}
else
{
if ($sREJG=="R")
{
if(empty($calendar)) $calendar="R";
$strBtn = "R->E";
$strText = "ปฎิทินแบบโรมัน";
echo " ปฎิทินแบบโรมัน";
echo " ปฎิทินแบบอังกฤษ";
}
else if ($sREJG=="E")
{
if(empty($calendar)) $calendar="E";
$strBtn = "E->R";
$strText = "ปฎิทินแบบอังกฤษ";
echo " ปฎิทินแบบโรมัน";
echo " ปฎิทินแบบอังกฤษ";
}
}
//return array($strText,$strBtn,$dJ);
}
//---------------------------------------------------------------------------------------------------------
//คำนวณเศษ
//---------------------------------------------------------------------------------------------------------
//เศษพระจอมเกล้า ท่านให้เอาวัน เดือน ปี บวกเข้าด้วยกัน นับปีชวด เป็นต้น เดือนอ้ายเป็นต้น
//'วันอาทิตย์เป็นต้น ถ้ามีเศษเกินกว่า 10 ขึ้นไป ต้องเอา 10 หัก ออกเสมอ เอาเศษแค่ 10 เป็นจำนวนทาย //ดังนี้
//--------------------------------------------------------------------------------------------------------
//Result = (Cint(Lunar_DayofWeek) + Cint(Lunar_Month) + Cint(Lunar_Year)) Mod 10
switch ($ses) {
case 1:
$strResult = " เศษ ๑ เสาเรือนไฟไหม้ ชะตาใครทั้งชายหญิง";
$strResult .= "ไร้เรือนที่พักพิง ที่พึ่งพักสำนกเนา
";
$strResult .= "ร่อนเร่ระเหระหน เร่งเจียมตนอย่าดูเบา
";
$strResult .= "เพราะว่าชะตาเรา โทษประกอบจึงเกิดกรรม
";
$strResult2 = " เศษ ๑ หญิงชายใดตกเข้าแล้ว จะไม่มีที่พักพิงอาศัย มีเรือนก็ไฟไหม้ ให้พึงเจียมเนื้อเจียมตนให้จงหนัก กระทำการใดให้พินิจพิจารณาอย่างรอบคอบ";
break;
case 2:
$strResult = " เศษ ๒ จะครองไข้ มีโรคร้ายรุมประจำ
";
$strResult .="หยูกยาจะหาทำ บ่ถูกแท้จนแก่ตัว
";
$strResult2 = " เศษ ๒ จะมีโรคประจำตัว รักษาอย่างไรก็หายได้ยาก ต้องเสียทรัพย์สินอยู่เรื่อยไป ทำให้มีฐานะค่อนข้างจะยากจน";
break;
case 3:
$strResult = " เศษ ๓ ความสบาย มีม้าควายเกวียนและวัว
";
$strResult .="พอสมสกุลตัว เข้าที่ทายสถานกลาง
";
$strResult2 = " เศษ ๓ เป็นคนมีฐานะพอเหมาะสมตัว แค่สถานประมาณกลาง จะว่าจนก็ไม่ได้ จะว่ารวยก็ไม่เชิง";
break;
case 4:
$strResult = " เศษ ๔ มีข้าครอก อเนกนอกคณานาง
";
$strResult .="อุปถัมภ์ล้วนสำอาง บ่ไข้ชุกบ่ทุกข์เป็น
";
$strResult2 = " เศษ ๔ เป็นคนมีบุญ คิดการสิ่งใดก็สมความปรารถนา มีข้าทาสบริวาร และทรัพย์สินเงินทองเพียงพอ แก่การใช้จ่ายได้อย่างสะดวก สบาย";
break;
case 5:
$strResult = " เศษ ๕ ชะตากลับ ทุนทรัพย์แลแสนเข็ญ
";
$strResult .="ภายหน้าชะตาเป็น ทุนทรัพย์จะนับพัน
";
$strResult2 = " เศษ ๕ ในขั้นต้นจะเป็นคนไม่มีฐานะ แต่เมื่ออายุย่างมากเข้า ฐานะก็จะกลับกลายจนมีหลักฐานมั่นคงดี";
break;
case 6:
$strResult = " เศษ ๖ จะยกญาติ เป็นเชื้อชาติประเสริฐสรรพ์
";
$strResult .="เงินตรายศถาพันธ์ ทุนทรัพย์ลำดับดี
";
$strResult2 = " เศษ ๖ จะได้รับความอุดหนุนจากหมู่ญาติที่สนิทสนมกับตน ช่วยฟื้นฟูฐานะของตนจนกลายเป็นคนมีฐานะดีในอนาคต";
break;
case 7:
$strResult = " เศษ ๗ นั้นผ้าขาด จะนุ่งห่มก็เต็มที
";
$strResult .="พักตราย่อมราศี ระคายคับทั้งทรัพย์สิน
";
$strResult2 = " เศษ ๗ เป็นคนค่อนข้างอาภัพ กระทำการใดก็ไม่สำเร็จผล ทุนทรัพย์ก็มีน้อย ไม่เพียงพอแก่การใช้จ่าย การนุ่งห่มก็ซมซ่อ เป็นที่เหยียดหยามของคนทั่วไป";
break;
case 8:
$strResult = " เศษ ๘ นั้นเปรื่องยศ จะปรากฏกระเดื่องดิน
";
$strResult .= "ทรัพย์ศฤงคารสถานถิ่น ทั้งอำนาจวาสนา
";
$strResult2 = " เศษ ๘ เป็นคนมีชาติมีตระกูล จะกระทำการใดก็ได้ดังความปรารถนา จะเป็นคมมีเกียรติยศเป็นที่เชื่อถือของคนทั่วไป และสมบูรณ์ด้วยทรัพย์สิน";
break;
case 9:
$strResult = " เศษ ๙ กินข้าวกลางตลาด เสมอชาติสุนักขา
";
$strResult .="ถึงจะมีวาสนา ต้องประกอบกิจการ
";
$strResult .="แม้นตระกูลทลิทก ถึงตกต่ำก็บ่นาน
";
$strResult .="ดั่งนักเลงสุราบาน พอขวนขวายใส่ท้องตน
";
$strResult2 = " เศษ ๘ เป็นคนมีชาติมีตระกูล จะกระทำการใดก็ได้ดังความปรารถนา จะเป็นคมมีเกียรติยศเป็นที่เชื่อถือของคนทั่วไป และสมบูรณ์ด้วยทรัพย์สิน";
break;
case 0:
$strResult = " เศษ ๐ นกแขกเต้า เฝ้าทำรวงรังระวังผล
";
$strResult .="แสวงดีย่อมมีผล อย่าคลอเคล้ากับเหล่าพาล
";
$strResult .="เหมือนปักษีอันมีปีก รู้หลบหลีกธนูพราน
";
$strResult .="ถ้าประมาทจะเสียการ ถึงชอกช้ำระกำกาย
";
$strResult2 = " เศษ ๐ ให้พึงระวังการคบหาสมาคม เพราะคบกับผู้ใดก็เป็นเช่นนั้น เปรียบเสมือนนิทานนกแขกเต้าที่อยู่กับโจรและพระฤษี ทั้งที่เป็นพี่น้องท้องเดียวกัน ดังนั้นคนในเศษนี้ ไม่ควรที่จะประมาท เพราะภัยจะตกต้องมาถึงตนได้";
break;
}
?>
ปฏิทิน ปฏิทิน150ปี ปฎิทินหมื่นปี ปฏิทินจันทรคติ และ ปฏิทินสุริยคติ