VB6 Commande Now

Résolu
Utilisateur anonyme -  
Archi-dessin Messages postés 270 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
A voir également:

5 réponses

julplemet Messages postés 331 Date d'inscription   Statut Membre Dernière intervention   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
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
Utilisateur anonyme > Utilisateur anonyme
 
Euh il me donne l'année avec 2 chiffre. En fait date me renvoit 05/06/08...
0
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
julplemet Messages postés 331 Date d'inscription   Statut Membre Dernière intervention   79
 
Tu peux aussi faire ça:

maintenant = Year(now) + Format(Month(now), "00") + Format(Day(now), "00")
0
Utilisateur anonyme > julplemet Messages postés 331 Date d'inscription   Statut Membre Dernière intervention  
 
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
julplemet Messages postés 331 Date d'inscription   Statut Membre Dernière intervention   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
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
Archi-dessin Messages postés 270 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
julplemet Messages postés 331 Date d'inscription   Statut Membre Dernière intervention   79
 
Salut,
J'ai beau relire, je ne comprends rien a ta phrase
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Archi-dessin Messages postés 270 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