[VBA] variable et heure absolue

variable et heure absolue [VBA] - VB/VBA/VBS - Programmation

Marsh Posté le 26-06-2007 à 19:03:16    

bonjour
 
j'ai (encore) un soucis en VBA.
 
je fait un petit traitement de données, en lisant une cellule dans une page, et la recopiant avec d'autre données dans une autre page (données epurer et preparer)
seul soucis, un des champ de la première page est en heure, le problème c'est pas tellement les heures, mais le fait que j'ai des heures superieur a 24, cad que je peut avoir comme donnée 01:54:02 comme je peut avoir 640:02:78.
quand l'heure est en standard (inferieur a 24) j'arrive a le retrouver en formatant ma variable, mais quand c'est superieur a 24, ca marche pas, il me le donne avec une date en plus.
 
est il possible en vba de recuperer mes heures mais avec des heures superieur a 24 ?
 
Merci.

Reply

Marsh Posté le 26-06-2007 à 19:03:16   

Reply

Marsh Posté le 26-06-2007 à 22:23:46    

et bien, j'ai du poser une sacré colle.

Reply

Marsh Posté le 26-06-2007 à 22:25:37    

avec les modulo peut être ?

Reply

Marsh Posté le 26-06-2007 à 23:19:11    

euh cad ?

Reply

Marsh Posté le 26-06-2007 à 23:23:00    

Sous forme de fonction personnalisée, donc à placer dans un module
et à adapter et tester


Option Explicit
 
Function RecupHeures(ByVal c As Range) As String
Dim Jour As Integer
Dim Heures As Integer
Dim Minutes As Integer
Dim Secondes As Integer
 
    Jour = Int(c)
    Heures = Int((c - Jour) * 24)
    Minutes = Int(((c - Jour) * 24 - Heures) * 60)
    Secondes = Int((((c - Jour) * 24 - Heures) * 60 - Minutes) * 60)
 
    RecupHeures = CStr(Jour) & "j " & CStr(Heures) & "h " & CStr(Minutes) & "mn " & CStr(Secondes) & "s"
End Function

Reply

Marsh Posté le 26-06-2007 à 23:42:16    

je pensais aussi a un truc du genre, mais si ya moyen de faire plus simple c'est pas plus mal, sinon tand pis, je passerais par cette methode.

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed