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 : Sélectionner tout - Visualiser dans une fenêtre à part
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