'
' MonthAbbr - get the abreviation for today's month
'
' Author: Joe Strazzere
'
Function MonthAbbr$()
Select Case Month$()
Case "01"
MonthAbbr$ = "Jan"
Case "02"
MonthAbbr$ = "Feb"
Case "03"
MonthAbbr$ = "Mar"
Case "04"
MonthAbbr$ = "Apr"
Case "05"
MonthAbbr$ = "May"
Case "06"
MonthAbbr$ = "Jun"
Case "07"
MonthAbbr$ = "Jul"
Case "08"
MonthAbbr$ = "Aug"
Case "09"
MonthAbbr$ = "Sep"
Case "10"
MonthAbbr$ = "Oct"
Case "11"
MonthAbbr$ = "Nov"
Case "12"
MonthAbbr$ = "Dec"
Case Else
MonthAbbr$ = "???"
EndSelect
EndFunction
msgbox(MonthAbbr$(),,"MonthAbbr")
