Réinitialiser une Variable de Type Date Résolu

Question

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.

yg_be · Answer

bonjour, "sans résultat": qu'observes-tu?

Lenouveauapprenti · Answer

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

Lenouveauapprenti · Answer

merci de m'orienter pour que je puisse adapter mon test

Lenouveauapprenti · Answer

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é

Réinitialiser une Variable de Type Date

4 réponses

Discussions similaires

Newsletters