<% if request.Form("lstDay")="" then lstDay=1 else lstDay=request.Form("lstDay") end if if request.Form("lstMonth")="" then lstMonth=1 else lstMonth=request.Form("lstMonth") end if if request.Form("lstYear")="" then lstYear=2500 else lstYear=Cint(request.Form("lstYear")) end if '-------------------------------------------------------------- 'Global Variable 'option explicit dim Age_in_Day dim Age_in_Day2 dim Age_in_StartMonth dim Age_in_StartMonth2 dim Curr_Start1 , Curr_Start2 , Curr_Start3 dim Curr2_Start1, Curr2_Start2, Curr2_Start3 dim Next_Start1, Next_Start2 , Next_Start3 dim Next2_Start1 , Next2_Start2 , Next2_Start3 dim lMonth, lYear dim lMonth2 , lYear2 ,strPredict '------------------------------------------------------ Function leapyear(Year) '----------------------------------------------------------------------------------------------- ' ฟังก์ชันสำหรับ: คำนาณหาหาปีอธิกสุรทิน (leapyear) ' โดย : นาย สันติ ลิ้มพรชัยเจริญ ' วันที่ : ๒๕ พฤศจิกายน พ.ศ. ๒๕๔๑ ' อินพุต : Year (พ.ศ.) ' เอาพุต : True or False , Leapyear = True '----------------------------------------------------------------------------------------------- If Year < 2484 Then 'กรณีที่ ปี พ.ศ. ก่อน ๒๔๘๓ If (Year - 542) Mod 100 = 0 Then If (Year - 542) Mod 40 = 0 Then leapyear = True Else leapyear = False End If ElseIf (Year - 542) Mod 4 = 0 Then leapyear = True Else leapyear = False End If Else 'กรณีที่ ปี พ.ศ. ๒๔๘๔ เป็นต้นไป If (Year - 543) Mod 100 = 0 Then If (Year - 543) Mod 40 = 0 Then leapyear = True Else leapyear = False End If ElseIf (Year - 543) Mod 4 = 0 Then leapyear = True Else leapyear = False End If End If End Function Function DayofMonth() dim lmonth lMonth = month(Date) Select Case lMonth Case 1, 3, 5, 7, 8, 10, 12 DayofMonth = 31 Case 2 If LeapYear(lYear + 543) = True Then DayofMonth = 29 Else DayofMonth = 28 End If Case 4, 6, 9, 11 DayofMonth = 30 End Select End Function Function Count_Day(strDay, strMonth, strYear) Dim ValYear Dim BirthDay , CurrentDay Dim arrMonth(12) arrMonth(1) = "Jan" arrMonth(2) = "Feb" arrMonth(3) = "Mar" arrMonth(4) = "Apr" arrMonth(5) = "May" arrMonth(6) = "Jun" arrMonth(7) = "Jul" arrMonth(8) = "Aug" arrMonth(9) = "Sep" arrMonth(10) = "Oct" arrMonth(11) = "Nov" arrMonth(12) = "Dec" 'Change format month Select Case strMonth Case 1 strMonth = "Jan" Case 2 strMonth = "Feb" Case 3 strMonth = "Mar" Case 4 strMonth = "Apr" Case 5 strMonth = "May" Case 6 strMonth = "Jun" Case 7 strMonth = "Jul" Case 8 strMonth = "Aug" Case 9 strMonth = "Sep" Case 10 strMonth = "Oct" Case 11 strMonth = "Nov" Case 12 strMonth = "Dec" End Select 'Change Year ValYear = Cint(strYear) - 543 strYear = ValYear BirthDay = strDay & "-" & strMonth & "-" & strYear If CInt(year(Now())) > 2400 Then CurrentDay = CStr(day(Now())) & "-" & arrMonth(month(Now() - 1)) & "-" & CStr(year(Now()) - 543) Else CurrentDay = CStr(day(Now())) & "-" & arrMonth(month(Now() - 1)) & "-" & CStr(year(Now())) End If 'CurrentDay = Now() Count_Day = DateDiff("d", BirthDay, CurrentDay) + 1 'Add one day for end day 'Adjust to 1st of Month 'Count_Day = Count_Day - day(CurrentDay) + 1 Count_Day = Count_Day - day(CurrentDay) End Function '------------------------------------------- 'Predict '------------------------------------------- Function Predict(Curr_Start1,Curr_Start2,Curr_Start3) Const Physical_cycle = 23 Const Sensitivity_Cycle = 28 Const Intellect_cycle = 33 Dim Start1(32), Start2(32), Start3(32) Dim Endmonth, i, Stop_date Dim temp_date,strPredict,strNext 'ของเดือนถัดไป dim arrMonth,dtmDate,strYear arrMonth = Array("มกราคม", "กุมภาพันธ์", "มีนาคม", "เมษายน", "พฤษภาคม", "มิถุนายน", _ "กรกฎาคม", "สิงหาคม", "กันยายน", "ตุลาคม", "พฤศจิกายน", "ธันวาคม") Endmonth = DayofMonth() Start1(1) = Curr_Start1 Start2(1) = Curr_Start2 Start3(1) = Curr_Start3 'Reset txtPredict 'dtmDate=Now() + 0.471 dtmDate=Now() if year(dtmDate) < 2400 then strYear=year(dtmDate) + 543 end if strPredict = "ผลการทำนายประจำเดือน " & arrMonth(month(dtmDate)-1) & " พ.ศ." & stryear & "

