Jul 31, 2025 Code: Private Sub GetMonthShortNames As List Dim l As List l.Initialize For i=1 To 12 DateTime.DateFormat="M" Dim longDT As Long = DateTime.DateParse(i) DateTime.DateFormat="MMM" l.Add(DateTime.Date(longDT)) Next Return l End Sub Tip: They're not always what you might expect (at least in English) Click to expand...
Code: Private Sub GetMonthShortNames As List Dim l As List l.Initialize For i=1 To 12 DateTime.DateFormat="M" Dim longDT As Long = DateTime.DateParse(i) DateTime.DateFormat="MMM" l.Add(DateTime.Date(longDT)) Next Return l End Sub Tip: They're not always what you might expect (at least in English)