Joe Strazzere - All Things Quality - WinTask

Joe Strazzere - All Things Quality

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

December 1, 2005 - WinTask - WeekDayName

'
' WeekDayName - Return the name of the day
'
' Author: Joe Strazzere
'

Function WeekDayName$()
Select Case WeekDay()
Case 1
    WeekDayName$ = "Sunday"
Case 2
    WeekDayName$ = "Monday"
Case 3
    WeekDayName$ = "Tuesday"
Case 4
    WeekDayName$ = "Wednesday"
Case 5
    WeekDayName$ = "Thursday"
Case 6
    WeekDayName$ = "Friday"
Case 7
    WeekDayName$ = "Saturday"
Case Else
    WeekDayName$ = "I'm lost. I don't know what day it is."
EndSelect

EndFunction

msgbox("Today is "+WeekDayName$(),,"WeekDayName")

<- 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