vba สร้างปฏิทิน

[sutham]

ผมได้ฝึกสร้างปฏิทินโดยใช้ VBA โดยศึกษาจาก youtube ซึ่งโค้ดใช้งานได้ปกติครับ
แต่มีประเด็นที่ติดขัด คือ บางเดือนวันที่ไม่ตรงกับวัน เช่น เดือนกุมภาพันธ์ 2019 ซึ่งมี 28 วัน แต่พอรันโค้ด กลับ ได้ 29 วัน , เดือนกันยายน 2019 วันที่ 1 ตรงกับวันอาทิตย์ แต่พอรันโค้ด วันที่ 1 กลับเป็นวันเสาร์
รบกวนทุกท่านช่วยแนะนำด้วยครับ
ขอบคุณครับ

[snasui]

ผมเปิดดูแล้วเดือน ก.พ. 2019 มี 28 วันครับ

ลองดู Regional and Language ในเครื่องว่ากำหนดไว้เป็น Thai หรือกำหนดค่าไว้เป็นแบบไหน อย่างไรครับ

[sutham]

ในเครื่องตั้งเป็นแบบ พ.ศ. ครับ
ตอนนี้ผมแก้ไข คือ แก้ไขโค้ดแบบด้านล่าง คือ บวกด้วย 543 (+543) เพื่อเปลี่ยน ค.ศ. ให้เป็น พ.ศ.

Code: Select all

Private Sub UserForm_Initialize()
 Dim i As Integer
  Dim ii As Integer
 With Me.cmbMounth
        For i = 1 To 12
            .AddItem VBA.Format(VBA.DateSerial(VBA.Year(Date), i, 1), "mmmm")
       Next i
            .Value = VBA.Format(VBA.Date, "mmmm")
 End With

 With Me.cmbYear
        For ii = VBA.Year(Date) - 2 To VBA.Year(Date) + 8
         [color=#FF0000]   .AddItem ii + 543[/color]
       Next ii
        [color=#FF0000]Me.cmbYear.Value = VBA.Year(Date)+ 543 [/color]
 End With
        Me.Label3.Caption = Me.cmbMounth & "  " & Me.cmbYear
Call show_date
End Sub

ทีนี้เกิดข้อสงสัยว่า
1. ถ้าหากเครื่องที่นำไปใช้ ตั้งเป็น ค.ศ. ผลก็จะผิดพลาดอีกใช่หรือไม่ครับ
2. จะต้องแก้ไขประเด็นนี้อย่างไร จึงจะไม่มีปัญหา ครับ
ขอบคุณครับ

[snasui]

แก้ไขด้วยการตั้ง Regional and Language เป็น ค.ศ. ครับ

Code มันจะเป็น ค.ศ. ของมันอยู่แล้ว การทำให้เป็นพ.ศ.ในเซลล์เราจะใช้การจัด Format ไม่ควรบันทึกค่าเป็นแบบพ.ศ.ลงไปในเซลล์โดยการแก้ไข Code ให้เป็นพ.ศ.ครับ

หากแก้ไข Code ให้เป็นพ.ศ. เมื่อต้องการจะบันทึกลงเซลล์จะต้องมาแปลงให้เป็นค.ศ.เสียก่อนครับ