<%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")) strTime=request("strTime") '-------------------------------------------------------------------------------------------------------- ' ตรวจสอบตกฟาก ถ้าเกิด ก่อน หมโมงเช้า ถือว่ายังเป็นวันเก่าอยู่ '-------------------------------------------------------------------------------------------------------- If Cint(Left(strTime, 2)) < 6 Then If Cint(StrDay) = 1 Then Select Case (StrMonth - 1) Case 0 'Go Bacl Last year StrDay = "31" StrYear = Cstr(StrYear - 1) StrMonth = "12" Case 2 If leapyear(StrYear) = True Then StrDay = "29" Else StrDay = "28" End If StrMonth = CStr(StrMonth - 1) Case 3, 5, 7, 8, 10 StrDay = "31" StrMonth = cStr(StrMonth - 1) Case 4, 6, 9, 11 StrDay = 30 StrMonth = cStr(StrMonth - 1) End Select Else StrDay = cStr(StrDay - 1) End If End If If strMonth = 1 Then MaxDay = 31 ElseIf strMonth = 2 Then If leapyear(StrYear) = True Then MaxDay = 29 Else MaxDay = 28 End If ElseIf strMonth = 3 Then MaxDay = 31 ElseIf strMonth = 4 Then MaxDay = 30 ElseIf strMonth = 5 Then MaxDay = 31 ElseIf strMonth = 6 Then MaxDay = 30 ElseIf strMonth = 7 Then MaxDay = 31 ElseIf strMonth = 8 Then MaxDay = 31 ElseIf strMonth = 9 Then MaxDay = 30 ElseIf strMonth = 10 Then MaxDay = 31 ElseIf strMonth = 11 Then MaxDay = 30 ElseIf strMonth = 12 Then MaxDay = 31 End If If StrDay > MaxDay Then 'MsgBox "กรุณาป้อน วันอีกครั้ง !", , "ป้อนวันผิดพลาด" 'Exit Sub End If If StrYear < 2400 Or StrYear > 2574 Then ' MsgBox "กรุณาป้อน ปีอีกครั้ง ในช่วง ๒๔๐๐ ถึง ๒๕๗๔", , "ป้อนปีผิดพลาด" ' Exit Sub End If '--------------------------------------------------------------------------------------------------------- Lunar = Solar2Lunar(StrDay, StrMonth, StrYear) 'Response.Write("Lunar=" & Lunar & "
") arrLunar=split(Lunar,",") Lunar_Day=arrLunar(0) Lunar_Month=arrLunar(1) Lunar_Year=arrLunar(2) Lunar_DayOfWeek=arrLunar(3) '---------------------------------------------------------------------------------------------------------- ' Prepare data for label on Form '---------------------------------------------------------------------------------------------------------- '------------------------------- 'วัน '------------------------------ Select Case Cint(Lunar_DayofWeek) Case 1 strLunarDate = "วันอาทิตย์ " Case 2 strLunarDate = "วันจันทร์ " Case 3 strLunarDate = "วันอังคาร " Case 4 strLunarDate = "วันพุธ " Case 5 strLunarDate = "วันพฤหัส " Case 6 strLunarDate = "วันศุกร์ " Case 7 strLunarDate = "วันเสาร์ " End Select '------------------------------- ' ค่ำ '------------------------------- If Lunar_Day > 15 Then strLunarDate = strLunarDate & "แรม " & (Cint(Lunar_Day) - 15) & " ค่ำ" Else strLunarDate = strLunarDate & "ขึ้น " & Cint(Lunar_Day) & " ค่ำ" End If '-------------------------- 'เดือน '-------------------------- Select Case Cint(Lunar_Month) Case 1 strLunarDate = strLunarDate & " เดือน อ้าย" Case 2 strLunarDate = strLunarDate & " เดือน ยี่" Case 3 strLunarDate = strLunarDate & " เดือน สาม" Case 4 strLunarDate = strLunarDate & " เดือน สี่" Case 5 strLunarDate = strLunarDate & " เดือน ห้า" Case 6 strLunarDate = strLunarDate & " เดือน หก" Case 7 strLunarDate = strLunarDate & " เดือน เจ็ด" Case 8 strLunarDate = strLunarDate & " เดือน แปด" Case 9 strLunarDate = strLunarDate & " เดือน เก้า" Case 10 strLunarDate = strLunarDate & " เดือน สิบ" Case 11 strLunarDate = strLunarDate & " เดือน สิบเอ็ด" Case 12 strLunarDate = strLunarDate & " เดือน สิบสอง" End Select '--------------------------- 'ปี '--------------------------- Select Case Cint(Lunar_Year) Case 1 strLunarDate = strLunarDate & " ปีชวด" Case 2 strLunarDate = strLunarDate & " ปีฉลู" Case 3 strLunarDate = strLunarDate & " ปีขาล" Case 4 strLunarDate = strLunarDate & " ปีเถาะ" Case 5 strLunarDate = strLunarDate & " ปีมะโรง" Case 6 strLunarDate = strLunarDate & " ปีมะเส็ง" Case 7 strLunarDate = strLunarDate & " ปีมะเมีย" Case 8 strLunarDate = strLunarDate & " ปีมะแม" Case 9 strLunarDate = strLunarDate & " ปีวอก" Case 10 strLunarDate = strLunarDate & " ปีระกา" Case 11 strLunarDate = strLunarDate & " ปีจอ" Case 12 strLunarDate = strLunarDate & " ปีกุน" End Select '--------------------------------------------------------------------------------------------------------- 'คำนวณเศษ '--------------------------------------------------------------------------------------------------------- 'เศษพระจอมเกล้า ท่านให้เอาวัน เดือน ปี บวกเข้าด้วยกัน นับปีชวด เป็นต้น เดือนอ้ายเป็นต้น 'วันอาทิตย์เป็นต้น ถ้ามีเศษเกินกว่า 10 ขึ้นไป ต้องเอา 10 หัก ออกเสมอ เอาเศษแค่ 10 เป็นจำนวนทาย ดังนี้ '-------------------------------------------------------------------------------------------------------- Result = (Cint(Lunar_DayofWeek) + Cint(Lunar_Month) + Cint(Lunar_Year)) Mod 10 Select Case Result Case 1 strResult = " เศษ ๑ เสาเรือนไฟไหม้ ชะตาใครทั้งชายหญิง

