incrementation d'heure Résolu

Question

bonjour

je me suis lanc&#233; dans un petit programme en VB6

mais je suis bloqu&#233; sur une fonction



je voudrais incrementer l'heure en me servant du vscrolbar

avez une solution

merci

cordialement 
pascal

CharlesZan · Accepted Answer

Va dans le menu projet et ajoute les componsantes Microsoft Windows common controls-2 6.0

Avec &#231;a vien le composant DTPicker... ajoute le &#224; ta feuille et dans propri&#233;t&#233; du DTPicker,  format dtptime... 

En esp&#233;rant t'&#234;tre utile :D

dpouliot · Answer

Quel est code?

dpouliot

pascallac · Answer

merci je suis maintenant avec un calendrier

je vais essayer d'avancer





cordialement 
pascal

CharlesZan · Answer

Bah le ccontr&#244;le DTPicker en format dtptime fait tout ca automatiquement... pas de code...

CharlesZan · Answer

Au plaisir

pascallac · Answer

c bon ca fonctionne reste plus a virrer les secondes et ce seras parfait 

cordialement 
pascal

CharlesZan · Answer

R&#233;ponse accept&#233;?  

Bonne prog!

pascallac · Answer

la solution est bonne merci



actuellement je recherche comment multiplier la base de temps par un nombre 

l'idee Watt x Heures=WH

j'ais l'inpression que la date va me posser probleme 


je suis novice 
cordialement 
pascal

cs_CanisLupus · Answer

Salut,

Pourquoi utiliser des objets tels que dtpicker pour ajouter ou retirer des heures, minutes et autres ?
Il existe une fonction en VB6 qui s'appelle DateAdd.
Si c'est pour utiliser avec une scrollbar, c'est l'id&#233;al.

Exemple pour un affichage "hh:mm"
Text1 = Format(DateAdd("n", 1, Text1), "hh:mm") 'pour ajouter 1 minute
Text1 = Format(DateAdd("n", -1, Text1), "hh:mm") 'pour retirer 1 minute
Text1 = Format(DateAdd("h", 1, Text1), "hh:mm") 'pour ajouter 1 heure
Text1 = Format(DateAdd("h", -1, Text1), "hh:mm") 'pour retirer 1 heure

Voir la MSDN pour plus de pr&#233;cisions.

Loup Gris

pascallac · Answer

bonsoir
CanisLupus
merci
votre solution ne parrait plus adapter pour mon utilisation (encore quelque soucis)

citation 
Voir la MSDN pour plus de pr&#233;cisions.


cordialement 
pascal

cs_CanisLupus · Answer

Si tu as vb6 au complet, tu devrais avoir l'aide (MSDN), sinon, la voilà : [javascript:alink_4.Click() arguments nommés ] suivants : Élément , Description , ---- interval ,

[javascript:alink_7.Click() argument ] interval peut prendre les valeurs suivantes : Valeur , Description , ---- yyyy , Année , ---- q , Trimestre , ---- m , Mois , ---- y , Jour de l'année , ---- d , Jour , ---- w , Jour de la semaine , ---- ww , Semaine , ---- h , Heure , ---- n , Minute , ---- s , Seconde Remarques Utilisez la fonction DateAdd pour ajouter ou soustraire à une date un intervalle de temps spécifié. Par exemple, utilisez DateAdd pour calculer une date située à 30 jours ou une heure située à 45 minutes de l'heure présente. Pour ajouter des jours à la valeur de l'argument date, vous pouvez utiliser les valeurs Jour de l'année ("y"), Jour ("d") ou Jour de la semaine ("w"). La fonction DateAdd ne renvoie jamais de date incorrecte. Dans l'exemple suivant, un mois est ajouté à la date du 31 janvier : DateAdd("m", 1, "31-Jan-95") Dans ce cas, DateAdd renvoie 28/02/95, et non 31/02/95. Si l'argument date a pour valeur le 31-Jan-96, la date 29/02/96 est renvoyée car 1996 est une année bissextile. Si la date calculée devait être antérieure à l'année 100 (c'est-à-dire, si vous retirez un nombre d'années supérieur à celui indiqué dans l'argument date), une erreur se produit. Si l'argument number n'est pas une valeur de type

[javascript:alink_8.Click() Long ], il est arrondi au nombre entier le plus proche avant d'être évalué. Note Le format de la valeur renvoyée correspondant à la fonction DateAdd est déterminé par les valeurs du Panneau de configuration, non par le format qui est passé à l'argument date. Loup Gris

pascallac · Answer

Si tu as vb6 au complet, tu devrais avoir l'aide (MSDN), sinon, la voil&#224; :

ok 

je n'avais pas fait le raprochement 

merci


cordialement
pascal

pascallac · Answer

je n'arrive pas a incrementer et desincrementer avec un vscrolbar

j'arrive +1 ou -1 mais pas les deux pour le meme vscrolbar


cordialement 
pascal

pascallac · Answer

bonjour
j'ais reussis

avec 2 UpDown un pour les heures l'autre pour les minutes

Private Sub UpDown1_Change()
Test1 =  Format(DateAdd("h", UpDown1, Text1), "hh:mm")
Test1 = Format(DateAdd("n", UpDown2, Test1), "hh:mm")
End Sub


Private Sub UpDown2_Change()
Test1 = Format(DateAdd("n", UpDown2, Text1), "hh:mm")
Test1 = Format(DateAdd("h", UpDown1, Test1), "hh:mm")
End Sub

voilas il y avait certaimement plus facile mais j'ais pas trouv&#233; 

merci a
  CharlesZan  pour les 
componsantes Microsoft Windows common controls-2 6.0
CanisLupus pour les codes
Text1  = Format(DateAdd("n", 1, Text1), "hh:mm") 'pour ajouter 1 minute

au plaisir


cordialement 
pascal

upperphi · Answer

Bsr les gas j'ai le meme soucis aujourd'hui; en effet je souhaite pouvoir incrementer une sommme d'argent de 1000 euro (par exemple) à chaque mois c'est à dire en decembre ondoit se retrouvez avec 12000 euro (par exemple).
merci pour votre reponse meme si au lieu de repondre à la question posée j'en pose une autre.


Upperphi.

Incrementation d'heure

15 réponses

Discussions similaires