Eeuwen: broncode

Private Sub txtJaar_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
    lblEeuw.Caption = (txtJaar.Text - 1) \ 100 + 1 & "e eeuw"
End If
If Not IsNumeric(Chr(KeyAscii)) Then KeyAscii = 0
End Sub

[VB Web] - [hlrnet] - [copyright]