Wie 2 : broncode

'testen of alles is ingevuld
If Text1.Text = "" Then End
If Text2.Text = "" Then End
If Text3.Text = "" Then End
If Not IsDate(Text3.Text) Then End
Dim uur As Integer
Dim msg As String
uur = Format(Now, "hh")
Select Case uur
Case Is < 11
msg = "Goede morgen "
Case 11, 12, 13, 14
msg = "Goede middag"
Case Is > 17
msg = "Goede avond"
Case Else
msg = "Dag"
End Select
MsgBox msg & " " & Text2.Text & " " & Text1.Text & vbCrLf & "Je bent " & Int((Now - CVDate(Text3.Text)) / 365.24) & " jaar"
End Sub

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