VB6 Commande Now

Résolu
Utilisateur anonyme -  
Archi-dessin Messages postés 281 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

j'utilise la commande now dans une application, et pour parvenir à avoir la date au format AAAAMMJJ, j'éxecute cette fonction :
maintenant = Mid(Now, 7, 4) + Mid(Now, 4, 2) + Left(Now, 2)
'car la date était donné comme ceci "06/06/2008 11:01:01"
Le problème c'est que je ne sais pourquoi, le contenu de la variable Now a changé, et au lieu d'avoir 06/06/2008 j'ai désormais 06/06/08... Bon c'est pas un gros souci, mais comme c'est ammené à être utilisé sur des pc différents, j'aimerais savoir s'il est possible d'imposer un format bien précis à la variable Now. Du genre Now.Year enfin quelque chose pour que la date soit toujours au même nombre de chiffres quelque soit la configuration du système.
Merci d'avance!
Cédric

5 réponses

  1. julplemet Messages postés 325 Date d'inscription   Statut Membre 79
     
    Bonjour,

    Si je me souviens bien, si tu mets maDate = Date
    tu auras maDate = 05/06/2008

    Et fais attention, tu es déjà demain, aujourd'hui c'est le 5 juin et demain c'est pas le weekend
    0
    1. Utilisateur anonyme
       
      C'est pareil, il me donne l'année avec 4 chiffres... Il y a bien eu quelque chose de changer dans mon système, puisque même l'horloge m'indique 05/06/2008 et non plus Jeudi 5 Juin 2008 comme avant. Bon tant pis c'est pas grave! Et oui je me suis planté, c'est vrai, demain c'est pas encore le weekend !
      Merci!
      0
      1. Utilisateur anonyme > Utilisateur anonyme
         
        Euh il me donne l'année avec 2 chiffre. En fait date me renvoit 05/06/08...
        0
  2. Utilisateur anonyme
     
    J'ai résolu en utilisant year(now) qui me renvoit l'année sur 4 chiffre.
    Dim maintenant As String
    Dim annee As String
    annee = Year(Now)
    maintenant = annee + Mid(Now, 4, 2) + Left(Now, 2)
    0
    1. julplemet Messages postés 325 Date d'inscription   Statut Membre 79
       
      Tu peux aussi faire ça:

      maintenant = Year(now) + Format(Month(now), "00") + Format(Day(now), "00")
      0
      1. Utilisateur anonyme > julplemet Messages postés 325 Date d'inscription   Statut Membre
         
        C'est presque ça à part qu'il faut passer par des variables intermédiaire pour convertir les entier en string, sinon il me donne 2019... 2008+5+6 !
        0
  3. julplemet Messages postés 325 Date d'inscription   Statut Membre 79
     
    Ah eh bien a mon avis tu dois ecrire

    dim maintenant as string
    maintenant = Year(now) + "/" + Format(Month(now), "00") + "/" + Format(Day(now), "00")
    0
    1. Utilisateur anonyme
       
      Ben c'est ce que j'avais mais non il me met 2019...
      Faudrait :

      Dim annee as String
      Dim mois As string
      Dim jour as string
      Dim maintenant as string

      annee = Year(now)
      mois=Format(Month(now),"00")
      jour=Format(Day(now),"00")
      maintenant=annee+mois+jour

      D'ailleurs c'est ce que je vais mettre, ça sera plus sur!
      0
  4. Archi-dessin Messages postés 281 Date d'inscription   Statut Membre Dernière intervention   25
     
    slt,
    une remarque vous devez limiter le nombre de caractère pour le string de mieux
    0
    1. julplemet Messages postés 325 Date d'inscription   Statut Membre 79
       
      Salut,
      J'ai beau relire, je ne comprends rien a ta phrase
      0
  5. Vous n’avez pas trouvé la réponse que vous recherchez ?

    Posez votre question
  6. Archi-dessin Messages postés 281 Date d'inscription   Statut Membre Dernière intervention   25
     
    c"est à dire la taille (ou nombre de position ) qu va prendre la variable de type string
    un consiel, essayer d'apprendre les mots techique de l'informatique
    -2