กระทู้เก่าบอร์ด อ.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
อย่างเช่น เดือน 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
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
Time: 0.2959s
http://www.thai-access.com/suphap.php?topic_id=1190