" + _ "ไร้เรือนที่พักพิง ที่พึ่งพักสำนักเนา

" + _ "ร่อนเร่ระเหระหน เร่งเจียมตนอย่าดูเบา

" + _ "เพราะว่าชะตาเรา โทษประกอบจึงเกิดกรรม

" strResult2 = " เศษ ๑ หญิงชายใดตกเข้าแล้ว จะไม่มีที่พักพิงอาศัย มีเรือนก็ไฟไหม้ ให้พึงเจียมเนื้อเจียมตนให้จงหนัก กระทำการใดให้พินิจพิจารณาอย่างรอบคอบ" Case 2 strResult = " เศษ ๒ จะครองไข้ มีโรคร้ายรุมประจำ

" + _ "หยูกยาจะหาทำ บ่ถูกแท้จนแก่ตัว

" strResult2 = " เศษ ๒ จะมีโรคประจำตัว รักษาอย่างไรก็หายได้ยาก ต้องเสียทรัพย์สินอยู่เรื่อยไป ทำให้มีฐานะค่อนข้างจะยากจน" Case 3 strResult = " เศษ ๓ ความสบาย มีม้าควายเกวียนและวัว

" + _ "พอสมสกุลตัว เข้าที่ทายสถานกลาง

" strResult2 = " เศษ ๓ เป็นคนมีฐานะพอเหมาะสมตัว แค่สถานประมาณกลาง จะว่าจนก็ไม่ได้ จะว่ารวยก็ไม่เชิง" Case 4 strResult = " เศษ ๔ มีข้าครอก อเนกนอกคณานาง

" + _ "อุปถัมภ์ล้วนสำอาง บ่ไข้ชุกบ่ทุกข์เป็น

" strResult2 = " เศษ ๔ เป็นคนมีบุญ คิดการสิ่งใดก็สมความปรารถนา มีข้าทาสบริวาร และทรัพย์สินเงินทองเพียงพอ แก่การใช้จ่ายได้อย่างสะดวก สบาย" Case 5 strResult = " เศษ ๕ ชะตากลับ ทุนทรัพย์แลแสนเข็ญ

" + _ "ภายหน้าชะตาเป็น ทุนทรัพย์จะนับพัน

" strResult2 = " เศษ ๕ ในขั้นต้นจะเป็นคนไม่มีฐานะ แต่เมื่ออายุย่างมากเข้า ฐานะก็จะกลับกลายจนมีหลักฐานมั่นคงดี" Case 6 strResult = " เศษ ๖ จะยกญาติ เป็นเชื้อชาติประเสริฐสรรพ์