" '----------------------------------------------------------------------------------------------------------- 'Predict '-------------------------- 'Predict Physical Cycle '------------------------- strPredict = strPredict & "สภาพร่างกาย" & "
" For i = 1 To Endmonth 'ระยะบวก 1-7 If Start1(i) = 1 Then Stop_date = i + 6 If Stop_date > Endmonth Then Stop_date = Stop_date - Endmonth strNext = " ของเดือนถัดไป " End If strPredict = strPredict & "วันที่ " & i & " ถึงวันที่ " & Stop_date & strNext & " ในช่วงนี้คุณจะมีร่างกายที่แข็งแรง วันที่ " & Stop_date & " ร่างกายจะแข็งแรงมากที่สุด จึงเหมาะที่จะงานที่ใช้ออกกำลังกาย เช่นการลงแข่งขันกีฬาต่างๆ นักกีฬาหลายท่านได้เหรียญทองเมื่อทำการแข่งขันในช่วงนี้ แต่อย่าออกกกำลังมากเกินไปอาจทำให้บาดเจ็บหรือไม่สบายได้" & "
" strNext="" End If 'วันวิกฤติ 'ระยะลบ 18-24 If Start1(i) = 18 Then Stop_date = i + 6 If Stop_date > Endmonth Then Stop_date = Stop_date - Endmonth strNext = " ของเดือนถัดไป " End If strPredict = strPredict & "วันที่ " & i & " ถึงวันที่ " & Stop_date & strNext & " เป็นช่วงที่คุณเหนื่อยอ่อนเพลียมาก" + _ "ความสามารถอยู่ในระดับต่ำกว่ามาตราฐาน และอุบัติเหตุมักจะเกิดได้ในช่วงนี้ วันที่ " & i & " เป็นวันที่ร่างกายอ่อนแอมากที่สุด จึงควรระวังในช่วงนี้จะ และร่างกายไม่สมบูรณ์นักในช่วงนี้ อย่าทำอะไรอย่างประมาท" & "
" strNext="" End If 'ระยะบวกที่ 2 25-30 If Start1(i) = 25 Then Stop_date = i + 5 If Stop_date > Endmonth Then Stop_date = Stop_date - Endmonth strNext = " ของเดือนถัดไป " End If strPredict = strPredict & "วันที่ " & i & " ถึงวันที่ " & Stop_date & strNext & " ร่างกายคุณแข็งแรงมากที่สุดอีกช่วงหนึ่ง ดังนั้นจึงเหมาะกับงานที่ใช้กำลังกาย แต่อย่าออกกกำลังมากเกินไปเพราะอาจทำให้บาดเจ็บหรือไม่สบายได้" & "
" strNext="" End If Start1(i + 1) = Start1(i) + 1 If Start1(i + 1) > Physical_cycle Then Start1(i + 1) = 1 Next '--------------------------------- 'Predict Sensitivity Cycle '---------------------------------- strPredict = strPredict & "
" & "สภาวะทางอารมณ์" & "
" For i = 1 To Endmonth 'ระยะบวก If Start2(i) = 1 Then Stop_date = i + 13 If Stop_date > Endmonth Then Stop_date = Stop_date - Endmonth strNext = " ของเดือนถัดไป " End If strPredict = strPredict & "วันที่ " & i & " ถึงวันที่ " & Stop_date & strNext & " เป็นช่วงที่คุณมีอารมณ์แจ่มใส่ และมองโลกในแง่ดี " & "
" strNext="" End If If Start2(i) = 8 Then strPredict = strPredict & "วันที่ " & i & " จิตใจสดชื่นแจ่มใสมากที่สุด และความสัมพันธ์กับคนรอบข้างเป็นไปด้วยดี เหมาะที่จะขอความรักเป็นที่สุด" & "
" End If 'วันวิกฤติ If Start2(i) = 14 Or Start2(i) = 28 Then strPredict = strPredict & "วันที่ " & i & " เป็นวันที่คุณจะอารมณ์แปรปรวนมากที่สุด ในระยะ 2-3 วันนี้คุณควรหลีกเลี่ยงการชับรถ ง่านรื่นเริงต่างๆ ถ้าหลีกเลี่ยงไม่ได้ก็ให้ระวังเป็นพิเศษ" & "
" End If 'ระยะลบ If Start2(i) = 15 Then Stop_date = i + 13 If Stop_date > Endmonth Then Stop_date = Stop_date - Endmonth strNext = " ของเดือนถัดไป " End If strPredict = strPredict & "วันที่ " & i & " ถึงวันที่ " & Stop_date & strNext & " เป็นช่วงที่คุณเกิดอารมณ์เสียง่าย โกรธง่าย ไม่ค่อยได้รับความร่วมมือจากคนทั่วไป" & "
" strNext="" End If If Start2(i) = 22 Then strPredict = strPredict & "วันที่ " & i & " เป็นวันที่คุณมีอาการโกรธง่าย หรืออารมณ์เสียง่ายเกิดขึ้นมากที่สุด" & "
" End If '------------------------------------------------------------------------------------------------------------- Start2(i + 1) = Start2(i) + 1 If Start2(i + 1) > Sensitivity_Cycle Then Start2(i + 1) = 1 Next '---------------------------------- 'Predict Intellect Cycle '--------------------------------- strPredict = strPredict & "
" & "ความสามารถทางปัญญา" & "
" For i = 1 To Endmonth 'ระยะบวก If Start3(i) = 1 Then Stop_date = i + 15 If Stop_date > Endmonth Then Stop_date = Stop_date - Endmonth strNext = " ของเดือนถัดไป " End If strPredict = strPredict & "วันที่ " & i & " ถึงวันที่ " & Stop_date & strNext & " เป็นช่วงที่คุณมีความจำแม่น มีสมาธิ และมีความทะเยอทะยาน " & "
" strNext="" End If If Start3(i) = 8 Then Stop_date = i + 1 If Stop_date > Endmonth Then Stop_date = Stop_date - Endmonth strNext = " ของเดือนถัดไป " End If strPredict = strPredict & "วันที่ " & i & " ถึงวันที่ " & Stop_date & strNext & " เป็นช่วงที่คุณมีสมองที่ดีเลิศ สามารถแก้ปัญหาต่างๆได้อย่างง่ายดาย " & "
" strNext="" End If 'วันวิกฤติ If Start3(i) = 17 Then strPredict = strPredict & "วันที่ " & i & " เป็นวันที่สมองของคุณสับสน ยุ่งเหยิง ไม่เหมาะที่จะตัดสินใจเรื่องที่สำคัญ ควรรอผ่านวันนี้ไปก่อน 1-2 วัน ในระยะนี้คุณควรทำอะไรอย่างรอบคอบ" & "
" End If 'ระยะลบ If Start3(i) = 18 Then Stop_date = i + 15 If Stop_date > Endmonth Then Stop_date = Stop_date - Endmonth strNext = " ของเดือนถัดไป " End If strPredict = strPredict & "วันที่ " & i & " ถึงวันที่ " & Stop_date & strNext & " เป็นช่วงที่ความคิดของคุณจะช้าลง ความรับรู้ช้า " & "
" strNext="" End If '----------------------------------------------------------------------------------------------------------------------- Start3(i + 1) = Start3(i) + 1 If Start3(i + 1) > Intellect_cycle Then Start3(i + 1) = 1 Next '-------------------------------------------------------------------------------------------------------------- ' หาวันวิกฤติ ที่สอดคล้องกันของทั้ง 3 วัฏจักร For i = 1 To Endmonth Dim strTreeCycle strTreeCycle = "" 'Physical and sensitivity cycle If (Start1(i) = 12 Or Start1(i) = 23) And (Start2(i) = 14 Or Start2(i) = 15 Or Start2(i) = 28) Then strTreeCycle = strTreeCycle & "วันที่ " & i & " เป็นวันที่มีโอกาสเกิดอุบัติเหตุสูงสุด ควรหลีกเลี่ยงการขับรถ หรือสิ่งที่เสี่ยงต่อการเกิดอุบัติเหตุ ทำสิ่งต่างๆอย่างระมัดระวัง " & "
" End If If Len(strTreeCycle) > 0 Then strPredict = strPredict & "วันวิกฤติ ที่สอดคล้องกันของทั้ง 3 วัฏจักร" & "
" & strTreeCycle End If Next Predict=strPredict End function '--------------------------------------------------------------- if Request.Form("cmdPredict")<>"" then '------------------------------------------------------------------------ Dim MaxDay,StrDay,StrMonth,StrYear,longDay Dim longMonth,longYear Dim Lunar Dim TmpStr,Result strDay = Cint(request("lstDay")) strMonth = Cint(request("lstMonth")) strYear = Cint(request("lstYear")) '--------------------------------------------------------------------------------------------- 'Plot Graph Age_in_Day = Count_Day(strDay,strMonth,strYear) Age_in_StartMonth = Age_in_Day Curr_Start1 = Age_in_StartMonth Mod 23 Curr_Start2 = Age_in_StartMonth Mod 28 Curr_Start3 = Age_in_StartMonth Mod 33 If Curr_Start1 = 0 Then Curr_Start1 = 23 If Curr_Start2 = 0 Then Curr_Start2 = 28 If Curr_Start3 = 0 Then Curr_Start3 = 33 strPredict=Predict(Curr_Start1,Curr_Start2,Curr_Start3) strGraph="" & _ "" & _ "" & _ "" 'Response.Write strPredict else strGraph="" & _ "" & _ "" & _ "" end if%> กราฟชีวิต <%if Request.Form("cmdPredict")<>"" then%> <% else %> <%end if%>
หน้าแรก ดูดวง หาเพื่อนรู้ใจ หางาน คู่บ่าวสาว สารบัญเว็บไทย เว็บบอร์ด Chat ลงโฆษณา ตั้งบ้านรักเป็นหน้าแรก สมัครสมาชิก
Web Directory Baanrak Web Directory
ค้นหา   
คำค้นยอดฮิต : เกมส์ ดูดวง สมัครงาน ฟังเพลง >> เพิ่มรายชื่อโฮมเพจ | เว็บมาใหม่ | เว็บมาแรง
 เมนูหาเพื่อนรู้ใจ>> Control Panel | Upload photos | Communicator | My Inbox | My Outbox | New Message | My Blog | Log-Out |
