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

Option Explicit
Private Type date_rec
  year As Integer
  month As String * 3
  day As Integer
End Type

Private Sub Command1_Click()
Dim a As date_rec
a.day = day(Date)
a.month = month(Date)
a.year = year(Date)
MsgBox a.month

End Sub

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

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