1. Bonjour tout le monde ! Veillez consulter la Politique de forum pour comprendre nos règles, Merci a vous !
    Rejeter la notice

Cumul heures

Discussion dans 'Windev' créé par gapplicat, Mar 22, 2018.

  1. gapplicat

    gapplicat Well-Known Member
    MEMBRE WX

    Inscrit:
    Mar 8, 2018
    Messages:
    399
    J'aime reçus:
    708
    Salut à tous, je cherche une procédure "magique" qui me cumulerais mes heures...

    Par exemple : CumulHeures(17:22,18:33,59:00,127:22)

    le résultat serai de la forme 128:44 par exemple

    Quelqu'un aurais cela en stock ?

    j'ai trouvé ca mais c'est confus


    // Simulation d'une durée de base : 86461s = 1j 0h 1m 1 s
    nDuréeDeBase est un entier = 86461

    // Simulation d'une ligne de requete : 3600s = 1heure
    nDuréeAadditionner est un entier = 3600

    // J'ai une durée
    duMaDurée est une Durée = nDuréeDeBase*1000 // les durée sont precises a la ms

    Info(duMaDurée) // Affiche : 1000101000 >> 1j 00h 01m 01s 000ms

    // Voici une addition
    duMaDurée..Seconde = nDuréeAadditionner

    Info(duMaDurée) // Affiche : 1010101000 >> 1j 01h 01m 01s 000ms

    // Comme vous le voyez, les 3600s ont en fait incrémentée la durée de : 1 heure

    // Enfin : la fonction DuréeVersChaine() et/ou les masques de saisie dans
    // les champs permettent de gérer les affichages souhaités

    // J'espère que cette fois tout est clair
     
    Tags:
    walki talki apprécie ceci.
  2. FreudWD

    FreudWD Well-Known Member
    MEMBRE WX WXG 21

    Inscrit:
    Jan 22, 2018
    Messages:
    200
    J'aime reçus:
    374
    PROCEDURE CumulHeures(*)

    nHeures, nMinutes sont des entiers

    POUR nPos = 1 _A_ MesParamètres..Occurrence
    nHeures += Val(ExtraitChaîne(MesParamètres[nPos], 1, ":"))
    nMinutes += Val(ExtraitChaîne(MesParamètres[nPos], 2, ":"))
    FIN

    nHeures += nMinutes / 60
    nMinutes = modulo(nMinutes, 60)

    RENVOYER nHeures + ":" + nMinutes

    ------------------

    Info(CumulHeures("17:22","18:33","59:00","127:22"))
     
  3. gapplicat

    gapplicat Well-Known Member
    MEMBRE WX

    Inscrit:
    Mar 8, 2018
    Messages:
    399
    J'aime reçus:
    708
    wow. On peut faire ça.
    Moi je dis "Tu es un maitre"

    Merci
    +1

    Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

     
  4. bidon

    bidon New Member

    Inscrit:
    Jan 14, 2018
    Messages:
    21
    J'aime reçus:
    12
    Excellent
     
  5. Kill3rbko

    Kill3rbko Member

    Inscrit:
    Mar 8, 2018
    Messages:
    58
    J'aime reçus:
    21
    Best of the best ! +1
     

Partager cette page

Chargement...