Page 1 of 1
รบกวนถามเรื่อง format วันที่ใน textbox
Posted: Fri Oct 02, 2020 12:00 am
by 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)
Re: รบกวนถามเรื่อง format วันที่ใน textbox
Posted: Fri Oct 02, 2020 2:08 am
by beeratius
ขอแนบ Code ใหม่อีกครั้งนะครับ
Code: Select all
Dim curdate As Date
curdate = Now
curdate = Format(curdate, "dd/mm/yyyy")
textbox8.value=curdate
Re: รบกวนถามเรื่อง format วันที่ใน textbox
Posted: Fri Oct 02, 2020 8:37 am
by logic
beeratius wrote: Fri Oct 02, 2020 2:08 am
curdate = Format(curdate, "dd/mm/yyyy")
ลองเปลี่ยนเป็น
curdate = application.text(curdate, "dd/mm/yyyy") ดูว่าได้ไหมครับ
Re: รบกวนถามเรื่อง format วันที่ใน textbox
Posted: Fri Oct 02, 2020 3:20 pm
by beeratius
logic wrote: Fri Oct 02, 2020 8:37 am
beeratius wrote: Fri Oct 02, 2020 2:08 am
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
Re: รบกวนถามเรื่อง format วันที่ใน textbox
Posted: Fri Oct 02, 2020 3:51 pm
by puriwutpokin
beeratius wrote: Fri Oct 02, 2020 3:20 pm
logic wrote: Fri Oct 02, 2020 8:37 am
beeratius wrote: Fri Oct 02, 2020 2:08 am
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
Re: รบกวนถามเรื่อง format วันที่ใน textbox
Posted: Sat Oct 03, 2020 3:08 am
by beeratius
ได้ตามที่ต้องการแล้วครับ ขอบคุณครับ
