为什么month(Date)是7而不是七月的英文简写？？

Question

Option Explicit
Private Type date_rec
    year As Integer
    month As String * 3
    day As Integer
End TypePrivate Sub Command1_Click()
Dim a As date_rec
a.day = day(Date)
a.month = month(Date)
a.year = year(Date)
MsgBox a.monthEnd Sub 为什么month(Date)是7而不是七月的英文简写？？谢谢先拉！

Answer 1

dim months() as string
months = Split("Jan,Feb,Mar,Apr,May,Jun,Jul,Aug,sep,Oct,Nov,Dec", ",")
MsgBox months(a.month - 1)