Schaltjahr berechnen

Schaltjahr berechnen. Programmierung mit Mod-Operator, WAHR, FALSCH
siehe auch Seite 065
Private Sub cmdRechnen_Click() Ausgabemöglichkeit 1: per Klick auf CommandButton.
Dim j%
j = Val(txtEingabe.Text)
If j Mod 4 = 0 And j Mod 100 <> 0 Or j Mod 400 = 0 Then Es wird der Wahr- oder Falschwert ermittelt und im
lblAusgabe.Caption = "Schaltjahr" Label ausgegeben.
Else
lblAusgabe.Caption = "No Leap Year"
End If
End Sub
Private Sub txtEingabe_Change() Ausgabemöglichkeit 2: per TextBox_Change.
Dim j%, x$
j = Val(txtEingabe.Text)
x = j Mod 4 = 0 And j Mod 100 <> 0 Or j Mod 400 = 0 Es wird der Wahr- oder Falschwert ermittelt und im
lblAusgabe.Caption = x Label ausgegeben.
End Sub
.

Mehr Tipps: Jahreszeiten durch Select Case auswählen

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