";
$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 12
$ses= $utility->dPuUtTonrop($nWj + $nMj + $nY,12);
switch ($ses) {
case 1:
$strResult = " เศษ ๑ พึงขนาดตำนานกล่าว วัดโดยยาวหกนิ้วไม่ใช่สั้น
";
$strResult .="ทั้งยศศักดิ์เจ้าชู้ไม่ชั่วครัน หัวใจนั้นชอบเล่นไม่เคล้นคลึง
";
$strResult .="จะสาวแก่แม่หม้ายไม่วายนึก พอแก่คึกชั่วครู่ต้องสู้ถึง
";
$strResult .="แม้เจ็บตัวหิ้วหัวมิกลัวคะนึง เฝ้าแต่คลึงคลอดคร่ำอยู่ร่ำไป
";
break;
case 2:
$strResult = " เศษ ๒ ในตำราว่าเจ็ดนิ้ว มักเป็นนิ่วเหือดฝีมีมากหลาย
";
$strResult .="องคชาตเอียงปรากฏคดข้างซ้าย ไม่พอใจคู่ขาคราร่วมควง
";
$strResult .="ทางยศศักดิ์ฐานเทียบเปรียบกับเขา ตามบุญเก่าทำไว้ไม่ต้องห่วง
";
$strResult .="ก็มีบ้างตามตำรามิใช่ลวง เพียงพระหลวงแล้วไซร้ต้องได้ครัน
";
break;
case 3:
$strResult = " เศษ ๓ กามราคะแสนแรงร้าย อดไม่ได้สักวันเดียวเสียวกระสัน
";
$strResult .="รูปร่างพอสันทัดทั้งกลัดมัน ไม่ยาวสั้นพอเหมาะจำเพาะทาง
";
$strResult .="แต่ชะตาวาสนาไม่อาภัพ พอจะนับดีได้ไม่ขัดขวาง
";
$strResult .="แต่มีชั่วปนมาน่าระคาง เพียงขั้นกลางอยู่บุญกรรมที่ทำมา
";
break;
case 4:
$strResult = " เศษ ๔ ในตำราว่ามียศ แน่ปรากฏหญิงชายใจใฝ่หา
";
$strResult .="รูปพรรณสันทัดจัดเอาว่า พอจะอาศัยได้คราใช้งาน
";
$strResult .="แต่ตอนหัวไยหมวกไม่มีใส่ แลดูใสบานเบิกเลิกถึงกั่น
";
$strResult .="ถ้ามีเมียมักนอกใจให้รำคาญ เพราะหัวสั้นชวนเมียระเหี่ยใจ
";
break;
case 5:
$strResult = " เศษ ๕ ว่าเลิคประเสร็จศรี เพราะมีปัญญาเทียบบ่าไหล่
";
$strResult .= $strResult .="อันว่าชะตาวาสนาพอพาไป ตามแต่ได้ผลบุญที่จุนเจือ
";
"ส่วนทรัพย์ถ้าเป็นคฤหัสถ์ ต้องแค้นขัดหายากลำบากเหลือ
";
$strResult .="แต่มักเลิศตัณหาพาร้ายเจือ ส่วนแท่งเนื้อนั้นหนอพอตัวตน
";
break;
case 6:
$strResult = " เศษ ๖ ยกตำราขึ้นมาอ้าง เรื่องในทางเกี้ยวเลี้ยวลัดไม่ขัดสน
";
$strResult .="แต่ในจิตไม่ได้เป็นตัวตน พอสมผลแล้วก็หลบไม่พบพา
" ;
$strResult .="อันปัญญายิ่งปัญหาใดสถิตอยู่ ทั้งเหลี่ยมคูพร้อมอำนาจวาสนา
";
$strResult .="วงพักตร์งามนักหนอลออตา ส่วนยาวว่าหกนิ้วเขตเศษยังมี
";
break;
case 7:
$strResult = " เศษ ๗ แน่นักประจักษ์ต้อง เจ็ดนิ้วสองกระเบียดเหยีดเต็มที่
";
$strResult .="คราเริ่มงานหญ้าสะท้านหวั่นฤดี แทบลุกหนีเพราะแสบไส้ในอุทร
";
$strResult .="อันความดีก็มีพอแต่ พอกันแก้เสนียดภัยอันร้ายก่อน
";
$strResult .="พึ่งตนได้ไม่ต้องอนาทร คราวเดือดร้อนเพราะปัญญานั้นพาไป
";
break;
case 8:
$strResult = " เศษ ๘ ในตำราว่ายาวเยี่ยม แปดนิ้วเทียมแบบครูดูไฉน
";
$strResult .="ช่างยาวเหลือคราคิดพินิจไป เหมือนสากใหญ่ปลายแบ่งตระหง่านบาน
";
$strResult .="ในชีวิตจิตจ่อแต่ยอดชู้ หญิงไม่สู้ต้องขยาดไม่อาจหาญ
";
$strResult .="อันอาชีพเริ่มพึ่งราชการ แม้จะนานเหนื่อยหน่อยต้องได้ดี
";
break;
case 9:
$strResult = " เศษ ๙ ว่าเลิศประเสริฐสุข ไม่มีทุกข์มาตัดสุขี
";
$strResult .="ไม่ค่อยคิดถึงเรื่องโลกีย์ ครองชีวีละม้ายคล้ายพระเชียว
";
$strResult .="อันรูปพรรณส่วนฐานประมาณนั้น ว่าอ้วนอั๋นแลหาไม่น่าเหลียว
";
$strResult .="แต่ว่าจะอ่อนเปลี้ยเสียทีเดียว บางคราวเปลี่ยวเกิดสนุกจึงลุกชี้
";
break;
case 10:
$strResult = " เศษ ๑๐ เมียมักจะรักใคร่ ช่างจี้ไชดูดูประจู๋ ประจี๋
";
$strResult .="ทั้งรูปร่างเกลียวกลมสมอินทรีย์ ทั่วบ้านมีลูกเต้าเต็มเหย้าเรือน
";
$strResult .="ไม่ค่อยคิดอื่นไกลหากินเศษ เกินขอบเขตนอนบ้านหาไม่เหมือน
";
$strResult .="พริกถ้วยเก่าแล้วเล่าไม่แชเชือน ไม่เบื่อเบือนเชือนแชแน่เสียจริง
";
break;
case 11:
$strResult = " เศษ ๑๑ มิพูดเท็จเท่ากิ่งก้อย กะจ้อยร่อยนิดเดียวกระหนุงกระหนิง
";
$strResult .="แต่มีบทประโลมโฉมประวิง ดีเด็ดจริงนารีติดไม่คิดแช
";
$strResult .="ถึงจะสั้นแต่พิษสงพริกขี้หนู จิตใจสู้ทรหดกำหนดแน่
" ;
$strResult .="ไม่หันเหเรรวนหรือปรวนแปร เป็นเอกแท้แต่หญิงเสียจริงละ
";
break;
case 0:
$strResult = " เศษ ๑๒ พูนเพิ่มเฉลิมเลิศ แสนประเสร็ฐหญิงใดถ้าได้ปะ
";
$strResult .="สิบสองนิ้วยาวเฟื้อยดูเลื้อยละ สั้นพอกะลงมาสักเก้านิ้ว
";
$strResult .="หญิงใดได้ดูแล้วชูชื่น ระรื่นรสตามเมื่อยามหิว
" ;
$strResult .="เฝ้าอิงแอบแนบชิดไม่บิดพลิ้ว ชะตาลิ่วลอยเมฆฌป็นเอกเอย
";
break;
}
$strKram=$kram->sPuKrLunarDateFromBe($siVbe, $siTB, $siTzB);
} else {
$lstYear="2540";
}
?>
ตำรา บุรุษลักษณะ คุณมีลักษณะเช่นไรตามตำรา