" + _ "เงินตรายศถาพันธ์ ทุนทรัพย์ลำดับดี

" strResult2 = " เศษ ๖ จะได้รับความอุดหนุนจากหมู่ญาติที่สนิทสนมกับตน ช่วยฟื้นฟูฐานะของตนจนกลายเป็นคนมีฐานะดีในอนาคต" Case 7 strResult = " เศษ ๗ นั้นผ้าขาด จะนุ่งห่มก็เต็มที

" + _ "พักตราย่อมราศี ระคายคับทั้งทรัพย์สิน

" strResult2 = " เศษ ๗ เป็นคนค่อนข้างอาภัพ กระทำการใดก็ไม่สำเร็จผล ทุนทรัพย์ก็มีน้อย ไม่เพียงพอแก่การใช้จ่าย การนุ่งห่มก็ซมซ่อ เป็นที่เหยียดหยามของคนทั่วไป" Case 8 strResult = " เศษ ๘ นั้นเปรื่องยศ จะปรากฏกระเดื่องดิน

" + _ "ทรัพย์ศฤงคารสถานถิ่น ทั้งอำนาจวาสนา

" strResult2 = " เศษ ๘ เป็นคนมีชาติมีตระกูล จะกระทำการใดก็ได้ดังความปรารถนา จะเป็นคมมีเกียรติยศเป็นที่เชื่อถือของคนทั่วไป และสมบูรณ์ด้วยทรัพย์สิน" Case 9 strResult = " เศษ ๙ กินข้าวกลางตลาด เสมอชาติสุนักขา

" + _ "ถึงจะมีวาสนา ต้องประกอบกิจการ

" + _ "แม้นตระกูลทลิทก ถึงตกต่ำก็บ่นาน

" + _ "ดั่งนักเลงสุราบาน พอขวนขวายใส่ท้องตน

" strResult2 = " เศษ ๘ เป็นคนมีชาติมีตระกูล จะกระทำการใดก็ได้ดังความปรารถนา จะเป็นคมมีเกียรติยศเป็นที่เชื่อถือของคนทั่วไป และสมบูรณ์ด้วยทรัพย์สิน" Case 0 strResult = " เศษ ๐ นกแขกเต้า เฝ้าทำรวงรังระวังผล

" + _ "แสวงดีย่อมมีผล อย่าคลอเคล้ากับเหล่าพาล

" + _ "เหมือนปักษีอันมีปีก รู้หลบหลีกธนูพราน

" + _ "ถ้าประมาทจะเสียการ ถึงชอกช้ำระกำกาย

" strResult2 = " เศษ ๐ ให้พึงระวังการคบหาสมาคม เพราะคบกับผู้ใดก็เป็นเช่นนั้น เปรียบเสมือนนิทานนกแขกเต้าที่อยู่กับโจรและพระฤษี ทั้งที่เป็นพี่น้องท้องเดียวกัน ดังนั้นคนในเศษนี้ ไม่ควรที่จะประมาท เพราะภัยจะตกต้องมาถึงตนได้" End Select end if%> ปฏิทิน, ปฏิทิน 150 ปี,ปฏิทิน จันทรคติ
หน้าแรก ดูดวง หาเพื่อนรู้ใจ หางาน คู่บ่าวสาว สารบัญเว็บไทย เว็บบอร์ด 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
   ค้นหาเพื่อนรู้ใจ

ปฏิทิน

ปฏิทิน 150 ปี เป็นการแปลงวันเดือนปีทาง สุริยคติ (สากล) ไปเป็นวันทางจันทรคติ(ไทย)

 
กรุณาใส่วันเดือนปีที่คุณต้องการคำนวณ และกดปุ่มคำนวณได้เลยค่ะ
(ปรับปรุงแก้ไขให้ใช้งานง่ายขึ้น 12 ก.พ. 51)

" name="frm1">

เวลาตกฟาก :
(อย่างน้อยต้องรู้ว่าเกิดก่อนหรือหลังหกโมงเช้า)
เนื่องจากไทยเราใช้เวลา 6:00 เป็นเกณฑ์ในการเปลี่ยนวันในสัปดาห์ เช่น จันทร์ อังคาร พุธ



<%if Request.Form("cmdPredict")<>"" then%>

ผลการคำนวณ

<% Response.Write("

วันทางจันทรคติคือ

") Response.Write("

" & strLunarDate & "


") %>
<%end if%>


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

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

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