begin process at 2012 02 16 10:03:22
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
Accueil > 

Code

 > 

Date & Heure

 > ADDITION ET SOUSTRACTION D'HEURES

ADDITION ET SOUSTRACTION D'HEURES


 Information sur la source

Note :
5,2 / 10 - par 5 personnes
5,20 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :Date & Heure Classé sous :addition, soustraction, heure Niveau :Débutant Date de création :14/06/2001 Vu :22 032
Auteur : Popi

Ecrire un message privé
Commentaire sur cette source (5)
Ajouter un commentaire et/ou une note

 Description


Source

  • 'pour une addition operation=0, pour une soustraction operation=1
  • Public Function heurop(heure1 As String, heure2 As String, operation As Integer) As String
  • If operation = 0 Then
  • somme = Val(DatePart("h", heure1)) * 3600 + Val(DatePart("n", heure1)) * 60 + Val(DatePart("s", heure1)) + Val(DatePart("h", heure2)) * 3600 + Val(DatePart("n", heure2)) * 60 + Val(DatePart("s", heure2))
  • heurop = Str(somme \ 3600) + ":" + Str((somme - (somme \ 3600) * 3600) \ 60) + ":" _
  • + Str(somme - ((somme \ 3600) * 3600) - ((somme - (somme \ 3600) * 3600) \ 60) * 60)
  • ElseIf operation = 1 Then
  • diff = Val(DatePart("h", heure1)) * 3600 + Val(DatePart("n", heure1)) * 60 + Val(DatePart("s", heure1)) - Val(DatePart("h", heure2)) * 3600 - Val(DatePart("n", heure2)) * 60 - Val(DatePart("s", heure2))
  • heurop = Str(diff \ 3600) + ":" + Str((diff - (diff \ 3600) * 3600) \ 60) + ":" + _
  • Str(diff - ((diff \ 3600) * 3600) - ((diff - (diff \ 3600) * 3600) \ 60) * 60)
  • End If
  • End Function 
'pour une addition operation=0, pour une soustraction operation=1
Public Function heurop(heure1 As String, heure2 As String, operation As Integer) As String
If operation = 0 Then
somme = Val(DatePart("h", heure1)) * 3600 + Val(DatePart("n", heure1)) * 60 + Val(DatePart("s", heure1)) + Val(DatePart("h", heure2)) * 3600 + Val(DatePart("n", heure2)) * 60 + Val(DatePart("s", heure2))
heurop = Str(somme \ 3600) + ":" + Str((somme - (somme \ 3600) * 3600) \ 60) + ":" _
+ Str(somme - ((somme \ 3600) * 3600) - ((somme - (somme \ 3600) * 3600) \ 60) * 60)
ElseIf operation = 1 Then
diff = Val(DatePart("h", heure1)) * 3600 + Val(DatePart("n", heure1)) * 60 + Val(DatePart("s", heure1)) - Val(DatePart("h", heure2)) * 3600 - Val(DatePart("n", heure2)) * 60 - Val(DatePart("s", heure2))
heurop = Str(diff \ 3600) + ":" + Str((diff - (diff \ 3600) * 3600) \ 60) + ":" + _
Str(diff - ((diff \ 3600) * 3600) - ((diff - (diff \ 3600) * 3600) \ 60) * 60)
End If
End Function



 Sources du même auteur

CONVERTIR DES SECONDES EN HEURES ET VICE VERSA
Toutes les sources de Popi

 Sources de la même categorie

Source avec Zip Source avec une capture LES FONCTIONS DATE PAR L'EXEMPLE. par pasquet78
Source avec Zip Source avec une capture CALENDRIER, MODE D'EMPLOI par pasquet78
Source avec Zip Source avec une capture Source .NET (Dotnet) HORLOGE DIODE AVEC 3 ALARMES ET REMISE À L'HEURE par EhJoe
Source avec Zip Source avec une capture POINTEUSE HORAIRES PAR SEMAINE par VBNoob13
Source avec Zip Source avec une capture HORLOGE À AIGUILLES SIMPLEMENT DANS UN USERFORM EXCEL par bigbe
Toutes les sources de la catégorie Date & Heure

 Sources en rapport avec celle ci

Source avec Zip Source avec une capture ENTRAÎNEMENT AUX 3 OPÉRATIONS (+ ; X ; -) par oulipan
Source avec Zip Source avec une capture ALARMA! - TRANSPARENCE, ZONE DE NOTIFICATION par killerkurgan
Source avec Zip JEU MULTIPLICATION ADDITION SOUSTRACTION DIVISION par ATH|500|
Source avec Zip ADDITION & SOUSTRACTION D'HEURE SUR UNE BASE DE 24H par TomAmplius
ADDITION OU SOUSTRACTION DE DEUX HEURES DE TYPE HH:MM:SS par blq

Commentaires et avis

Commentaire de syphon le 14/05/2002 12:52:53

merci pour le code

Commentaire de GarnetDiAlexandros le 02/10/2002 14:34:02

C'est bien, mais je trouve que tu ne donnes pas assez de précisions, du genre
si heure1 va être ajoutée à heure2 ou le contraire, et surtout quel doit être le format des heures...
Ton code marche sûrement très très bien, mais il est difficile à comprendre malheureusement

Commentaire de Warny le 24/02/2003 11:55:15

