";
$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 8
$ses= $utility->dPuUtTonrop($nWj + $nMj + $nY,8);
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 .="น้ำจิตรักนักเลงโผงเผงไป มีข้อได้พึ่งพาแต่สามี
";
$strResult .="ลำพังตัวแล้วต้องเที่ยวซ่องแซ่ง ไม่มีแหล่งเป็นหลักสิ้นศักดิ์ศรี
";
$strResult .="แม้นชายใดได้ร่วมประเวณี ก็เป็นที่หมองมัวเหมือนต้องไฟ
";
break;
case 0:
$strResult = " เศษ ๘ นูนโหนกเป็นโคกเค้า เหมือนน้ำเต้าผ่าแล่งแถลงไข
";
$strResult .="โลมาร่ายริมรอบเป็นขอบไป ที่ลานใหญ่มีบ้างแต่บางเบา
";
$strResult .="น่าสงวนควรสนองประคองคู่ เป็นคนรู้จักเจียมเสงี่ยมเหงา
";
$strResult .="มักชิงชังสิ่งที่ชั่วไม่มัวเมา ประกอบด้วยเชาวน์ปรีชาปัญญายง
";
$strResult .="ใจประมาณบอกอาการที่เพ่งพิศ เจือนักเลงอยู่สักนิดน่าพิศวง
";
$strResult .="มีกลเม็ดเด็ดแท้แม่อนงค์ ชายใดลิ้มรสต้องหลงเสน่ห์นาง
";
break;
}
$strKram=$kram->sPuKrLunarDateFromBe($siVbe, $siTB, $siTzB);
} else {
$lstYear="2540";
}
?>
ตำราสตรีลักษณะ