weather

I need a piece of code that will random a waether each day how would i do this

Const SUNNY = 1
Const RAINING = 2
Const CLOUDY = 3
Const SNOWING = 4

Weather = rand(1,4)

Select Weather
  Case SUNNY
    Draw_Sun()
  Case RAINING
    Make_Rain()
  Case CLOUDY
    Draw_Clouds()
  Case SNOWING
    Make_Snow()
End Select

thanks