Register Register Member Login Member Login Member Login Forgot Password ??
PHP , ASP , ASP.NET, VB.NET, C#, Java , jQuery , Android , iOS , Windows Phone
 

Registered : 108,819

HOME > กระทู้สำหรับภาษาต่าง ๆ > สอบถามปัญหา คำสั่ง SQL มีโจย์ อยู่ว่า ทุกวันที่ 26 ของเดือนต้องนับวันมาทำงานใหม่



สอบถามปัญหา คำสั่ง SQL มีโจย์ อยู่ว่า ทุกวันที่ 26 ของเดือนต้องนับวันมาทำงานใหม่

 
Topic : 063743



โพสกระทู้ ( 79 )
บทความ ( 0 )



สถานะออฟไลน์
Twitter Facebook


มีโจย์ อยู่ว่า ทุกวันที่ 26 ของเดือนต้องนับวันมาทำงานใหม่ ครับ มันเลยคาบเกี่ยวเดือน ซึ่งต้องแก้อย่างไร ถามผู้รู้ช่วยดอบหรือแก้โจทย์ให้หน่อยครับ



Tag : Ms SQL Server 2008


Move To Hilight (Stock) 
Send To Friend.Bookmark.
Date : 2011-07-26 11:07:51 By : chowarin View : 1156 Reply : 8
 

 

No. 1



โพสกระทู้ ( 74,058 )
บทความ ( 838 )

สมาชิกที่ใส่เสื้อไทยครีเอท

สถานะออฟไลน์
Twitter Facebook

ใช้ DateAdd + 1 Month ครับ
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2011-07-26 11:13:24 By : webmaster
 


 

No. 2



โพสกระทู้ ( 79 )
บทความ ( 0 )



สถานะออฟไลน์
Twitter Facebook

ของ ท่าน ไม่เข้าใจ ช่วยอธิบายด้วย ผมไม่รู้ว่าโค๊ดผิดตรงไหน หรือ มีวิธีเขียนที่ สั้น กว่า ดีกว่านี้ไหมครับ

Code (VB.NET)
YY1 = NowToYM1
       YY2 = NowToYM2
       Sq1 = "SELECT     IDTeacher, ComeInStatus "
       Sq1 = Sq1 & " From TTeacherComeToschool WHERE (IDTeacher = '" & IDT & "') AND (YMDRecord >= '" & YY1 & "') AND (YMDRecord <= '" & YY2 & "') AND ( ComeInStatus = 81 )"
       RS1.Open Sq1, cnString, 3, 1
       
       
       Sq2 = "SELECT     IDTeacher, ComeInStatus "
       Sq2 = Sq2 & " From TTeacherComeToschool WHERE (IDTeacher = '" & IDT & "') AND (YMDRecord >= '" & YY1 & "') AND (YMDRecord <= '" & YY2 & "') "
       RS2.Open Sq2, cnString, 3, 1
       
       Sq3 = "SELECT     IDTeacher, ComeInStatus "
       Sq3 = Sq3 & " From TTeacherComeToschool WHERE (IDTeacher = '" & IDT & "') AND (YMDRecord >= '" & YY1 & "') AND (YMDRecord <= '" & YY2 & "') AND ( ComeInStatus = 70 )"
       RS3.Open Sq3, cnString, 3, 1
       
       Sq4 = "SELECT     IDTeacher, ComeInStatus "
       Sq4 = Sq4 & " From TTeacherComeToschool WHERE (IDTeacher = '" & IDT & "') AND (YMDRecord >= '" & YY1 & "') AND (YMDRecord <= '" & YY2 & "') AND ( ComeInStatus = 30 )"
       RS4.Open Sq4, cnString, 3, 1
       
       strFileName = App.Path & "\pic\" & IDT & ".jpg"
       
       
