virtual basique

Discussion dans 'Web, design' créé par farfelu, 17 Octobre 2010.

  1. Offline
    farfelu Elite
    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 :D
    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

    farfelu, 17 Octobre 2010
    #1
  2. Online
    eGm_ Guinea Trump
    je me suis arreté au titre ==> Visual basic et non virtual........
    eGm_, 17 Octobre 2010
    #2
  3. Offline
    farfelu Elite
    c bon j'ai trouver mon code tout seul :p

    PHP:
    Module Module1

        Sub Main
    ()
            
    Dim JMAs Integer
            J 
    InputBox("Entrez le jour")
            
    InputBox("Entrez le mois")
            
    InputBox("Entrez l'année")
            If (
    Or Or Or Or Or 10 Or 12) And 31 Then
                MsgBox
    ("Le mois ne peux pas dépasser 31 jours.")
            
    End If

            If 
    30 And (Or Or Or 11Then
                MsgBox
    ("Le mois ne peux pas dépasser 30 jours.")

            
    End If
            If 
    Int(4) And And 29 Then
                MsgBox
    ("Année bissextile,le mois de fevrier ne peux depasser 29jour.")
            
    End If
            If 
    And 28 And Not (Int(4)) Then
                MsgBox
    ("Le mois de fevrier ne peux depasser 28 jour.")
            
    End If
            If 
    1 Then
                MsgBox
    ("Jour invalide.")
            
    End If
            If 
    12 Then
                MsgBox
    ("Mois invalide.")
            
    End If
            If 
    1 Then
                MsgBox
    ("Mois invalide.")
            
    End If
            
    30
            
            
    If (Or Or Or 11) And 30 Then
                J 
    30
                M 
    1
            End 
    If
            If (
    Or Or Or Or Or 10 Or 12) And 31 Then
                J 
    31
                M 
    1
            End 
    If
            If (
    Int(4)) And And 29 Then
                J 
    29
                M 
    1
            End 
    If
            If 
    Not (Int(4)) And And 28 Then
                J 
    28
                M 
    1
            End 
    If
            If 
    12 Then
                M 
    1
                A 
    1
            End 
    If

            
    MsgBox(" / " " / " A)
        
    End Sub

    End Module
    farfelu, 17 Octobre 2010
    #3
  4. Offline
    farfelu Elite
    c bon j'ai trouver mon code tout seul :p

    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
    farfelu, 17 Octobre 2010
    #4
  5. Offline
    martini OldSch00l
    cool merci
    martini, 24 Octobre 2010
    #5