Jahreszeiten durch Select Case auswählen

Jahreszeiten durch Select Case auswählen, Returncode per MsgBox
Private Sub cmdRechnen_Click()
Dim atext As String, monat As Byte Variablen für Jahreszeit (String) und Monat (Zahl).
monat = Val(txtMonat.text) Inhalt der Textbox ist die Monatszahl.
Select Case monat
Case 12, 1, 2: atext = "Winter" Bei Eingabe einer Zahl wird die passende Jahreszeit
Case 3, 4, 5: atext = "Frühling" zurückgegeben.
Case 6, 7, 8: atext = "Sommer"
Case 9, 10, 11: atext = "Herbst"
Case Else
atext = "ungültig"
txtMonat.text = ""
txtMonat.SetFocus
End Select
lblAusgabe.Caption = atext
End Sub
Private Sub cmdEnde_Click() Auswerten des Returncodes bei einer MsgBox.
Dim text As String, ret As Integer
ret = MsgBox("Sind Sie über 20?", 32 + 4, "Sind Sie mal ehrlich!")
If ret = 6 Then
MsgBox "Sie sollten sich über die" & vbCrLf & "Straße helfen lassen!"
Else
MsgBox "Entweder lügen Sie oder" & vbCrLf & "Sie sollten anderen über" & vbCrLf & "die Straße helfen!"
End If
End Sub
Das Datum könnte auch über das System ermittelt, und so stets aktuell im Label ausgegeben werden.

Mehr Tipps: Zinssatz berechnen I

Sponsoren und Investoren

Sponsoren und Investoren sind jederzeit herzlich willkommen!
Wenn Sie die Information(en) auf dieser Seite interessant fanden, freuen wir uns über eine kleine Spende. Empfehlen Sie uns bitte auch in Ihren Netzwerken (z. B. Twitter, Facebook oder Google+). Herzlichen Dank!

Nach oben Sitemap
Impressum & Kontakt