If Dir$(strFileName) <> "" Then
      picBox.Picture = LoadPicture(strFileName)
      Else
        picBox.Picture = LoadPicture(App.Path & "\pic\dinga.jpg")
      End If

       lbss = "มา " & RS2.RecordCount & " วัน " & "สาย " & RS1.RecordCount & " วัน " & " ขาด " & RS3.RecordCount & " วัน " & " ÅÒ " & RS4.RecordCount & " Çѹ "
       
       
       RS1.Close
       RS2.Close
       RS3.Close
       RS4.Close
        ElseIf InOut > 1 Then
            lbInOut.Caption = "ŧàÇÅÒÍÍ¡"
            lbTName.Caption = TName
            lbTime.Caption = HMS
        YY1 = NowToYM1
       YY2 = NowToYM2
       Sq1 = "SELECT     IDTeacher, ComeInStatus "
       Sq1 = Sq1 & " From TTeacherComeToschool WHERE (IDTeacher = '" & IDT & "') AND (YMDRecord >= '" & YY1 & "') AND (YMDRecord <= '" & YY2 & "') AND ( ComeInStatus = 81 )"
       RS1.Open Sq1, cnString, 3, 1
       
       
       Sq2 = "SELECT     IDTeacher, ComeInStatus "
       Sq2 = Sq2 & " From TTeacherComeToschool WHERE (IDTeacher = '" & IDT & "') AND (YMDRecord >= '" & YY1 & "') AND (YMDRecord <= '" & YY2 & "') "
       RS2.Open Sq2, cnString, 3, 1
       
       Sq3 = "SELECT     IDTeacher, ComeInStatus "
       Sq3 = Sq3 & " From TTeacherComeToschool WHERE (IDTeacher = '" & IDT & "') AND (YMDRecord >= '" & YY1 & "') AND (YMDRecord <= '" & YY2 & "') AND ( ComeInStatus = 70 )"
       RS3.Open Sq3, cnString, 3, 1
       
       Sq4 = "SELECT     IDTeacher, ComeInStatus "
       Sq4 = Sq4 & " From TTeacherComeToschool WHERE (IDTeacher = '" & IDT & "') AND (YMDRecord >= '" & YY1 & "') AND (YMDRecord <= '" & YY2 & "') AND ( ComeInStatus = 30 )"
       RS4.Open Sq4, cnString, 3, 1
       
       strFileName = App.Path & "\pic\" & IDT & ".jpg"
       
       
If Dir$(strFileName) <> "" Then
      picBox.Picture = LoadPicture(strFileName)
      Else
        picBox.Picture = LoadPicture(App.Path & "\pic\dinga.jpg")
      End If

       lbss = "ÁÒ " & RS2.RecordCount & " Çѹ " & "ÊÒ " & RS1.RecordCount & " Çѹ " & " ¢Ò´ " & RS3.RecordCount & " Çѹ " & " ÅÒ " & RS4.RecordCount & " Çѹ "
       
       
       RS1.Close
       RS2.Close
       RS3.Close
       RS4.Close
        Else
            lbTName.Caption = TName
            lbTime.Caption = HMS
            lbInOut.Caption = "«éÓ"
            YY1 = NowToYM1
       YY2 = NowToYM2
       Sq1 = "SELECT     IDTeacher, ComeInStatus "
       Sq1 = Sq1 & " From TTeacherComeToschool WHERE (IDTeacher = '" & IDT & "') AND (YMDRecord >= '" & YY1 & "') AND (YMDRecord <= '" & YY2 & "') AND ( ComeInStatus = 81 )"
       RS1.Open Sq1, cnString, 3, 1
       
       
       Sq2 = "SELECT     IDTeacher, ComeInStatus "
       Sq2 = Sq2 & " From TTeacherComeToschool WHERE (IDTeacher = '" & IDT & "') AND (YMDRecord >= '" & YY1 & "') AND (YMDRecord <= '" & YY2 & "') "
       RS2.Open Sq2, cnString, 3, 1
       
       Sq3 = "SELECT     IDTeacher, ComeInStatus "
       Sq3 = Sq3 & " From TTeacherComeToschool WHERE (IDTeacher = '" & IDT & "') AND (YMDRecord >= '" & YY1 & "') AND (YMDRecord <= '" & YY2 & "') AND ( ComeInStatus = 70 )"
       RS3.Open Sq3, cnString, 3, 1
       
       Sq4 = "SELECT     IDTeacher, ComeInStatus "
       Sq4 = Sq4 & " From TTeacherComeToschool WHERE (IDTeacher = '" & IDT & "') AND (YMDRecord >= '" & YY1 & "') AND (YMDRecord <= '" & YY2 & "') AND ( ComeInStatus = 30 )"
       RS4.Open Sq4, cnString, 3, 1
       
       strFileName = App.Path & "\pic\" & IDT & ".jpg"
       
       
If Dir$(strFileName) <> "" Then
      picBox.Picture = LoadPicture(strFileName)
      Else
        picBox.Picture = LoadPicture(App.Path & "\pic\dinga.jpg")
      End If

       lbss = "ÁÒ " & RS2.RecordCount & " Çѹ " & "ÊÒ " & RS1.RecordCount & " Çѹ " & " ¢Ò´ " & RS3.RecordCount & " Çѹ " & " ÅÒ " & RS4.RecordCount & " Çѹ "
       
       
       RS1.Close
       RS2.Close
       RS3.Close
       RS4.Close
        End If
   

