Joe Strazzere - All Things Quality - WinTask

Joe Strazzere - All Things Quality

Visit my new blog at http://strazzere.blogspot.com/

December 1, 2005 - WinTask - MonthName

'
' MonthName - get the name of today's month
'

Function MonthName$()
Select Case Month$()
Case "01"
    MonthName$ = "January"
Case "02"
    MonthName$ = "February"
Case "03"
    MonthName$ = "March"
Case "04"
    MonthName$ = "April"
Case "05"
    MonthName$ = "May"
Case "06"
    MonthName$ = "June"
Case "07"
    MonthName$ = "July"
Case "08"
    MonthName$ = "August"
Case "09"
    MonthName$ = "September"
Case "10"
    MonthName$ = "October"
Case "11"
    MonthName$ = "November"
Case "12"
    MonthName$ = "December"
Case Else
    MonthName$ = "???"
EndSelect
EndFunction

msgbox(MonthName$(),,"MonthName")

<- Last Page :: Next Page ->

About Me

A gathering place for information and ideas about Quality Assurance, Testing, and other useful topics.

Problems cannot be solved by the same level of thinking that created them. - A. Einstein