VB6 - Weekday -Ca marche et ça ne marche plus !Résolu

Question

Bonjour,
Il m'arrive une chose curieuse, j'ai un code qui fonctionne dans une form et pas dans l'autre. Dans le 2&#232;me form, je bug sur 'ann&#233;e'.  Si quelqu'un peut m'aider avant que je ne jette mon ordi par la fen&#234;tre ..... Merci.

dans le module 1 j'ai d&#233;clar&#233; mes variables : 
Public vitamineA As String
Public vitamineB As String


ensuite, dans chaque form j'ai mis exactement le m&#234;me code : 
Private Sub vitamine()
vitamineA = " Lundi, c'est le jour des vitamines A!"
vitamineB = "mecredi,  jour des vitamines B!"
        
If Weekday(DateSerial(Ann&#233;e, Mois, jour),_ vbMonday) = 1 Then
        Text1.Text = vitamineA & Text2.Text
        ElseIf Weekday(DateSerial(Ann&#233;e, Mois, jour),_ vbMonday) = 3 Then
        Text1.Text = vitamineB & Text2.Text
        Else
        Text1.Text = Text2.Text
        End If


End Sub

smilingjoe2 · Accepted Answer

La reponse est : OPTION EXPLICIT. Je m&#233;ditait sur les r&#233;ponses de Daniel quand la lumi&#232;re s'est faite. Je suis un triple idiot :  mon form 2 n'&#233;tait pas vide, j'avais d&#233;j&#224; des sub et ... un option explicit.


Donc form1 variant  et form2 option explicit --> oblig&#233; de d&#233;clarer 'ann&#233;e'


Voil&#224;. l'apr&#233;s-midi et uen bonne partie de la soir&#233;e &#224; me taper la t&#234;te contre les murs pour &#231;a. !!

Gobillot · Answer

c'est pas WeekDay qui plante alors, c'est DateSerial

c'est quoi le num&#233;ro d'erreur ?

et t'as test&#233; ce qu'il y avait dans Ann&#233;e

&#231;a passe j'usqu'&#224; 9999 et &#231;a passe m&#234;me avec des nombres n&#233;gatifs

Daniel

smilingjoe2 · Answer

- La solution : mettre la fonction dans le module1 en public sub vitamine() et l'appeller &#224; partir de mes 2 forms. Et l&#224; &#231;a marche partout.
- L'explication ?????

smilingjoe2 · Answer

J'avais pas de num&#233;ro d'erreur. Juste un variable non definie (ann&#233;e) qui boguait ( buggait ?)

Gobillot · Answer

ben si Ann&#233;e n'&#233;tait pas d&#233;fini  en Public ?  c'est normal



(en fait c'est bug, en fran&#231;ais ce serait plutot punaise ou bestiole)

Daniel

smilingjoe2 · Answer

je suis assez d'accord avec toi, mais .. &#231;a marchait dans le form1 sans qu''ann&#233;e' soit pas&#233;e en public

Gobillot · Answer

il &#233;tait d&#233;fini dans Form1 alors, c'est oblig&#233; ...



(on pourrait dire papillon aussi mais je vois pas le rapport avec la noix)

Daniel

smilingjoe2 · Answer

O&#249; est pass&#233;e ma r&#233;ponse ? J'ai du cliquer sur la mauvaise fen&#234;tre. ..


Je ne crois pas ( en tout cas pas par moi) J'ai fait un copi&#233;-coll&#233; de mon projet vide TEST ( &#231;a fonctionnait) vers le form2 de mon appli. Et l&#224; bug. Je l'ai alors test&#233; sur le form1 de la dite appli. toujours en copier coll&#233;. 9a fonctionnait. Je n'ai jamais d&#233;clar&#233; 'ann&#233;e' nulle part.
J'ai effac&#233; le code du form1 et du form2, copi&#233;-coll&#233; ( bon d'accord, j'ai transform&#233; private sub en public sub)  en module1, un call sur le form1, un call sur le form2 et &#231;a marche partout. Toujours pas d&#233;clar&#233; 'ann&#233;e' et toujours rien compris!

Gobillot · Answer

&#231;a c'est une mauvaise habitude de ne pas d&#233;clarer ses zones.

mettre dans les options --> editor --> require Variable Declaration

pour avoir OPTION EXPLICIT au d&#233;but

sinon ta variable ann&#233;e (et les autres aussi surement mois et jour) a &#233;t&#233; d&#233;finie implicitement en Variant (et en private)

mais bon &#231;a devrait &#234;tre pareil sur les autres formes ???

si elle est utilis&#233; (maintenant) seulement dans le module &#231;a ne pose plus de probl&#232;me

Daniel

smilingjoe2 · Answer

Tu as raison, pour OPTION ECPLICIT. Autant prendre de suite de bonnes habitudes. Ce qui m'evitera sans doute ce genre de casse-t&#234;te !  En tant que d&#233;butant en d&#233;v. et en VB j'ai dej&#224; suffiseament de mal comme &#231;a! 
D'ailleurs j'en profite pour te remercier de tes r&#233;ponses et pour remercier tous ceux qui r&#233;pondent d'une mani&#232;re g&#233;n&#233;rale. C'est gr&#226;ce &#224; vous que mon appli est bient&#244;t presque-termin&#233;e.

VB6 - Weekday -Ca marche et ça ne marche plus !

10 réponses

Discussions similaires