End Sub

Public Function TimeToHHMMSS(ByVal strTime As String) As String 'StrTime = 00:00:00
    Dim HH As String, MM As String, SS As String
    If Len(strTime) = 7 Then strTime = "0" + strTime
    HH = Left(strTime, 2)
    MM = Mid(strTime, 4, 2)
    SS = Right(strTime, 2)
    TimeToHHMMSS = HH & MM & SS
End Function

Public Function NowToYMD() As String
Dim D As Byte, M As Byte, Y As Long
    D = Day(Now)
    M = Month(Now)
    Y = Year(Now)
    If Y < 2400 Then
        Y = Y + 543
    End If
    NowToYMD = Format(Y, "0000") + Format(M, "00") + Format(D, "00")
End Function

Public Function NowToYM1() As String
Dim D1 As String, M1 As Byte, Y1 As Long
    D1 = 25
    M1 = Month(Now)
    Y1 = Year(Now)
    If Y1 < 2400 Then
        Y1 = Y1 + 543
    End If

    If M1 = Month(Now) Then
        M1 = M1 - 1
    End If

    NowToYM1 = Format(Y1, "0000") + Format(M1, "00") + Format(26, "00")
End Function

Public Function NowToYM2() As String
Dim D2 As String, M2 As Byte, Y2 As Long
    D2 = 25
    M2 = Month(Now)
    Y2 = Year(Now)
    If Y2 < 2400 Then
        Y2 = Y2 + 543
    End If
    NowToYM2 = Format(Y2, "0000") + Format(M2, "00") + Format(25, "00")
End Function

แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2011-07-26 18:47:07 By : chowarin
 


 

No. 3



โพสกระทู้ ( 79 )
บทความ ( 0 )



สถานะออฟไลน์
Twitter Facebook

ไม่มีคนตอบ เหรอครับ เท่าที่เขียนมันก็โอเคนะครับแต่พอถึงวันที 26 เราต้องไป บวกเดือนเพิ่มนะครับ แต่พอถึงเดือนใหม่มันกลับไม่คำนวนอีกนะคับ ไม่รู้ผมเข้าใจอะไรผิดตรงไหนฃ
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2011-08-02 15:20:19 By : chowarin
 


 

No. 4



โพสกระทู้ ( 74,058 )
บทความ ( 838 )

สมาชิกที่ใส่เสื้อไทยครีเอท

สถานะออฟไลน์
Twitter Facebook

คุณจะเขียนอะไรมากมายครับ แต่ใช้ DateAdd บวก +1 Month แล้วใช้ Loop for ก็ได้แล้วครับ

ตัวอย่าง

Code (VB.NET)
For i = Date.Now   To DateAdd(DateInterval.Month, 1, Date.Now)

Next


Go to : ASP.NET DateAdd()
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2011-08-02 21:13:59 By : webmaster
 


 

No. 5



โพสกระทู้ ( 93 )
บทความ ( 0 )



สถานะออฟไลน์


ตอบความคิดเห็นที่ : 4 เขียนโดย : webmaster เมื่อวันที่ 2011-08-02 21:13:59
รายละเอียดของการตอบ ::
ขอบคุณมากเลยครับ ต้องใช้พอดีกำลังหาเลย เคยใช้แต่ บวกวัน ไม่เคยใ้ช้บวกเดือนเลย



ประวัติการแก้ไข
2011-08-03 16:26:53
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2011-08-03 16:26:13 By : Marcuz
 


 

No. 6



โพสกระทู้ ( 74,058 )
บทความ ( 838 )

สมาชิกที่ใส่เสื้อไทยครีเอท

สถานะออฟไลน์
Twitter Facebook

สงสัยจะต้อบไม่ตรงประเด็นเข้าของกระทู้
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2011-08-03 17:01:21 By : webmaster
 


 

No. 7

Guest


ก็ต้องขอโทษ ด้วยนะครับ ที่ไม่เข้าใจอยู่ จะว่าโง่ก็ยอมรับครับ มันเป็นโปรแกรมสแกนลายนิ้วมือเข้าทำงานนะครับแล้วจะแสดงผลการทำงานตามช่วงเวลาที่กำหนด โดย ใช้คำสั่ง recordcount ซึ่ง ในฐานข้อมูล มีฟอร์เมตวันที่ เป็นแบบ yyyymmdd = 25540826 ประมาณนี้ครับ โปรแกรม จะคำนวน เป็น 0 วัน ทันที เมื่อถึงวันที 25540726.....25540731 แต่พอวันที 25540801 ก็จะคำนวนได้ตามปกติ หน้าตาโปรแกรม ประมาณนี้คับ

