กำหนดช่วงวันที่

[pondniizz]

รบกวนสอบถามอาจารย์คะ  ต้องการกำหนด เดือน 

ข้อกำหนดคือ ภายในทุกๆวันที่ 10 ของเดือนจะต้องส่งงานในเดือนนั้นๆ ถ้าเลยวันที่ 10 ไปแล้วจะถือว่างานที่ถูกบันทึกมาเป็นของเดือนถัดไป


โดยกำหนดให้ มี TextBox แสดงวันที่ ปัจจุบัน (txtdate) และ TextBox แสดง เดือน  (txtmonth)

ถ้าหาก txtdate  อยู่ระหว่างวันที่ 11/5/2019 ถึง 10/6/2019  (txtmonth) ให้แสดงเป็นเดือน 6

 และถ้าหาก txtdate  เกินวันที่ อยู่ระหว่างวันที่ 11/6/2019 ถึง 10/7/2019 (txtmonth) ให้แสดงเป็นเดือนถัดไป 7

สามารถทำได้ไหมคะ รบกวนขอโค้ดด้วยนะคะ

ขอบคุณคะ

[ปิ่นณรงค์]

ลองดูนะครับ ไม่รู้ใช่ที่ต้องการหรือเปล่า
แนวคิดคือ
1.ถ้าเกินวันที่ 10 ก็ให้ เดือน +1
2.ถ้าเป็น เดือน 12 และ วันที่ >10 ให้ เดือนเท่ากับ 1 และ ปี+1

แบบที่ 1 แบบแสดงเดือนเป็นตัวเลข และเดือนแบบตัวอักษร

โค๊ด: [Select]

Private Sub txtDate_AfterUpdate()
Dim sMonth As String
Dim sDate As String
Dim result As String

sMonth = Month(Me.txtDate)
sDate = Day(Me.txtDate)
sYear = Format(txtDate, "yyyy")

If sDate <= 10 Then
result = Me.txtDate
Else
result = sDate & "/" & sMonth + 1 & "/" & sYear
If (Mid(result, 4, 2)) = "13" Then

result = sDate & "/" & "1" & "/" & (Format(txtDate, "yyyy") + 1)
Else
result = result
End If
End If
result = result
Me.txtMonth = "เดือน" & Month(result) & " " & MonthName(Month(result))
End Sub

แบบที่ 2 แสดงเดือนและปีแบบเต็ม

โค๊ด: [Select]

Private Sub txtDate_AfterUpdate()
Dim sMonth As String
Dim sDate As String
Dim result As String

sMonth = Month(Me.txtDate)
sDate = Day(Me.txtDate)
sYear = Format(txtDate, "yyyy")

If sDate <= 10 Then
result = Me.txtDate
Else
result = sDate & "/" & sMonth + 1 & "/" & sYear
If (Mid(result, 4, 2)) = "13" Then 'ดักเงื่อนไข กรณี เดือน 12 +1 จะเท่ากับ 13

result = sDate & "/" & "1" & "/" & (Format(txtDate, "yyyy") + 1) 'ก็ให้แปลงกลับเป็นเดือน 1 และ +ปี ไปอีก 1
Else
result = result
End If
End If
Me.txtMonth = result

End Sub


[สันติสุข]

เดือน(วันที่ - 10) + 1 น่าจะให้ผลเดียวกันได้

[ปิ่นณรงค์]

เดือน(วันที่ - 10) + 1 น่าจะให้ผลเดียวกันได้

จริงด้วยอาจารย์ง่ายดีคับ

[ปิ่นณรงค์]

ตัวอย่าง 2 แบบ

[pondniizz]

ขอบคุณมากๆ นะคะ