ดูดวง เมนู
   เนื้อคู่
   กราฟชีวิต
   ปฏิทิน
   ราศี
   ดวงสมพงษ์
   ดูดวงจากหมอหยอง
   ตามหาเนื้อคู่
   ดูดวงบัตรประชาชน
   ฤกษ์ ขอความรัก
   ฤกษ์แต่งงาน
   ดูดวงจากเวลาเกิด
   เศษพระจอมเกล้า
   ตั้งชื่อ
   ดูราศีแบบจีน
   วัดระดับความรัก
   ดวงจาก สัตว์เลี้ยง
   ดูดวงรถ
   เซียมซี
   ตำรา สตรีลักษณะ
   ตำรา บุรุษลักษณะ
   เดือน แต่งงาน
   ราศี
   ลักษณะร้ายของคุณ
   เปลี่ยนชื่อ
   ฮวงจุ้ย
   คุณเป็นสาวสีอะไร
   ไม้มงคล
   หมอลักษณ์ ฟันธง
   หมอกฤษณ์์ คอนเฟริ์ม
   วัตถุมงคล เสริมดวงชะตา
   อาจารย์เก่งกาจ
   ปูโลกเบี้ยว
   ดวงชงปี 55
   หวย
   ซาเบียน
   หน้าแรก
   ตั้งบ้านรักเป็นหน้าแรก
   สมัครสมาชิก
   ดูดวง ฟรี
   หาเพื่อนรู้ใจ
   คู่บ่าวสาว
   Girl Gallery
   Men Gallery
   ค้นหาเพื่อนรู้ใจ

