Réinitialiser une Variable de Type Date [Résolu]

Signaler
Messages postés
237
Date d'inscription
samedi 22 décembre 2018
Statut
Membre
Dernière intervention
25 juin 2020
-
Messages postés
237
Date d'inscription
samedi 22 décembre 2018
Statut
Membre
Dernière intervention
25 juin 2020
-
Bonjour,

N.B : l'environnement du travail est VB6

J'ai une variable de type Date déclarée dans un Module ( VarOptionDate ), qui prend sa valeur (DD/MM/YYYY) à partir d'un TextBox.

je cherche, à chaque chargement de la feuille de saisie (Form) , le champs TDate (TextBox), s'y affiche
la valeur stockée dans VarOptionDate,

J'ai essayé le code ci dessous sans résultat,

If Not IsNull(VarOptionDate) Then
TDate = Format(VarOptionDate, "DD/MM/YYYY")
Else
TDate = ""
End If
 



Normalement, Tdate devrait prendre la valeur Date stockée dans la variable, sinon, TDate devrait rester vide.

Merci pour votre aide.

4 réponses

Messages postés
13362
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
29 novembre 2020
750
bonjour, "sans résultat": qu'observes-tu?
Messages postés
237
Date d'inscription
samedi 22 décembre 2018
Statut
Membre
Dernière intervention
25 juin 2020

Re bonjour

Quand la valeur (VarOptionDate) est vide elle me renvoie 30/12/1899, alors que, lorsqu'elle contient une valeur, elle me renvoie la valeur exacte
Messages postés
13362
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
29 novembre 2020
750
ne penses-tu donc pas que c'est ton test qui doit être adapté?
Messages postés
237
Date d'inscription
samedi 22 décembre 2018
Statut
Membre
Dernière intervention
25 juin 2020

merci de m'orienter pour que je puisse adapter mon test
Messages postés
237
Date d'inscription
samedi 22 décembre 2018
Statut
Membre
Dernière intervention
25 juin 2020

Re bonjour

J'ai trouvé une astuce un peu simple et naïve qui m'a donné le résultat escompté


If Not IsNull(VarOptionDate) Then
TDate = Format(VarOptionDate, "DD/MM/YYYY")
End If


If TDate > Date Then
TDate = ""
End If


Merci pour votre réactivité