Select case statement

Description:

Code:

function Today()
  d = Date()
  Thetime = Weekday(d)
  select case Thetime
    case 1
  	  document.write("Sunday")
    case 7
  	  document.write("Saturday")
    case 6
  	  document.write("Friday")
    case 5
  	  document.write("Thursday")
    case 4
  	  document.write("Whednesday")
    case 3
  	  document.write("Tuesday")
    case 2
  	  document.write("Monday")
  end select
end function

See working example:

Keywords:

VBScript: function, Date , Weekday, select case

DHTML: document.write