เขียนฟังก์ชั่นสร้างอาเรย์ เอาเองครับ

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