Réinitialiser une Variable de Type Date

Résolu

Lenouveauapprenti Messages postés 306 Date d'inscription Statut Membre Dernière intervention -
Lenouveauapprenti Messages postés 306 Date d'inscription Statut Membre Dernière intervention - 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:

Réinitialiser une Variable de Type Date
Reinitialiser pc - Guide
Reinitialiser pc sans mdp - Guide
Réinitialiser manette ps4 - Guide
Réinitialiser chromecast - Guide
Réinitialiser ps4 - Guide

4 réponses

Réponse 1 / 4

yg_be Messages postés 23541 Date d'inscription Statut Contributeur Dernière intervention Ambassadeur 1 584

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

Réponse 2 / 4

Lenouveauapprenti Messages postés 306 Date d'inscription Statut Membre Dernière intervention 2

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

yg_be Messages postés 23541 Date d'inscription Statut Contributeur Dernière intervention 1 584

ne penses-tu donc pas que c'est ton test qui doit être adapté?

Réponse 3 / 4

Lenouveauapprenti Messages postés 306 Date d'inscription Statut Membre Dernière intervention 2

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

Réponse 4 / 4

Lenouveauapprenti Messages postés 306 Date d'inscription Statut Membre Dernière intervention 2

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é

Discussions similaires

je cherche la date et le lieu de naissance d une personne

PB edenwood , comment réinitialiser ?

Erreur d'exécution 13 Incompatibilité de type

Votre réponse

Discussions similaires