VB6 Commande Now
Résolu
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
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
-
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-
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! -
@Utilisateur anonymeEuh il me donne l'année avec 2 chiffre. En fait date me renvoit 05/06/08...
-
-
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)-
-
@julplemetC'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 !
-
-
Ah eh bien a mon avis tu dois ecrire
dim maintenant as string
maintenant = Year(now) + "/" + Format(Month(now), "00") + "/" + Format(Day(now), "00")-
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!
-
-
slt,
une remarque vous devez limiter le nombre de caractère pour le string de mieux -
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