กราฟชีวิต

กราฟชิวิต รายเดือน ปรับปรุงใหม่ สามารถ plot graph ทำให้แม่นยำมากขึ้น กรุณาเข้ามาตรวจดวงชะตาคุณอย่างน้อยเดือนละครั้งที่นี่ค่ะ จะเป็นประโยชน์มากที่จะ ช่วยคุณเข้าใจตัวคุณเอง หรือคนที่คุณรัก ว่าทำไม่ช่วงนี้ ถึง สุขภาพไม่ดี หรืออารมณ์แปรปรวน ทำให้เราสามารถหลีกเลี่ยง เรื่องร้ายๆที่จะเกิดขึ้นได้ค่ะ หรือแม้กระทั่งทำไมช่วงนี้ สมองเรางปลอดโปร่งทำข้อสอบได้ หรือ คิดอะไรก็ ได้ไปหมด

กรุณาใส่วันเดือนปีที่คุณต้องการคำนวณ และกดปุ่มคำนวณ กราฟชีวิตของคุณได้เลยค่ะ

" name="frmPredict">

กราฟชิวิต ปรับปรุงใหม่ สามารถแสดงกราฟชีวิต ทำให้แม่นยำมากขึ้น

กราฟชีวิต ของคุณ <% '=strGraph%>



