Conversion d'une durée

**sleen** · 09/03/2008, 17h23

J'ai fait un code qui est le suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

aze est une Date = DateHeureDifférence(LIB_Libellé7,DateSys()+HeureSys())

Jusqu'ici tout va bien ( les format correspondent, ...)
Seul souci j'ai beau me casser la tête

Je n'arrive pas à obtenir le resultat de mon code en Centiéme de seconde (uniquement), J'ai essayé DateVersChaine() et encore d'autre mais cela ne me convient pas
Si la solution est simple tant mieux je me serai mal débrouillé

Encore merci pour votre aide.

**basam95** · 10/03/2008, 11h53

Salut,

avec ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
aze est une Chaîne= DateHeureDifférence(LIB_Libellé7,DateSys()+HeureSys())
Champ1 = Milieu(aze, 15, 2) + "centièmes de seconde")

la fonction DateHeureDifférence() retourne une chaine pas une date.

A+

**sleen** · 11/03/2008, 21h06

Bonjour !

Je vais poser ma question autrement,

J'ai une date d'inscription et la date (et l'heure) systéme

Je voudrai le nombre de seconde qui s'est écouler entre ses 2 dates pour qu'après
1 seconde = 1 point (pour le membre)

Si je me suis mal exprimé, faite moi le savoir...
Encore merci pour votre aide

PS : Le nombre de seconde ou de centiéme de seconde

**basam95** · 12/03/2008, 10h56

Salut,

En reprenant mon code modifié ça devrait fonctionner.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
TempPasse est une Durée
aze est une Chaîne
point est un réel // ou un entier
aze = DateHeureDifférence(LIB_Libellé7,DateSys()+HeureSys())
TempPasse= ChaîneVersDurée(aze, duréeCentième)
point = Val(TempPasse) / 100
// ou
point = Val(TempPassee..Seconde)

En espèrant que ça marche

A+

**sleen** · 13/03/2008, 20h16

Cela fonctionne assez bien
Mais :
Un membre inscrit depuis même pas 10min à déjà 1 900 000 point
Tandis qu'un membre inscrit depuis 5 jour n'a que 41 000 000 de points
( Bizare ) c'est environ ce que je veux

On va faire plus simple, Comment peut on trouver le nombre de seconde entre 2 date ?
aprés je me débrouillerai ( de multiplier les secondes par le cota de point )

Attention quand je dis le nombre de seconde
ce n'est pas de 1 à 59, mais de types entier (normal)
ex : Entre 13/03/08 19:26:42
Et 13/03/08 19:28:32
Il y a 110 secondes

merci tout de même.

**sleen** · 13/03/2008, 21h17

J'ai trouvé Un membre qui s'inscrit à 20heure comme la date d'incription est considéré comme être à minuit alors le membre à 20 000 000 de points
donc s'il s'inscrit à 23:59 cd'est tout benef...

**sleen** · 13/03/2008, 21h59

Désormais j'ai mis l'heure d'inscription, et j'ai un autre probléme car voici l'évolution des points

1 seconde ==> point = 1
32 secondes ==> point = 32
59 secondes ==> point = 59
62 secondes ==> point = 102 ( et ce n'est pas 102 que je veux mais 62 )

**Jannus** · 13/03/2008, 23h37

nbsec = (j*24*3600) + (H*3600) + (m*60) + s
c'est de l'algo élémentaire, aucun rapport avec Windev

**sleen** · 14/03/2008, 19h47

Voici mon code mais cela ne fonctionne pas :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
TempPasse est une Durée
aze est une Durée
Point est une chaîne
aze = DateHeureDifférence(SAI_Saisie5+SAI_Saisie6,DateSys()+HeureSys()+00)
j est une Durée = aze..Jour*24*3600
HH est une Durée = aze..Heure*3600
MM est une Durée = aze..Minute*60
s est une Durée = aze..Seconde*1
TempPasse = j+HH+MM+s
Point = TempPasse

**Jannus** · 14/03/2008, 20h08

Si tu prenais la peine de regarder l'aide des fonctions avant de les utiliser tu aurais vu que :

DateHeureDifférence () retrourne une chaîne, pas une durée
qu'il y a deux exemples pour faire ce que tu demandes

**sleen** · 14/03/2008, 20h14

Envoyé par Guardian

Si tu prenais la peine de regarder l'aide

c'est ce que j'ai fait, mais je n'ai pas trouvé la bonne fonction, ou alors je perd la boule...

**sleen** · 15/03/2008, 11h46

c'est 2 exemple ne sont fait qu'en durée !!!

ex: x jour x heures x minutes

tandis que ce que je veux ce sont le nombre de secondes entre 2 dates ( non jusqu'à 60 max, mais pouvant allez à l'infini...)

merci.

**Jannus** · 15/03/2008, 12h38

Je sais, mais tu as toutes les informations utiles pour faire ton code.
Calcul de la durée entre deux dates
Conversions jours, heures, minutes, secondes
Etc.

**sleen** · 15/03/2008, 12h58

la fonction de convertion n'est pas disponible pour les unités de temps
et lorsque que je le fais il me dis qu'il est interdit de convertir une durée en 1 numérique.

Convertit une valeur d'une unité dans une autre.

Les conversions possibles sont :

conversions d'angles
conversions de masses
conversions de température
conversions d'énergie
conversions de force
conversions de longueur
conversions de vitesses
conversions de surfaces (ou d'aires)
conversions de volumes
conversions de consommation
conversion de pression
conversion de puissance
conversion de magnétisme

**Jannus** · 15/03/2008, 13h41

Je te parle des exemples fournis dans l'aide de la fonction DateHeureDifférence ()

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
// Temps écoulé depuis le 01/01/1998 à 12h15
Diff est une chaîne
Diff = DateHeureDifférence ("199801011215", DateSys()+HeureSys())
// Affichage temps écoulé
Info("Temps écoulé : " + RC + ...
    Gauche(Diff, 8) + "jours" + RC + ...
    Milieu(Diff, 9, 2) + "heures" + RC + ...
    Milieu(Diff, 11, 2) + "minutes" + RC + ...
    Milieu(Diff, 13, 2) + "secondes" + RC + ...
    Milieu(Diff, 15, 2) + "centièmes de seconde")

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
// Pour remplir une durée à partir du résultat de DateHeureDifférence
Diff est une chaîne = DateHeureDifference ("199801011215", DateSys()+HeureSys())
// convertir la différence dans une variable de type durée
Durée est une Durée = ChaineVersDurée(Diff, duréeCentième )
// Affichage temps écoulé
Info("Temps écoulé : " + Durée..Jour + "jours" + RC + …
    Durée..Heure + "heures" + RC + ...
    Durée..Minute + "minutes" + RC + ...
    Durée..Seconde + "secondes" + RC + ...
    Durée..Milliseconde + "millièmes de seconde")

Avec ça tu dois pouvoir convertir en seconde la durée entre deux dates.

**sleen** · 15/03/2008, 21h14

Le resultat de ces codes seront sous la forme de JHHMMSSLLL
je n'aurai pas le nombre de seconde ???
ATTENTION, quand je dis le nombre de seconde je parle de 100s au lieu de 1m40s !!!

**Jannus** · 15/03/2008, 22h01

J'ai bien compris ce que vous voulez.
Il suffit d'adapter ce code simple à vos besoins.

Hors déclaration de variables, ça fait maximum 3 lignes de code pour convertir une différence entre deux date/heure en un nombre de secondes.

**sleen** · 15/03/2008, 22h08

D'accord mais je ne connais pas de fonction pour faire cela ???
Le code que vous m'aviez doner était intéressant mais il n'y avait pas moyen d'executer le calcul à cause des erreurs de types des variables

Envoyé par Guardian

nbsec = (j*24*3600) + (H*3600) + (m*60) + s
c'est de l'algo élémentaire, aucun rapport avec Windev