This is a function that returns the season for a given date:
Code:
Public Enum Season
Spring
Summer
Autumn
Winter
End Enum
Public Shared Function GetSeason(ByVal dt As DateTime) As Season
Dim dSpring As DateTime = New DateTime(dt.Year, 3, 21)
Dim dSummer As DateTime = New DateTime(dt.Year, 6, 21)
Dim dAutumn As DateTime = New DateTime(dt.Year, 9, 21)
Dim dWinter As DateTime = New DateTime(dt.Year, 12, 21)
If dt < dSpring Then
Return Season.Winter
ElseIf dt < dSummer Then
Return Season.Spring
ElseIf dt < dAutumn Then
Return Season.Summer
ElseIf dt < dWinter Then
Return Season.Autumn
Else
Return Season.Winter
End If
End Function
To use it, you can do like this (assuming you had the resources in your application images Spring, Summer, Autumn and Winter):
Code:
Dim season As Season = GetSeason(DateTime.Today)
Select Case season
Case Season.Spring
Me.MainLayoutPanel.BackgroundImage = Global.Management_Informative.My.Resources.Resources.Spring
Case Season.Summer
Me.MainLayoutPanel.BackgroundImage = Global.Management_Informative.My.Resources.Resources.Summer
Case Season.Autumn
Me.MainLayoutPanel.BackgroundImage = Global.Management_Informative.My.Resources.Resources.Autumn
Case Season.Winter
Me.MainLayoutPanel.BackgroundImage = Global.Management_Informative.My.Resources.Resources.Winter
Case Else
' default case (should not occur...)
End Select
Bookmarks