";
$lstDay=$_POST["lstDay"];
$lstMonth=$_POST["lstMonth"];
$lstYear=$_POST["lstYear"];
if(empty($lstYear)) {
if($lstYear!=0) $lstYear="2530";
}
$strTime=$_POST["strTime"];
$strMin=$_POST["strMin"];
//if(empty($strTime)) $strTime="06:00";
//default
if(empty($strTime)) $strTime="8";
if(empty($strMin)) $strMin="0";
if(empty($lstDay)) $lstDay="1";
if(empty($lstMonth)) $lstMonth="1";
if(empty($lstYear)) $lstYear="2530";
$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']=="ทำนาย") {
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 7
$ses= $utility->dPuUtTonrop($nWj + $nMj + $nY,9);
switch ($ses) {
case 1:
$strResult = "คู่รักของท่านเป็นคนรูปร่างสูงโปร่ง
ผิวเนื้อดำแดง
เจ้าชู้ ปากหวานมารยาทงาม
(คนชักนำให้รู้จักเป็นคนผิวดำ)
";
break;
case 2:
$strResult = "คู่ครองของท่านเตี้ย ผิวขาว
พูดจาตรงไปตรงมา กิริยาไม่ค่อยน่ารัก เป็นคนถือดี
ฐานะเกณฑ์เศรษฐี
(คนชักนำเป็นเพื่อนผิวเนื้อดำ)";
break;
case 3:
$strResult = "คู่ครองของท่านผอม
ผิวขาวเหลือง
เป็นคนสุภาพ อ่อนโยน เจ้าระเบียบ แต่ไม่ถือตัว
มีความรักใคร่กันดีอย่างยิ่ง
(คนชักนำเป็นญาติของท่านเอง )";
break;
case 4:
$strResult = "เนื้อคู่ท่านร่างสูงและอ้วน
ผิวสองสี (ดำแดง)
นิสัยเรียบร้อยช่างพูด
ฐานะดี หน้าตาเก๋
(คนชักนำเป็นคนแปลกหน้า )";
break;
case 5:
$strResult = "คู่ท่านเป็นคนผิวขาวร่างผอม
เป็นเศรษฐี มั่งมีทรัพย์
เป็นคนเรียบร้อย สุภาพดีมาก
(คนชักนำให้รู้จักกันเป็นคนร่างสูง)";
break;
case 6:
$strResult = "คู่ครองรูปร่างสันทัด ผิวดำแดง
นิสัยไม่ค่อยดี กระด้างเฉื่อยชา
ฐานะไม่ค่อยดี ไม่ขยันทำงาน
(รู้จักชอบพอกันโดยบังเอิญ )";
break;
case 7:
$strResult = "คู่ครองร่างเล็ก
เป็นคนสุภาพผิวดำ
ด้อยการศึกษา เล่าเรียนมาน้อย
(รู้จักชอบพอกันเพราะความคึกคะนองชั่วแล่น )";
break;
case 8:
$strResult = "คู่ครองของท่านรูปร่างเตี้ย ผิวขาว
ถือยศ เจ้าระเบียบเกินไป เจ้าโมโห
ปากอยู่ไม่ค่อยสุข
(รู้จักชอบพอกันเพราะเป็นเพื่อนกันมา)";
break;
case 0:
$strResult = "รูปร่างเนื้อคู่ของท่านค่อนข้างอ้วน
จิตใจดี เป็นคนน่ารัก
ฐานะมั่นคง ความรู้น้อย
(รู้จักชอบพอกันโดยผู้ใหญ่ชักนำให้ )";
break;
}
$strKram=$kram->sPuKrLunarDateFromBe($siVbe, $siTB, $siTzB);
//echo "Kram=".$strKram;
} //
?>
เนื้อคู่ ลักษณะเนื้อคู่