สอบถามเรื่องการหาวันที่ใน 1 เดือนว่ามีกี่ week ค่ะ
กระทู้เก่าบอร์ด อ.Yeadram

 2,408   2
URL.หัวข้อ / URL
สอบถามเรื่องการหาวันที่ใน 1 เดือนว่ามีกี่ week ค่ะ

สอบถามเรื่องการหาวันที่ใน 1 เดือนว่ามีกี่ week แล้วใน 1 week มีวันที่อะไรบ้างค่ะ
อย่างเช่น เดือน 7 ปี 2010 มี 5 week
Week ที่ 1 ได้แก่ 1/7/2010 - 4/7/2010
Week ที่ 2 ได้แก่ 5/7/2010 - 11/7/2010
Week ที่ 3 ได้แก่ 12/7/2010 - 18/7/2010
Week ที่ 4 ได้แก่ 19/7/2010 - 25/7/2010
Week ที่ 5 ได้แก่ 26/7/2010 - 31/7/2010


2 Reply in this Topic. Dispaly 1 pages and you are on page number 1

1 @R06129
ลองหาๆดูแล้วเจออันนี้ก็เอามาประยุกต์ได้ดีทีเดียวค่ะ เผื่อใครต้องการทำแบบนี้บ้าง
http://www.thai-access.com/suphap.php?topic_id=1190
2 @R06130
Sub dd()

' ระบุวันที่เริ่มต้น ให้กำหนดเป็นวันที่ 1 ของเดือนที่ต้องการ / ใส่ค่าวันที่ของคุณแทนฟังก์ชั่น now()
Dim xDate As Date
xDate = DateSerial(Year(Now()), Month(Now()), 1)

' หาว่าวันที่ 1 เป็นสัปดาห์ที่เท่าไหร่ของปี
Dim wDate As Integer
wDate = CInt(Format(xDate, "ww"))

' กำหนด ตัวแปร บอกเลขสัปดาห์ ในแต่ละรอบของลูป
Dim wLoop As Integer
wLoop = wDate - 1

' กำหนดตัวแปรเงื่อนไข เพื่อกำหนดรอบของลูป
Dim CurrentMonth As Integer
CurrentMonth = Month(xDate)

' สร้างสายอักขระ เพื่อเก็บคำตอบ
Dim sq As String
sq = ""

Do
    If CInt(Format(xDate, "ww")) > wLoop Then
        If sq <> "" Then Debug.Print sq & Format(xDate - 1, "d/M/yyyy")   ' จุดแสดงคำตอบ
        sq = "Week ที่ " & CInt(Format(xDate, "ww")) - wDate + 1 & " ได้แก่ " & Format(xDate, "d/M/yyyy") & " - "
        wLoop = CInt(Format(xDate, "ww"))
    End If
    xDate = xDate + 1
    If Month(xDate) <> CurrentMonth Then Debug.Print sq & Format(xDate - 1, "d/M/yyyy")   ' จุดแสดงคำตอบ
Loop Until Month(xDate) <> CurrentMonth

End Sub
@ ประกาศใช้งานเว็บบอร์ดใหม่ => บอร์ดเรียนรู้ Access สำหรับคนไทย
แล้วจะใส่ลิ้งอ้างอิงมาที่โพสต์เก่านี้หรือไม่ก็ตามสะดวกครับ
Time: 0.2959s