Arg [Date en VB]

bonjour, si quelqu'un pouvait m'aider, j'ai encore 1 pb sous VB.
J'ai trois combolist: une pour les jours, une pour les mois (en toute lettre) et une pour les années.
Je n'arrive pas a les faire accepter toutes les trois comme étant une seule date.
Ca doit etre tout simple et j'y arrive pas ca m'énnerve:-((((

10 réponses

  • Votes
  • Date
  • Date décroissante
  1. Contributeur
    Oops, pardon, j'oublie toujours de faire propre quand j'ecris sur le forum, il te faut parenthese le combo2..+1 parce que sinon il sait plus a quel saint se voue...
    Si ca marche pas (ce qui m'etonnerait) tu le convertis explicitement...

    *,*
    \_/
    1. Et aller maintenant ca me marque type incompatible en me surlignant la ligne pas propre
      1. j'aime bien la solution la moins propre, elle me convient mieux a priori.
        Merci teebo
        1. Contributeur
          Ba au moment ou tu mets tes mois dedans, tu le fais en dur ou tu le fait au runtime?
          Si tu le fais en dur, ca doit pouvoir se mettre mais je sais pas comment, si tu la remplie au runtime, alors, a ce moment la tu colles cette ligne la dans tes iterations...

          Autre solutions plus simple (et moins propre, comme toujours :-D)

          date= c1.text & "/" & combo2.ListIndex+1 & "/" & c3.text ...

          Bonne chance

          *,*
          \_/
          1. comment ca apres avoir rempli ma combo?
            au moment de lire?je demande?et je le colle.
            Ca veut dire quoi tout ca mon bon teebo?
            1. Contributeur
              Ooops, erreur de syntaxe, en fait, juste apres avoir rempli ta combo 2, tu fais:
              combo2.ItemData(index) = index+1
              (tu fais ca en boucle 12 fois)

              et apres, au moment de lire, tu demande combo2.itemdata(combo2.ListIndex) et tu le colles dans ta string qui deviendra date...

              Voili voilou...
              *,*
              \_/
              1. bon alors voila ce que j'ai fait :j'ai déclaré ma variable date :
                Dim date1 as date.
                Puis dans private sub form load j'ai écris ce que tu m'a dit;
                Dessous j'ai écris
                if combo3.text ="janvier" then combo3.Value=1
                .
                .
                .
                je lance le truc et il me met : méthode ou membre de donnée introuvable en me surlignant Value
                Quézaco?
                1. Contributeur
                  Le tout c'est que tu comprennes, moi le VB, ca va, j'ai compris, et comme je me suis pris la tete recemment sur des boites de messages automatiques, je connais bien ces petits controles :-DDD

                  *,*
                  \_/
                  1. merci teebo; décidément c'est toi qui va le faire mon projet!
                    J'essaye ca
                    1. Contributeur
                      A mon avis, il te suffit de declarer une variable date, de lui affecter "premierecombo.text & "/" & 2combo.value & "/" & 3combo.text
                      Sachant que quand tu remplis tes mois, tu ajoutes une valeurnumerique correspondant au mois (tu peux aussi utiliser index+1,...)

                      *,*
                      \_/