Il y a infiniment plus simple :
NouvelleHeure = AncienneHeure + TimeSerial(nbHeures, nbMinutes, nbSecondes)

Commentaire de philippe laschweng 1 le 05/08/2005 11:48:19

Coucou, pas mal ta source. Je me suis permis de faire une petite modif (TimeSerial) pour obtenir un résultat de sortie normalisé :
01:02:12 au lieu de 1:2:12


'pour une addition operation=0, pour une soustraction operation=1
Public Function heurop(heure1 As String, heure2 As String, operation As Integer) As String
If operation = 0 Then
    somme = Val(DatePart("h", heure1)) * 3600 + Val(DatePart("n", heure1)) * 60 + Val(DatePart("s", heure1)) + Val(DatePart("h", heure2)) * 3600 + Val(DatePart("n", heure2)) * 60 + Val(DatePart("s", heure2))
    heurop = Str(somme \ 3600) + ":" + Str((somme - (somme \ 3600) * 3600) \ 60) + ":" + Str(somme - ((somme \ 3600) * 3600) - ((somme - (somme \ 3600) * 3600) \ 60) * 60)
    heurop = TimeSerial(Str(somme \ 3600), Str((somme - (somme \ 3600) * 3600) \ 60), Str(somme - ((somme \ 3600) * 3600) - ((somme - (somme \ 3600) * 3600) \ 60) * 60))
ElseIf operation = 1 Then
    diff = Val(DatePart("h", heure1)) * 3600 + Val(DatePart("n", heure1)) * 60 + Val(DatePart("s", heure1)) - Val(DatePart("h", heure2)) * 3600 - Val(DatePart("n", heure2)) * 60 - Val(DatePart("s", heure2))
    heurop = TimeSerial(Str(diff \ 3600), Str((diff - (diff \ 3600) * 3600) \ 60), Str(diff - ((diff \ 3600) * 3600) - ((diff - (diff \ 3600) * 3600) \ 60) * 60))
End If
End Function

Commentaire de julienmus le 24/11/2009 10:14:55

salut
c une vielle source mais je voudrais poser une petite question
si j'additionne la date d'aujourd'hui et que je lui rajoute 20 heure il passe au jour suivant normale (9:28:00+20:00:00= 5:28:00)
donc je me suis dit que si je mais date.now + 20:00:00 il devrais me trouve :25/11/2009 05:28:00
en realité le resultat est 02/01/2001 05:28:00
pourquoi ?

 Ajouter un commentaire


Discussions en rapport avec ce code source dans le forum

pb addition heure sous access [ par kefir1998 ] bonjorj'ai un petit soucis sous access 97 dans une requete je demande a ajouter les heures d'une semaine mais  quand ca depasse 24 heures il reviens à Problème addition/soustraction [ par kitcarflo ] Voila mon ptit problème que je n'arrive pas à résoudre.Voila une image qui va expliquer mon souci[URL=http://img186.imageshack.us/my.php?image=problem Addition et soustraction d'heures [ par CUTO ] Bonsoir, Je suis en train de developper un logiciel pour l'étude de duty des pilotes d'avion. Il est basée sur des caluculs d'addition et soustraction soustraction d'heure [ par snakeon ] Bonjour les amis,je ss un peu debutant en ce domaine la, j ai un time picker au format (hh,mm,ss) et je veux eliminer les secondes pour avoir le forma la soustraction d'heure en textbox [ par snakeon ] bonjour, comme je suis debutant en vb j'ai du mal a compléter cette opération, les information sont les suivantes:- heure1 (heure d'entrée) en textbox Addition et soustraction [ par balila ] balili Gestion des licences d'une application [ par rollslesage ] Bonjour à la communauté!Je viens vers vous pour solliciter de votre aide.Voila je developpe ne application en VB dans laquelle je doit prendre en comp Addition entre plusieurs TexBox [ par emilol ] Bonjour,je souhaite avoir un petit coup de main pour faire une addition entre des valeurs rentrées dans 10 textbox.Sauf que lorsque j'effectue le calc probleme d'addition [ par DjMedz ] bonsoir a tous, j'ai un petit probleme de calcul qui me rend dingue depuis 2 jours :(.. voila, jai 12 label avec chacun un chiffre dessus. ce que j'ai Propriétés des images JPEG [ par ouenghi ] Après avoir "travaillé" une image JPEG quand on enregistre les modifications  on perd les information concernant la prise de vue et en particulier la


Nos sponsors


Sondage...

Comparez les prix


iPod touch 3rd Generation (64 Go)
Entre 374€ et 379€

Visiter le guide achat

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

Photothèque

Photo Happy Bright Landscape WIth ButterfliesPhoto Green Energy Solutions With Light Bulb Morphed Into Landscape
Photo drapeau corse 

Visiter la photothèque
 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 1,045 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales
Outils Convertisseur VB/C# Snippets et scripts Outils en ligne La ToolBox
Communauté Programmation Photographie Technologie Newsgroups Emploi Forum Blogs
Guide d'achat Téléphonie mobile Image et son Informatique Bureautique Jeux vidéo
Logiciels Internet & Réseau Développement Market Android Jeux & Loisirs Graphisme Multimédia Sécurité Pilotes
Loisirs Cartes virtuelles Vidéos droles Jeux en ligne Géoguide AndroLib (Android Market)