";
$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,7);
switch ($ses) {
case 1:
$strResult = " ท่านว่าเขาคนนั้นมีนิวาสสถานบ้านช่องห้องพักอยู่ทางพายัพ หรือทิศอาคเนย์ ก็คือทิศตะวันตกเฉียงเหนือ ไม่ก็ตะวันนออกเฉียงใต้ของบ้านคุณนั่นแหละ
";
$strResult .=" เขาหรือเธอคนนี้เป็นผู้มีศักดิ์ตระกูลชาติกำเนิดที่ดี เรียกว่าเกิดมาในตระกูลสูงกว่าคุณ รูปร่างหน้าตาท่านว่าสันทัดสมส่วนพองาม มีผิวสองสีดำแดง
";
$strResult .=" เขาเป็นคนมีความคิดเป็นอิสระ ชอบความสันโดษใช้ความคิด ทำการงานของตนเองไม่ยุ่งเกี่ยวกับใคร มีนิสัยเป็นคนเจ้าระเบียบเรียบร้อย ไม่ชอบความยุ่งเหยิง มักจะรักษาสมบัติไว้ได้เป็นอย่างดี หากได้อยู่เป็นคู่ครองกันแล้วจะไม่ผิดหวัง แต่ต้องทำให้ถูกต้องตามประเพณี เขาเป็นคนดี ชอบความถูกต้อง เขาเป็นคนขี้ใจน้อยแสนงอนเสียด้วย";
break;
case 2:
$strResult = " เนื้อคู่นั้นอยู่ทางบูรพาหรือทิศปัจฉิมแน่นอน หากไม่รู้บูรพาและปัจฉิม จำไว้ว่าทิศตะวันออกหรือตะวันตก นั่นคือทิศที่เขาคนนั้นพำนักอยู่
";
$strResult .= " ใครคนนี้เป็นคนมีผิวขาวผ่อง สะอาดสะอ้าน แม้จะเป็นคนเอวบางร่างเล็กแต่ก็ดูมีสง่าราศีเป็นคนเจ้าสำอางหรือคุณสะอาดนั่นเอง
";
$strResult .= " นิสัยของคนนี้ซื่อสัตย์ อ่อนน้อม รู้จักปรนนิบัติเอาใจใส่ผู้อื่นเป็นที่หนึ่ง รู้จักกาลเทศะ มีคารมคมคาย ฉลาดเฉลียว คล่องแคล่ว หากได้เป็นคู่ครองจะนำความก้าวหน้าและเป็นที่เชิดชูให้คุณได้สบาย";
break;
case 3:
$strResult = " ตามตำราท่านว่าเคหาสถานบ้านช่องของคู่คุณอยู่ทางทิศอีสาน ไม่ก็หรดีคือ ทิศตะวันออกเฉียงเหนือ ไม่ก็ตะวันตกเฉียงใต้ ไม่ทางใดก็ทางหนึ่งนั่นแหละ
";
$strResult .=" คนๆนี้เป็นนักปราชญ์ผู้คงแก่เรียน แม้จะเกิดมาในครอบครัวที่ธรรมดา แต่ความรู้ก็นำไปสู่ความก้าวหน้า เรียกว่าเป็นผู้มีวิชาความรู้เป็นทรัพย์ สร้างฐานะ ชื่อเสียง ให้แก่ทั้งตนเองและวงศ์ตระกูล
";
$strResult .= " เขาเป็นคนผิวออกคล้ำ รูปร่างสูงใหญ่ อาจจะเป็นคนที่เคยผิดหวังในนความรักมาก่อน บทเรียนนี้สอนให้เขาเข้มแข็ง และระมัดระวังในเรื่องของความรัก และนั่นยิ่งเป็นการเพิ่มเสน่ห์ เขามีนัยน์ตาที่คมเข้ม ขนตางอน นิสัยเป็นมิตรดี หากได้คู่ครองจะสุขสมจนใครๆต้องอิจฉา";
break;
case 4:
$strResult = " เนื้อคู่มีนิวาสถานบ้านช่อง หรือพื้นเพมาจากทางทิศอุดรหรือทักษิณ เรียกง่ายๆว่าไม่ทิศเหนือก็ทิศใต้นั่นแหละ
";
$strResult .=" ใครคนนี้เป็นคนใจกล้า รวดเร็ว แบบปากว่ามือถึงนั่นแหละ อย่างนี้โบราณเรียกว่าใจนักเลง คือกล้าได้กล้าเสีย กล้ากระทำ กล้าแสดงออก ไม่หวั่นเกรงสิ่งใด ใจคอกว้างขวาง จึงมีคนรักคนชอบ มีบริวารแวดล้อมมากมาย
";
$strResult .= " เขาออกจะเป็นคนเจ้าอารมณ์อยู่สักหน่อย เมื่อลืมตัวมักโมโหหุนหัน แต่ว่ามีน้ำใจเป็นนักกีฬาแบบนักเลงอยู่ ทำให้รู้แพ้รู้ชนะ รู้อภัย รู้จักอารมณ์ รู้ข้อบกพร่องของตนเอง ไม่โทษผู้อื่น หากว่าคุณได้เจอะเจอกับเขาแล้วให้ตกลงปลงใจเสีย เพราะตำราว่าภายหลังเขาคนนี้จะมีทรัพย์มากมาย";
break;
case 5:
$strResult = " เนื้อคู่ของคุณอยู่ทิศทักษิณหรือหรดี ก็ทิศใต้หรือไม่ก็ทิศตะวันตกเฉียงใต้ของคุณนั่นเอง เขาคนนี้เป็นคนมีผิวพรรณผ่องงาม ขาวแล้วยังออกแดงเรื่อๆ หน้าตาคมคาย สายตาระยับแวววาว การเจรจาก็เต็มไปด้วยคารมคมคาย
";
$strResult .=" แต่เขาไม่เจ้าชู้ ส่วนมากกลับครองตัวเป็นโสดแม่พวงมาลัยอยู่หลายปี จนจะขึ้นคานด้วยซ้ำ เพราะความช่างเลือก ปากนั้นเจรจาปราศรัยแต่ใจนั้นแข็งไม่โอนเอนด้วยง่ายๆ เพราะความฉลาดจึงมักเป็นคนมีความรู้ดี
";
$strResult .=" ชอบทำงานสบายๆไม่เคร่งเครียดจนดูเหมือนขี้เกียจ ไม่จริงจังเคร่งครัดชีวิตจึงออกจะรื่นรมย์มากกว่าหมองเศร้า ท่านว่าเมื่ออยู่กับใครคนนี้แรกๆออกจะลุ่มๆดอนๆ แต่ภายหลังจะดีขึ้นเป็นลำดับ จนมั่นคงเป็นปึกแผ่น";
break;
case 6:
$strResult = " เนื้อคู่นั้นเป็นคนที่อยู่ทางทิศปัจฉิม หรือหรดี หรือเรียกว่าทิศตะวันตกและตะวันตกเฉียงใต้ เขาคนนี้มีผิวขาวเหลืองทอง รูปร่างไม่ใหญ่ไม่โต ตำราท่านว่ารูปร่างสมส่วนไม่สูงไม่ต่ำ พอเหมาะพอดี
";
$strResult .=" หน้าตายิ้มแย้มผ่องใส แต่อารมณ์ออกจะอ่อนไหว ไม่มั่นคงนัก มักใจน้อยโกรธง่ายหายเร็ว แต่ด้านการเงินนั้นขยันขันแข็ง หนักเอาเบาสู้ จึงมักมีการงานที่ดีมั่นคงทำให้มีทรัพย์ฐานะดี
";
$strResult .=" หากตกลงเลือกเป็นคู่ครองก็ควรเข้าใจศึกษากันให้ดี เอาใจเขามาใส่ใจเราให้มากไว้ ชีวิตคู่ก็จะราบรื่น";
break;
case 0:
$strResult = " เนื้อคู่นั้นอยู่ทางทิศพายัพหรือทิศอาคเนย์ คือทิศตะวันตกเฉียงเหนือ หรือ ทิศตะวันออกเฉียงใต้ นั่นเอง เขาคนนี้มีผิวออกจะคล้ำ ดำแดง รูปร่างสูงใหญ่
";
$strResult .= " นิสัยออกจะเป็นคนรักสนุกและมีเล่ห์เหลี่ยมหลายกระบวนดูได้จากสายตาที่ซ่อนเร้น เขารักชีวิตอิสระมาก ประเภทใช้ชีวิตตามอำเภอใจ ไม่แคร์อะไร ไม่ถือระเบียบวินัยหรือกฎเกณฑ์ทางสังคมให้ยุ่งยาก ออกจะเจ้าชู้หน่อยๆด้วย จึง ดูชีวิตจะยุ่งเหยิงในบางครั้ง
";
$strResult .= " เงินทองที่หามาได้มักใช้จ่ายให้หมดไปอย่างรวดเร็ว หากได้เป็นคู่กันแล้วคุณคงต้องเป็นฝ่ายปรามเขาไว้และใช้ความเข้าใจ ความอดทนอย่างสูงจึงจะครองรักอย่างมีความสุข";
break;
}
$strKram=$kram->sPuKrLunarDateFromBe($siVbe, $siTB, $siTzB);
} //
?>
ดูดวง เนื้อคู่ ดูดวงเนื้อคู่