";
$lstDay=$_POST["lstDay"];
$lstMonth=$_POST["lstMonth"];
$lstYear=$_POST["lstYear"];
$strTime=$_POST["strTime"];
$strMin=$_POST["strMin"];
//if(empty($strTime)) $strTime="06:00";
$mydate=$lstDay."/".$lstMonth."/".$lstYear;
//defaulf value
if(empty($mydate)) $mydate="15/08/2530";
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);
}
if($_POST['submit']=="Submit") {
Utility::PuUtSetREJG("E");
if(!empty($calendar)) Utility::PuUtSetREJG($calendar);
// echo "SryModify
";
$siVbe=$mydate;
$siTB=$_POST['strTime'].":".$_POST['strMin'];
$siTzB="105E"; //Time Zone
Utility::$sLgB="100:30E" ;//$_POST['long']; //Long
Utility::$sTB= $siTB;
Utility::$sTzB= $siTzB;
$dJ = $utility->dPuUtDateBeToJ($siVbe);
$dTime = $utility->dPuUtBase10($siTB);
$dA =$utility->dPuUtJtoHor0($dJ,$dTime,$siTzB);
$dHor0=$dA[0];
$diTsry=$dA[1];
$dJe=$utility->nPuUtHor0ToJe($dHor0,$diTsry);
$A = $kram->tPuKrKram($dHor0, 24, 2);
//nNatSatNum,sNatSatName,sKrm,nKr,nMj,nJe
// echo "NatSatNum=".$A[0]."
";
// echo "NatSatName=".$A[1]."
";
// echo "sKrm=".$A[2]."
";
// echo "nKr=".$A[3]."
";
// echo "nMj=".$A[4]."
";
// echo "nJe=".$A[5]."
";
//หาวาร อาทิตย์=1
$nW = intVal(Utility::dPuUtTonrop($dHor0, 7));
if ($diTsry < 6)
{
$nWj = intval(Utility::dPuUtTonrop($nW - 1, 7)); // nWj = วาร จันทรคติ
$dHor0 = $dHor0 - 1;
}
else
{
$nWj = $nW; // W คือ วาร สุริยคติ
}
//หาวาร อาทิตย์=1
$nW = intVal(Utility::dPuUtTonrop($dHor0, 7));
if ($diTsry < 6)
{
$nWj = intval(Utility::dPuUtTonrop($nW - 1, 7)); // nWj = วาร จันทรคติ
$dHor0 = $dHor0 - 1;
}
else
{
$nWj = $nW; // W คือ วาร สุริยคติ
}
$nY=$A[0] +1; //ปี นักษัตร ปีชวด=1
$nMj=$A[4]; //เดือนอ้าย ยี่
//---------------------------------------------------------------------------------------------------------
//คำนวณเศษ
//---------------------------------------------------------------------------------------------------------
//เศษพระจอมเกล้า ท่านให้เอาวัน เดือน ปี บวกเข้าด้วยกัน นับปีชวด เป็นต้น เดือนอ้ายเป็นต้น
//'วันอาทิตย์เป็นต้น ถ้ามีเศษเกินกว่า 10 ขึ้นไป ต้องเอา 10 หัก ออกเสมอ เอาเศษแค่ 10 เป็นจำนวนทาย //ดังนี้
//--------------------------------------------------------------------------------------------------------
//Result = (Cint(Lunar_DayofWeek) + Cint(Lunar_Month) + Cint(Lunar_Year)) Mod 10
$ses= $utility->dPuUtTonrop($nWj + $nMj + $nY,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;
}
$strKram=$kram->sPuKrLunarDateFromBe($siVbe, $siTB, $siTzB);
} else {
$lstYear="2530";
}
?>
พระจอมเกล้า