Sujet Précédent Sujet Suivant

Réinitialiser une Variable de Type Date

Résolu/Fermé
Lenouveauapprenti Messages postés 300 Date d'inscription samedi 22 décembre 2018 Statut Membre Dernière intervention 7 avril 2024 - 1 mai 2020 à 14:33
Lenouveauapprenti Messages postés 300 Date d'inscription samedi 22 décembre 2018 Statut Membre Dernière intervention 7 avril 2024 - 1 mai 2020 à 15:28
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.
A voir également:

4 réponses

Réponse 1 / 4
yg_be Messages postés 22692 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 16 avril 2024 1 471
1 mai 2020 à 14:36
bonjour, "sans résultat": qu'observes-tu?
0
Réponse 2 / 4
Lenouveauapprenti Messages postés 300 Date d'inscription samedi 22 décembre 2018 Statut Membre Dernière intervention 7 avril 2024 2
1 mai 2020 à 14:39
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
0
yg_be Messages postés 22692 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 16 avril 2024 1 471
Modifié le 1 mai 2020 à 14:43
ne penses-tu donc pas que c'est ton test qui doit être adapté?
0
Réponse 3 / 4
Lenouveauapprenti Messages postés 300 Date d'inscription samedi 22 décembre 2018 Statut Membre Dernière intervention 7 avril 2024 2
1 mai 2020 à 14:55
merci de m'orienter pour que je puisse adapter mon test
0
Réponse 4 / 4
Lenouveauapprenti Messages postés 300 Date d'inscription samedi 22 décembre 2018 Statut Membre Dernière intervention 7 avril 2024 2
1 mai 2020 à 15:28
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é
0

Discussions similaires

programme qui n'affiche pas le mot secret
EMy.chev -
yg_be -

3 réponses
VBA : Range avec références variables..
Antoine -
MIKE59 -

7 réponses
Prélèvement JM Jacquie et Michel date.
Kekradinho -
Kar -

31 réponses
Problème Whatsapp - "La date est incorrecte"
thvzzz -
Razor -

5 réponses
Erreur d'exécution 13 Incompatibilité de type
grace -
pijaku -

5 réponses