virtual basique

donc voila enfaite j'ai un programme a faire sur vb mais je debut et je susi totalement perdu donc ca serai pour savoir si il y aurai moyen que vous m aiguiller sur la bonne voie
donc le programe c que je doit ajouter 30 jour a une date (date qui sera entré par l'utilisateur)
donc

1. DIM T,M,A AS INTEGER
2. T=IMPUTBOX(''ENTREZ LE JOUR'')
3. M=IMPUTBOX(''ENTREZ LE MOIS'')
4. A=IMPUTBOX(''ENTREZ LE L'ANNEE'')

Donc mon probleme c que je sait pas comment ecrire en language je sait ce que jdoit faire je doit verifier que le jour que l utilisateur va rentré ne doit pas 31 les mois paire et 30 les mois impaire et que le mois de fevrier ne doit pas depaser les 28 jour a part quand A/4=INT(A/4)
et que les mois ne peuvent pas depaser 12 ET NE PEUX pas etre inferieur a 1
et puit faire le programe qui ajoute 30 jour mais le probleme c que je n arrive pas a ecrire tout ca en language

donc je voudrai que vous m eguiller un peux sur la bonne voie merci d avance

et a la fin le programe devra dire dans 30 jour nous seront le

je me suis arreté au titre ==> Visual basic et non virtual........

c bon j'ai trouver mon code tout seul

c bon j'ai trouver mon code tout seul

Module Module1

Sub Main()
Dim J, M, A As Integer
J = InputBox("Entrez le jour")
M = InputBox("Entrez le mois")
A = InputBox("Entrez l'année")
If (M = 1 Or M = 3 Or M = 5 Or M = 7 Or M = 8 Or M = 10 Or M = 12) And J > 31 Then
MsgBox("Le mois ne peux pas dépasser 31 jours.")
End If

If J > 30 And (M = 4 Or M = 6 Or M = 9 Or M = 11) Then
MsgBox("Le mois ne peux pas dépasser 30 jours.")

End If
If A / 4 = Int(A / 4) And M = 2 And J > 29 Then
MsgBox("Année bissextile,le mois de fevrier ne peux depasser 29jour.")
End If
If M = 2 And J > 28 And Not (A / 4 = Int(A / 4)) Then
MsgBox("Le mois de fevrier ne peux depasser 28 jour.")
End If
If J < 1 Then
MsgBox("Jour invalide.")
End If
If M > 12 Then
MsgBox("Mois invalide.")
End If
If M < 1 Then
MsgBox("Mois invalide.")
End If
J = J + 30

If (M = 4 Or M = 6 Or M = 9 Or M = 11) And J > 30 Then
J = J - 30
M = M + 1
End If
If (M = 1 Or M = 3 Or M = 5 Or M = 7 Or M = 8 Or M = 10 Or M = 12) And J > 31 Then
J = J - 31
M = M + 1
End If
If (A / 4 = Int(A / 4)) And M = 2 And J > 29 Then
J = J - 29
M = M + 1
End If
If Not (A / 4 = Int(A / 4)) And M = 2 And J > 28 Then
J = J - 28
M = M + 1
End If
If M > 12 Then
M = 1
A = A + 1
End If

MsgBox(J & " / " & M & " / " & A)
End Sub

End Module

cool merci