<%if Request.Form("cmdPredict")<>"" then%>
<% Response.Write strPredict %>
<%else%>
กราฟชีวิต เป็นการใช้สถิติ เพื่อดูวงจรของชีวิต ที่มีจังหวะหมุนวนซ้ำ เรามักจะพบว่า สภาพร่างกาย อารมณ์ และปัญญา มัจะเกิดเป็นวงรอบของมันเอง เราอาจใช้ความรู้อันนี้ มาช่วยให้เราหลีกเลี่ยงปัญหาต่างๆได้เช่นอุบัติเหตุ ถ้าวันนี้สภาพร่างกายเราไม่พร้อมที่จะขับรถ เราก็อาจหลีกเลี่ยง หรือถ้าเลี่ยงไม่ได้ก็อาจใช้ความระมัดระวังมากขึ้น หรือแม้กระทั่งการอ่านหนังสือสอบ ถ้าวันไหนสมองเราปลอดโปร่งก็กำหนดให้วันนั้นให้อ่านหนังสือ และวันที่สมองไม่แจ่มใสก็พักผ่อน และมักจะพบว่ากราฟชีวิต มักจะไม่เกี่ยวข้องกับโหราศาสตร์ เนื่องจากใช้สถิติในการคิด

ในแต่ละเดือนผลการทำนายจะไม่เหมือนกัน ดังนั้นจึงควรเข้ามาดูอย่างน้อยเดือนละครั้ง
<%end if%>


ฉันเป็น:
กำลังมองหา:
คนที่มีรูปแสดงเท่านั้น

advanced search
   หาเพื่อนรู้ใจ
   คู่บ่าวสาว
   Girl Gallery
   Men Gallery

หาเพื่อน | ดูดวง | ตั้งชื่อ | หางาน | งานราชการ | งานรัฐวิสาหกิจ | งานสถาบันศึกษา | งานพิเศษ | ช่างภาพ |
   1999-2007 © Copyright Baanrak.com. All rights reserved. | เกี่ยวกับบ้านรัก | ลงโฆษณา |