Originariamente inviato da jeangr
Ciao a tutti.
Ho guardato in giro per le librerie ma non ho trovato nulla per sapere se una certa Datatime rappresenta un giorno festivo o meno...
Come potrei fare?
grazie 1000
ciao,
io in vb.net ho fatto così:
ho inserito in un file di testo le festività note come dice giustamente oregon, poi quando mi serve sapere se la data immessa è una festività uso :
codice:
Dim inizio As String = MaskedTextBox2.Text 'o la data che vuoi tu
'VERIFICA DOMENICA
If Convert.ToDateTime(inizio).DayOfWeek = DayOfWeek.Sunday Then
MaskedTextBox2.Focus()
MessageBox.Show("Attenzione non puoi inserire la domenica come giorno", "Domenica " + inizio, MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
MaskedTextBox2.SelectionStart = 0
MaskedTextBox2.SelectionLength = 0
Beep(120, 60)
Exit Sub
End If
' chiami il codice da dove vuoi tu...
Lstfeste.Items.Clear()
'dove Me.Label1.Text rappresenta l'anno!!
For ii As Integer = Me.Label1.Text To Me.Label1.Text + 1
Dim sr As New StreamReader(Application.StartupPath + "\festività.txt")
Dim str As String = sr.ReadLine()
str = str.Replace(" ", "")
While Not str Is Nothing
Lstfeste.Items.Add(str & ii.ToString)
str = sr.ReadLine()
Lstfeste.Items.Remove(ii.ToString)
End While
sr.Close()
sr = Nothing
Exit Sub
End Select
Next
End If
'VERIFICA FESTIVO
If Convert.ToDateTime(inizio).DayOfWeek <> DayOfWeek.Sunday Then
For si As Long = 0 To Lstfeste.Items.Count - 1
Select Case MaskedTextBox2.Text
Case Is = Lstfeste.Items(si.ToString)
MaskedTextBox2.Focus()
MessageBox.Show("Attenzione non puoi inserire questa data perchè è festivo", "Festivo " + inizio, MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
MaskedTextBox2.SelectionStart = 0
MaskedTextBox2.SelectionLength = 0
Beep(120, 60)
Exit Sub
End Select
Next
End If
ciao