Discussion :

[tamtam64]

Bonjour, je suis bloqué pour un exercice .
Je souhaiterais faire une comparaison de date
pour le signe du zodiaque

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
function ..... as string
 
 select case (madate ) en format date 
case CDate(3/21/year(madate)) to CDate(4/20/year(madate))
zodiaque = "bélier"
.....
.....
endselect

ce modele ne marche clairement pas il n'y a pas d'erreur mais ca marche pas

Pour info , j ai créé une classe date moi meme et qui marche mais , je vois pas comment gerer le select case
ou si vous avez une autre idée pour determiner selon la date le signe je suis preneur , car la je bugg sur ca j ai pas trop d'idees

Je vous remercie par avance

[nibledispo]

Bonsoir,

C'est quoi ma date ? La date du jour je suppose. Si oui il suffit de poser
-soit year(date) en lieu et pace de year(madate)
-doit ecrire avant select case madate = year(date) et mettre madate dans les case

Autre approche peut-être avec la fonction "dateserial" pour éviter les confusions entre anglais et français sur certaines dates

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
case Dateseria(madate,3,20) to Dateserial(madate,4,20)

cordialement,

[tamtam64]

Merci mais j'ai pas bien compris :

En faite , ma date est une date de naissance que l'on rentre .
On veut savoir suivant la date de naissance le signe astrologique .
je veux donc tester avec une fonction , et donc l'utilisation d'un select case
le probleme c'est que quand j'appel la fonction dans ma userforme elle n'affiche rien , donc ya un bug , tout les autres fonctions s'affichent dans la userform mais pas celle la je me doute qu'il y a un probleme dans ma fonction

je ne vois pas trop comment comparer ma date de naissance avec les differents intervalles de dates du signe du zodiaque

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
function zodiac as string
 
select case (madate ) en format date
case CDate(3/21/year(madate)) to CDate(4/20/year(madate))
zodiaque = "bélier"
.....
.....
endselect

desolé d'avance pour la non utilisation de l'option code , car je travail sur windows et je n'ai internet que sur le mac .
Mais je pense que ce n'est pas un gros gros probleme , et que ma structure a une faute , juste , mais je ne vois pas ou :/

encore merci

cordielement

[EngueEngue]

que tu sois né en 1998 en 1930 ou en l'an 1 l'année ne joue en rien pour le signe il suffit de tester le jour et le mois. Dateserial comme dit nible fera l'affaire

[tamtam64]

désolé mais je ne comprend pas :/ j'ai beau chercher je ne comprend pas le code .

Je suis daccord sur la date , l année ne change rien mais j'aurais voulu tester que sur le jour et le mois mais je ne sais pas comment faire
si c'est dateserial , ce n'est pas reelement son but si??

merci beaucoup

[tamtam64]

j'ai réussi , je peux mettre le code si ca interesse quelqu'un
si par asard on pouvait m'expliquer l'utilite de dateserial car je la voie pas trop :/ mais c'est bon ca marche je vous remercie pour les pistes en tout cas
j'attend votre réponse et je met sur résolu :p

[nibledispo]

bonjour,

voila ma proposition pour comparaison

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
 
' code 1
sub zodiac()
madate = InputBox("jour et mois (4 chiffres sans espaces) ?")
madate = CDate(Left(madate, 2) & "/" & Mid(madate, 3, 2) & "/2013")
MsgBox madate  'pour vérification
Select Case madate
  Case DateValue("21 / 3 / 2013") To DateValue("20 / 4 / 2013")
  zodiac = "bélier"
  Case DateValue("21 / 4 / 2013") To DateValue("20 / 5 / 2013")
  zodiac = "truc"
  Case DateValue("21 / 5 / 2013") To DateValue("20 / 6 / 2013")
  zodiac = "much"
  Case DateValue("21 / 6 / 2013") To DateValue("20 / 7 / 2013")
  zodiac = "moche"
 
End Select
MsgBox zodiac
End Sub
 
' code 2
Sub zodiac1()
jour = InputBox("jour naissance ? (2 chiffres)")
mois = InputBox("mois naissance ? (2 chiffres)")
madate = CDate(jour & " /" & mois & " /" & "2013")
MsgBox madate  'pour vérification
Select Case madate
  Case CDate("21 / 3 / 2013") To CDate("20 / 4 / 2013")
  zodiac = "bélier"
  Case CDate("21 / 4 / 2013") To CDate("20 / 5 / 2013")
  zodiac = "truc"
  Case CDate("21 / 5 / 2013") To CDate("20 / 6 / 2013")
  zodiac = "much"
  Case CDate("21 / 6 / 2013") To CDate("20 / 7 / 2013")
  zodiac = "moche"
 
End Select
MsgBox zodiac
 
End Sub :

D'autres possiblités.
préférer un userform

Cordialement,