Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Transormer date/heure en entier

paul87

XLDnaute Impliqué
Bonjour à tous, Bonjour le Forum.
dans un UF j'ai un TextBox qui contient date / heure au format "dd/mm/yyyy hh:nn"
j'ai besoin de transformer cette donnée en un nombre entier..car je souhaite réaliser une (ou des) barre de progression..
représentation horaire graphique horizontale
est-ce possible..?
Merci..
 
Dernière édition:

cbea

XLDnaute Impliqué
Re : Transormer date/heure en entier

Bonjour paul87,

Voici une solution :

Code:
    Dim valDate As Long
    
    If IsDate(TextBox1.Value) Then valDate = CLng(CDate(TextBox1.Value))
 

pierrejean

XLDnaute Barbatruc
Re : Transormer date/heure en entier

bonjour paul87

Vois si tu peux t'inspirer de ceci

Edit: Salut cbea
 

Pièces jointes

  • date_en_nombre.zip
    9.8 KB · Affichages: 33
  • date_en_nombre.zip
    9.8 KB · Affichages: 32
  • date_en_nombre.zip
    9.8 KB · Affichages: 32

paul87

XLDnaute Impliqué
Re : Transormer date/heure en entier

Bonsoir à tous, Bonsoir le Forum,
Merci à cbea et pierrejean pour vos conseils..
mais je n'arrive pas à faire fonctionner correctement mon appli..
ci-joint mon fichier de brouillon..avec explications jointes..
merci pour vos idées..!!
 

Pièces jointes

  • date_en_nombre.zip
    24.3 KB · Affichages: 28
  • date_en_nombre.zip
    24.3 KB · Affichages: 25
  • date_en_nombre.zip
    24.3 KB · Affichages: 22

pierrejean

XLDnaute Barbatruc
Re : Transormer date/heure en entier

Re

Je suis tres loin d'avoir tout compris de ce que tu souhaites
Teste en mettant en start la date du jour et en textbox2 2jours plus tard
clique sur le commandbutton, joue ensuite avec les spin button et a nouveau le commandbutton

la largeur du label11 est :

Code:
Label1.Width = CDbl(CDate(Me.TextBox2) - CDate(Me.TextBox1)) * 166.66

ce qui correspond a 500 pour 3 jours (166.66=500/3)

Si tu ne t'en sors pas revient sur ce fil
 

Pièces jointes

  • paul87date_en_nombre.zip
    18 KB · Affichages: 20

cbea

XLDnaute Impliqué
Re : Transormer date/heure en entier

Bonsoir paul87, pierrejean,

Voici une autre solution mais je ne suis pas sûre que ce soit la solution attendue.
 

Pièces jointes

  • date_en_nombre_v1.zip
    17.4 KB · Affichages: 30

cbea

XLDnaute Impliqué
Re : Transormer date/heure en entier

Pourtant, j'ai bien changé le code
Si tu saisis la date du 07/05/2008 dans la zone "start" et que tu cliques sur le bouton "CommandButton1", la barre se réduit en fonction de la date saisie + 3j et de la date du jour.

Après, je n'ai peut-être pas bien compris ta demande.
 

Discussions similaires

Réponses
8
Affichages
414
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…