Discussion :

[kgb1917]

Bonjour,

j'aimerai savoir si qqun aurait la syntaxe pour inclure les millisecondes dans un champ au format date ?

en somme, quelque chose qui pourrait me permettre de passer de ce format 61452 à celui-ci 00:01:01:452

L'objectif étant de réaliser un graphique (courbe) dans un état à partir de ces données.

Merci par avance

[kgb1917]

Re,

Je complète ma question. Est-il possible qu’après avoir rentré mes données dans le premier format (61452), celles-ci soient sauvegardées dans le 2ème format (00:01:01:452) ou dans un autre champ, de façon à ce que ces dernières soient contenues dans la requete source du graphique ?
Pour l’instant, j’arrive bien à faire le graph mais avec les données issues du 1er format, donc pas très pratique.

Merci par avance

[Alexandre Sahli]

c'est certainement quelque chose du genre

Code :

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

1
2
3
4
5
6
Public Function TempsNbEnTexte(TempsNb As Double)
    Dim Heure As Long, Minute As Long, Milliemme As Long
    Milliemme = Clng(TempsNb -(Int(TempsNb/1000)*1000))
    Heure = CLng(Int(TempsNb / 60000))
    Minute = CLng(Int(TempsNb / 1000)- (Heure * 60))
    TempsNbEnTexte = Format(Heure, "00") & ":" & Format(Minute, "00") & ":" & Format(Milliemme, "00") End Function

pour autant que ton chiffre soit de type 61 (minute et heure) et 452 les millisecondes

bonne chance

[random]

on peut procéder ainsi
passage au format standard

Code :

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

1
2
3
4
 
Function convertheur(x As Long) As Date
convertheur = x / 86400000
End Function

format milliseconde

Code :

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

1
2
3
4
5
6
7
 
Function afficheur(x As Date) As String
Dim z As String
z = Format(x, "hh:mm:ss")
z = z & ":" & Round((((x * 86400) - Int(x * 86400))) * 1000, 0)
afficheur = z
End Function

ici un beau afficheur(convertheur(61452)) serait jubilatoire
une fonction de retour à la normale

Code :

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

1
2
3
4
5
6
 
Function monstandard(x As Date) As Long
Dim v As Variant
v = CDbl(x) * 86400000
monstandard = CLng(v)
End Function

[kgb1917]

Merci pour ta réponse Alex.

452 sont bien les millièmes, mais 61000 millièmes, ça fait 1 minute et 1 seconde.
Je vais testé mais a priori, il manquerai pas les secondes dans la fonction ?

[Alexandre Sahli]

oui tu as raison

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Public Function TempsNbEnTexte(TempsNb As Double)
    Dim Heure As Long, Minute As Long, Seconde As Long, Miliemme As Long
 
    Heure = CLng(Int(TempsNb / 3600000))
    Minute = CLng(Int((TempsNb - Heure * 3600000) / 60000))
    Seconde = CLng(Int((TempsNb - Heure * 3600000 - Minute * 60000) / 1000))
    Milliemme = CLng(TempsNb - Heure * 3600000 - Minute * 60000 - Seconde * 1000)
    TempsNbEnTexte = Format(Heure, "00") & ":" & Format(Minute, "00") & ":" & Format(Seconde, "00") & ":" & Format(Milliemme , "000")
End Function

Essaie celà je n'ai pas testé car j'ai une fonction identique pour les centièmes j'ai rajouté un 0 partout et çà devrait aller

[kgb1917]

Bonjour,

Je reviens vers vous parce que je coince pour alimenter le graphique de mon état. Je pense que cela viens du format des données de la requête en rowsource du graphe.
A la base, je récupère des nombres (mettons dans Champ1). Dans la table (mettons Table1), ces données sont de type Numérique. Avec la fonction d’Alexandre Sahli, je parviens bien à obtenir le format d’affichage souhaité dans Champ2. Par contre, et c’est ici que je coince depuis un moment, je ne parviens pas à obtenir de format Date sur l’axe des ordonnées du graphe qui prennent en compte les millisecondes.

Auriez vous une idée pour résoudre mon pb ?

Par avance Merci