Schaltjahr berechnen

Schaltjahr berechnen. Programmierung mit Mod-Operator, WAHR, FALSCH
Siehe auch diese Seite: Datumsprüfung mit Array
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!

Nutzen Sie unsere Suchfunktion:

Nach oben Sitemap
Impressum Datenschutz

Hinweis: Diese Webseite kann Werbeanzeigen und Werbeeinblendungen oder eingebundene Links von Diensten und Inhalten Dritter enthalten. Beachten Sie dazu unsere Datenschutzerklärung.