exp

เหมือนเครื่อตอกบัตร นะคับ ผมความนำคำสั่งที่ท่านแนะนำไปว่างไว้แล้ววนลูปอย่างไร อย่างที่โค๊ดได้ให้ไป ถ้าเขียนรูปแบบใหม่ เขียนอย่างไร ช่วยจัดเต็มให้ด้วย ขอมากไปหรือเปล่าครับ พอดีเป็นโปรแกรมเมอร์ใหม่คับ ยังไม่เก่ง
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2011-08-13 14:16:00 By : ต้น
 


 

No. 8



โพสกระทู้ ( 79 )
บทความ ( 0 )



สถานะออฟไลน์
Twitter Facebook

ผมแก้ปัญหาได้แล้ว ครับ โดยการ
ให้
D1=Day(Now)

If D1 < 26 Then
M1 = M1 - 1
End If
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2011-08-17 08:01:38 By : chowarin
 


   

ค้นหาข้อมูล


   
 

แสดงความคิดเห็น
Re : สอบถามปัญหา คำสั่ง SQL มีโจย์ อยู่ว่า ทุกวันที่ 26 ของเดือนต้องนับวันมาทำงานใหม่
 
 
รายละเอียด
 
ตัวหนา ตัวเอียง ตัวขีดเส้นใต้ ตัวมีขีดกลาง| ตัวเรืองแสง ตัวมีเงา ตัวอักษรวิ่ง| จัดย่อหน้าอิสระ จัดย่อหน้าชิดซ้าย จัดย่อหน้ากึ่งกลาง จัดย่อหน้าชิดขวา| เส้นขวาง| ขนาดตัวอักษร แบบตัวอักษร
ใส่แฟลช ใส่รูป ใส่ไฮเปอร์ลิ้งค์ ใส่อีเมล์ ใส่ลิ้งค์ FTP| ใส่แถวของตาราง ใส่คอลัมน์ตาราง| ตัวยก ตัวห้อย ตัวพิมพ์ดีด| ใส่โค้ด ใส่การอ้างถึงคำพูด| ใส่ลีสต์
smiley for :lol: smiley for :ken: smiley for :D smiley for :) smiley for ;) smiley for :eek: smiley for :geek: smiley for :roll: smiley for :erm: smiley for :cool: smiley for :blank: smiley for :idea: smiley for :ehh: smiley for :aargh: smiley for :evil:
Insert PHP Code
Insert ASP Code
Insert VB.NET Code Insert C#.NET Code Insert JavaScript Code Insert C#.NET Code
Insert Java Code
Insert Android Code
Insert Objective-C Code
Insert XML Code
Insert SQL Code
Insert Code
เพื่อความเรียบร้อยของข้อความ ควรจัดรูปแบบให้พอดีกับขนาดของหน้าจอ เพื่อง่ายต่อการอ่านและสบายตา และตรวจสอบภาษาไทยให้ถูกต้อง

อัพโหลดแทรกรูปภาพ

Notice

เพื่อความปลอดภัยของเว็บบอร์ด ไม่อนุญาติให้แทรก แท็ก [img]....[/img] โดยการอัพโหลดไฟล์รูปจากที่อื่น เช่นเว็บไซต์ ฟรีอัพโหลดต่าง ๆ
อัพโหลดแทรกรูปภาพ ให้ใช้บริการอัพโหลดไฟล์ของไทยครีเอท และตัดรูปภาพให้พอดีกับสกรีน เพื่อความโหลดเร็วและไฟล์ไม่ถูกลบทิ้ง

   
  เพื่อความปลอดภัยและการตรวจสอบ กระทู้ที่แทรกไฟล์อัพโหลดไฟล์จากที่อื่น อาจจะถูกลบทิ้ง
 
โดย
อีเมล์
บวกค่าให้ถูก
<= ตัวเลขฮินดูอารบิก เช่น 123 (หรือล็อกอินเข้าระบบสมาชิกเพื่อไม่ต้องกรอก)







Exchange: Voake, Comcube, รับทำเว็บไซต์ รับเขียนโปรแกรม , pangpond.com , pangpond.co.th , สำนักงานบัญชี.com , รถมือสอง

Load balance : Server 00
ThaiCreate.Com Logo
© www.ThaiCreate.Com. 2003-2021 All Rights Reserved.
ไทยครีเอทบริการ จัดทำดูแลแก้ไข Web Application ทุกรูปแบบ (PHP, .Net Application, VB.Net, C#)
[Conditions Privacy Statement] ติดต่อโฆษณา 081-987-6107 อัตราราคา คลิกที่นี่