Lijftijsmeter

[JoZ1]

Huh? Ik dacht dat ik hier al op had geantwoord? Is mijn bericht weggehaald ofzo?

Nou ja:

Je vergeet een End If

 

[wakmen]

Nee anders zou er staan " 'If' must end with a matching 'End If' "

 

[Haaren101]

Ok, wat jij wilt; maar in dat stukje code van ontbreekt toch echt een Endif

Ron

 

[wakmen]

Sorry hoor ik heb de code goed na gekijken maar ik weet niet waaar je die 'End If' moet zetten.
En als ik er ene te kort had dan zou er staan " 'If' must end with a matching 'End If' ".
En als ik er ene te veel had dan zou er staan " 'End If' must be preceded by a matching 'if'! "

 

[JoZ1]

Ik heb maar even een efficiëntere code geschreven:

[CPP]If IsNumeric(TextBox2.Text) And IsNumeric(TextBox3.Text) Then
If (CInt(TextBox2.Text) >= 0 And CInt(TextBox2.Text) <= 12) _
And (CInt(TextBox3.Text) >= 1900 And CInt(TextBox3.Text) <= Date.Today.Year) Then
Dim TempJaar As Integer = 0
Dim TempMaand As Integer = 0
If Date.Today.Month < CInt(TextBox2.Text) Then TempJaar = -1 _
Else If Date.Today.Month > CInt(TextBox2.Text) Then TempJaar = 1
If TempJaar = 1 Then TempMaand = Date.Today.Month - CInt(TextBox2.Text) _
Else If TempJaar = -1 Then TempMaand = 12 - (CInt(TextBox2.Text) - Date.Today.Month)

MsgBox("Hallo " & TextBox1.Text & "," & vbNewLine _
& "Je bent " & Date.Today.Year - CInt(TextBox3.Text) + TempJaar & _
" jaar en " & TempMaand & " maand(en) oud.", 64 + 4096, "Leeftijdsmeter")
Else : MsgBox("Ongeldig(e) jaar en/of maand.", 48 + 4096, "Leeftijdsmeter")
End If
Else : MsgBox("Ongeldig(e) jaar en/of maand.", 48 + 4096, "Leeftijdsmeter")
End If[/CPP]

 

[wakmen]

Ooo leuk nu heeft hij zelf hoeveel maanden!
Maar er is een probleempje is dat ook bij u zo?zie foto
Bekijk bijlage 148367

 

[JoZ1]

Sorry voor het late reageren, ik heb dit topic over het hoofd gezien (je had je bericht aangepast )

De fout zat hier:

[CPP]& "Je bent " & Date.Today.Year - CInt(TextBox3.Text) & TempJaar &[/CPP]

Moet zijn:

[CPP]& "Je bent " & Date.Today.Year - CInt(TextBox3.Text) + TempJaar &[/CPP]

 

[wakmen]

zal eens gaan kijken bedankt