calcul de signe du zodiac

Version imprimable

bonjour,
Je sais pas si c'est le bon endroit pour poser ma question,
voila j'ai un petit soucis je debute sur visual studio et j'essai d'écrire un programme qui permet de retourner un signe de zodiaque correspandant a une date de naissance saisie au clavier (structure) jour chiffre et mois string.
Mais malheureusement ca ne marche pas!

Module Module1

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
 
 
Sub Main()
Dim dNaissance As DateNaissance
dNaissance.jour = InputBox("entrez le jour de naissance en chiffre")
dNaissance.mois = InputBox("entrez le mois de naissance en lettres")
MsgBox(periode(dNaissance.jour, dNaissance.mois))
End Sub
 
Structure DateNaissance
 
Dim jour As Integer
Dim mois As String
 
End Structure
 
Function periode(ByVal unJ As Integer, ByVal unM As String) As String
Dim sZodiaque As String
Dim signeZodiaque As String
If (unJ >= 23 Or unJ <= 31) And unM = "Décembre" Or (unJ <= 19 Or unJ >= 1) And unM = "Janvier" Then
sZodiaque = "Capricorne"
ElseIf (unJ >= 20 Or unJ <= 31) And unM = "Janvier" Or (unJ <= 1 Or unJ >= 19) And unM = "Fevrier" Then
sZodiaque = "Verseau"
ElseIf (unJ >= 20 Or unJ <= 31) And unM = "Fervrier" Or (unJ <= 1 Or unJ >= 20) And unM = "Mars" Then
sZodiaque = "Poisson"
ElseIf (unJ >= 21 Or unJ <= 31) And unM = "Mars" Or (unJ <= 1 Or unJ >= 19) And unM = "Avril" Then
sZodiaque = "Belier"
ElseIf (unJ >= 20 Or unJ <= 31) And unM = "Avril" Or (unJ <= 1 Or unJ >= 20) And unM = "Mai" Then
sZodiaque = "Taureau"
ElseIf (unJ >= 21 Or unJ <= 31) And unM = "Mai" Or (unJ <= 1 Or unJ >= 20) And unM = "Juin" Then
sZodiaque = "Gémeau"
ElseIf (unJ >= 21 Or unJ <= 31) And unM = "Juin" Or (unJ <= 1 Or unJ >= 21) And unM = "Juillet" Then
sZodiaque = "Cancer"
ElseIf (unJ >= 22 Or unJ <= 31) And unM = "Juillet" Or (unJ <= 1 Or unJ >= 22) And unM = "Aout" Then
sZodiaque = "Lion"
ElseIf (unJ >= 23 Or unJ <= 31) And unM = "Aout" Or (unJ <= 1 Or unJ >= 22) And unM = "Septembre" Then
sZodiaque = "Vierge"
ElseIf (unJ >= 23 Or unJ <= 31) And unM = "Septembre" Or (unJ <= 1 Or unJ >= 22) And unM = "Octobre" Then
sZodiaque = "Balance"
ElseIf (unJ >= 23 Or unJ <= 31) And unM = "Octobre" Or (unJ <= 1 Or unJ >= 21) And unM = "Novembre" Then
sZodiaque = "Scorpion"
ElseIf (unJ >= 22 Or unJ <= 31) And unM = "Novembre" Or (unJ <= 1 Or unJ >= 22) And unM = "Décembre" Then
sZodiaque = "Sagitaire"
End If
Return signeZodiaque
End Function

22/11/2010, 16h41
mactwist69

Qu'est ce qui ne marche pas ? un bug ou le résultat ?

Si c'est un bug, quelle exception et ou ?

Merci pour vos réponse mais j'ai trouvé l'erreur !
j'avais pas initialisé la variable sZodiaque dans la fonction!

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
 
    Module SigneZodiaque
 
    Sub Main()
        Dim dNaissance As DateNaissance
        dNaissance.jour = InputBox("entrez le jour de naissance en chiffre")
        dNaissance.mois = InputBox("entrez le mois de naissance en lettres")
        MsgBox(periode(dNaissance.jour, dNaissance.mois))
 
 
    End Sub
    Structure DateNaissance
        Dim jour As Integer
        Dim mois As String
    End Structure
    Function periode(ByVal unJ As Integer, ByVal unM As String) As String
        Dim sZodiaque As String
        sZodiaque = ""
        If (unJ >= 23 Or unJ <= 31) And unM = "Décembre" Or (unJ <= 19 Or unJ >= 1) And unM = "Janvier" Then
            sZodiaque = "Capricorne"
        ElseIf (unJ >= 20 Or unJ <= 31) And unM = "Janvier" Or (unJ >= 1 Or unJ <= 19) And unM = "Fevrier" Then
            sZodiaque = "Verseau"
        ElseIf (unJ >= 20 Or unJ <= 31) And unM = "Fervrier" Or (unJ >= 1 Or unJ <= 20) And unM = "Mars" Then
            sZodiaque = "Poisson"
        ElseIf (unJ >= 21 Or unJ <= 31) And unM = "Mars" Or (unJ >= 1 Or unJ <= 19) And unM = "Avril" Then
            sZodiaque = "Belier"
        ElseIf (unJ >= 20 Or unJ <= 31) And unM = "Avril" Or (unJ >= 1 Or unJ <= 20) And unM = "Mai" Then
            sZodiaque = "Taureau"
        ElseIf (unJ >= 21 Or unJ <= 31) And unM = "Mai" Or (unJ >= 1 Or unJ <= 20) And unM = "Juin" Then
            sZodiaque = "Gémeau"
        ElseIf (unJ >= 21 Or unJ <= 31) And unM = "Juin" Or (unJ >= 1 Or unJ <= 21) And unM = "Juillet" Then
            sZodiaque = "Cancer"
        ElseIf (unJ >= 22 Or unJ <= 31) And unM = "Juillet" Or (unJ >= 1 Or unJ <= 22) And unM = "Aout" Then
            sZodiaque = "Lion"
        ElseIf (unJ >= 23 Or unJ <= 31) And unM = "Aout" Or (unJ >= 1 Or unJ <= 22) And unM = "Septembre" Then
            sZodiaque = "Vierge"
        ElseIf (unJ >= 23 Or unJ <= 31) And unM = "Septembre" Or (unJ >= 1 Or unJ <= 22) And unM = "Octobre" Then
            sZodiaque = "Balance"
        ElseIf (unJ >= 23 Or unJ <= 31) And unM = "Octobre" Or (unJ >= 1 Or unJ <= 21) And unM = "Novembre" Then
            sZodiaque = "Scorpion"
        ElseIf (unJ >= 22 Or unJ <= 31) And unM = "Novembre" Or (unJ >= 1 Or unJ <= 22) And unM = "Décembre" Then
            sZodiaque = "Sagitaire"
        End If
        Return sZodiaque
    End Function
End Module