Supportnet / Forum / Anwendungen(Java,C++...)
Anzahl der Tage eines Monats mit VB ermitteln
Frage
Hallo,
wie kann ich die Anzahl der Tage in einem Monat ermittelt.
Gruß
Lordchen
Antwort 1 von magic m
hallo lordchen, leg auf eine form eine textbox und einen button. dein programmtext könnte so aussehen:
------------------------------
Option Explicit
------------------------------
Private Sub Command1_Click()
MsgBox AnzahlTage(Text1.Text)
End Sub
------------------------------
Private Function AnzahlTage(Monat As String) As String
Select Case Monat
Case "1", "3", "5", "7", "8", "10", "12"
AnzahlTage = "31"
Case "4", "6", "9", "11"
AnzahlTage = "30"
Case "2"
AnzahlTage = "28"
Case Else
AnzahlTage = "ungültiger Wert"
End Select
End Function
------------------------------
wenn du für den februar eines bestimmten jahres die tage haben willst, musst du prüfen, ob es sich um ein schaltjahr handelt...
------------------------------
Option Explicit
------------------------------
Private Sub Command1_Click()
MsgBox AnzahlTage(Text1.Text)
End Sub
------------------------------
Private Function AnzahlTage(Monat As String) As String
Select Case Monat
Case "1", "3", "5", "7", "8", "10", "12"
AnzahlTage = "31"
Case "4", "6", "9", "11"
AnzahlTage = "30"
Case "2"
AnzahlTage = "28"
Case Else
AnzahlTage = "ungültiger Wert"
End Select
End Function
------------------------------
wenn du für den februar eines bestimmten jahres die tage haben willst, musst du prüfen, ob es sich um ein schaltjahr handelt...