รบกวนถามเรื่อง format วันที่ใน textbox

[beeratius]

ผมใช้คำสั่ง now เพื่อใส่ข้อมูลวันที่ใน textbox โดยกำหนดให้ format เป็น dd/mm/yyyy แต่ ข้อมูลที่โชว์ใน textbox เป็น mm/dd/yyyy ครับ ไม่ทราบว่าผิดตรงไหน

Dim curdate As Date
curdate = Now
curdate = Format(curdate, "dd/mm/yyyy")
textbox8.value=curdate

ทำตามนี้แต่ข้อมูลที่ show ใน textbox8 จะขึ้นเป็น 10/1/2020 (เดือน10วันที่1ปี2020)

[beeratius]

ขอแนบ Code ใหม่อีกครั้งนะครับ

Code: Select all

Dim curdate As Date
curdate = Now
curdate = Format(curdate, "dd/mm/yyyy")
textbox8.value=curdate

[logic]

curdate = Format(curdate, "dd/mm/yyyy")

ลองเปลี่ยนเป็น curdate = application.text(curdate, "dd/mm/yyyy") ดูว่าได้ไหมครับ

[beeratius]

curdate = Format(curdate, "dd/mm/yyyy")

ลองเปลี่ยนเป็น curdate = application.text(curdate, "dd/mm/yyyy") ดูว่าได้ไหมครับ

ขอบคุณมากครับ
ลองดูแล้วยังเป็นเหมือนเดิมครับ
โดยวันที่ที่แสดงใน textbox8 เป็น 10/2/2020
แต่วันที่ที่โชว์มุมขวาล่างของ window ขึ้น 2/10/2020
codeที่ใช้ตอนนี้นะครับ

Code: Select all

Dim curdate As Date
curdate = Now
curdate = Application.text(curdate, "dd/mm/yyyy")
textbox8.value=curdate

[puriwutpokin]

curdate = Format(curdate, "dd/mm/yyyy")

ลองเปลี่ยนเป็น curdate = application.text(curdate, "dd/mm/yyyy") ดูว่าได้ไหมครับ

ขอบคุณมากครับ
ลองดูแล้วยังเป็นเหมือนเดิมครับ
โดยวันที่ที่แสดงใน textbox8 เป็น 10/2/2020
แต่วันที่ที่โชว์มุมขวาล่างของ window ขึ้น 2/10/2020
codeที่ใช้ตอนนี้นะครับ

Code: Select all

Dim curdate As Date
curdate = Now
curdate = Application.text(curdate, "dd/mm/yyyy")
textbox8.value=curdate

กลับตำแหน่งดูว่าได้ไหม

Code: Select all

Dim curdate As Date
curdate = Now
curdate = Application.text(curdate, "mm/dd/yyyy")
textbox8.value=curdate

[beeratius]

ได้ตามที่ต้องการแล้วครับ ขอบคุณครับ