กระทู้เก่าบอร์ด อ.Yeadram
1,301 1
URL.หัวข้อ /
URL
การ format วันที่ให้เป็นภาษาอังกฤษ
อยากถามว่าเราจะ format วันที่ให้เป็นรูปแบบภาษาอังกฤษได้ไหม ถ้า regional setting เป็น Thai
ตัวอย่างเช่น 11-Nov-2008 ไม่อยากให้เป็น 11 พ.ย. 2008
ตัวอย่างเช่น 11-Nov-2008 ไม่อยากให้เป็น 11 พ.ย. 2008
1 Reply in this Topic. Dispaly 1 pages and you are on page number 1
Time: 0.2632s
Function myMonthName(byval lngM as long, Optional abb =false)
dim m(11,1) as string
m(0,0)="January"
m(0,1)="Jan"
m(1,0)="Febuary"
m(1,1)="Feb"
...
...
...
if lngM>=1 and lngM<=12 then myMonthName=m(lngM-1, abs(abb))
End Function
a = #2008-11-1#
b = day(a)
c = myMonthName(month(a),true)
d = year(a)
คำตอบ = b & " " & c & " " & d