โค้ดวันที่ปัจจุบัน
Posted: Thu Nov 09, 2017 1:07 pm
รบกวนขอสอบถามโค้ดวันที่ปัจจุบันที่จะใส่ไว้ใน Combobox ด้วยค่ะ 
คลังคำตอบแห่งความรู้จากคนไทย เพื่อโลกที่ต้องการเข้าใจในสิ่งเล็ก ๆ อย่างลึกซึ้ง
https://snasui.com/
ที่ Userform1 ค่ะlogic wrote:เดิมเขียนไว้แบบไหน ติดอะไร จะได้ช่วยกันดู
ต้องเขียนโค้ดกันมาเองก่อนตามกติกาครับ
Code: Select all
Private Sub comday_Change()
comday = Format(YourDate, "dd")
End Sub
Private Sub commonth_Change()
commonth = Format(YourDate, "mmmm")
End Sub
Private Sub comyear_Change()
comyear = Format(YourDate, "yyyy")
End Subคืออยากให้แสดงวันที่ปัจจุบันใน comcbobox ค่ะsnasui wrote:ปัญหาที่เขียนมาเองแล้วนั้นคืออะไรครับ
ในเบื้องต้นกรณีต้องการวันที่ปัจจุบัน ให้เปลี่ยน YourDate เป็น Today หรือหากว่า YourDate เป็นวันที่ปัจจุบันอยู่แล้วให้แจ้งปัญหามาด้วยครับ
กรุณากลับไปรายงานผลในกระทู้ที่ได้คำตอบแล้วทุกกระทู้ตามกฎการใช้บอร์ดข้อ 6 ยกเว้นกระทู้ที่ยังเป็นปัญหาและมีคำถามต่อเนื่อง
โดยคลิกที่ Link นี้ครับ search.php?keywords=&terms=all&author=B ... mit=Search
ต้องการให้แสดงตามรูปค่ะ แต่ตอนนี้มันยังไม่แสดงค่ะsnasui wrote:Mark ตัวแปร comday, commonth, comyear ให้เป็น Comment ก็จะแสดงค่าใน ComboBox แล้วครับ
ไม่ทราบกำลังจะทำอะไร เพื่อให้เกิดผลตรงไหน อยา่งไร กรุณาอธิบายเพิ่มเติมมาด้วยจะได้เข้าใจตรงกันครับ
comday.Text=Application.Text(Date,"d")commonth.Text=Application.Text(Date,"mmmm")comyear.Text=Application.Text(Date,"yyyy")