VB6 Commande Now

Résolu/Fermé
Utilisateur anonyme - 5 juin 2008 à 11:02
Archi-dessin Messages postés 270 Date d'inscription samedi 19 avril 2008 Statut Membre Dernière intervention 28 décembre 2009 - 11 juin 2008 à 18:54
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 mercredi 25 avril 2007 Statut Membre Dernière intervention 22 juin 2009 79
5 juin 2008 à 11:16
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
5 juin 2008 à 11:21
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
5 juin 2008 à 11:21
Euh il me donne l'année avec 2 chiffre. En fait date me renvoit 05/06/08...
0
Utilisateur anonyme
5 juin 2008 à 11:18
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 mercredi 25 avril 2007 Statut Membre Dernière intervention 22 juin 2009 79
5 juin 2008 à 11:21
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 mercredi 25 avril 2007 Statut Membre Dernière intervention 22 juin 2009
5 juin 2008 à 11:24
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 mercredi 25 avril 2007 Statut Membre Dernière intervention 22 juin 2009 79
5 juin 2008 à 11:28
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
5 juin 2008 à 11:45
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 samedi 19 avril 2008 Statut Membre Dernière intervention 28 décembre 2009 25
10 juin 2008 à 22:16
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 mercredi 25 avril 2007 Statut Membre Dernière intervention 22 juin 2009 79
11 juin 2008 à 15:11
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 samedi 19 avril 2008 Statut Membre Dernière intervention 28 décembre 2009 25
11 juin 2008 à 18:54
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