déffirence entre deux temps

Question

qui peu me faire un code source pour d&#233;ffirence entre deux temps en vb          12:00 - 13:01 = 01:01             ou m'&#233;xpl&#233;quer par d&#233;tay et je suis d&#233;but 
mer&#231;i &#224; l'avence

cs_hassen · Answer

tu peut utiliser la fonction datediff
datediff('n',"04/09/2005 22:51","04/09/2005 22:59")=8


ici j'ai demander la differance entre les date en nombre de minute ( 'n' )

Hassen TUNISIE

Gobillot · Answer

if suffit de faire la soustraction.

mais attention r&#233;sultat limit&#233; &#224; 24 heures.







    Dim d1 As Date

    Dim d2 As Date

    

    d1 = "12:00"

    d2 = "13:01"

    

    If d2 > d1 Then

       MsgBox CDate(d2 - d1)

       Else

       MsgBox CDate(d1 - d2)

       End If


Daniel

PCPT · Answer

bon, bah on va faire une solution diff&#233;rente

'variables
Dim TimeD As String, TimeDh As Integer, TimeDm As Integer
Dim TimeF As String, TimeFh As Integer, TimeFm As Integer
Dim MinsDiff As Integer, TimeDiffs As String


'heures voulues
TimeD = "12:00"
TimeF = "13:01"


'd&#233;coupe heures et minutes en Integer
TimeDh = Mid(TimeD, 1, 2)
TimeDm = Mid(TimeD, 4, 2)
TimeFh = Mid(TimeF, 1, 2)
TimeFm = Mid(TimeF, 4, 2)


'diff&#233;rence en minutes
MinsDiff = ((TimeFh * 60) + TimeFm) - ((TimeDh * 60) + TimeDm)


'affichage du r&#233;sultat (facultatif)
MsgBox MinsDiff Mod 60 & " heure(s) et " & Int(MinsDiff / 60) & " minute(s)"


'enregistrement et affichage du r&#233;sultat dans le format demand&#233;
TimeDiffs = Format(MinsDiff Mod 60 & ":" & Int(MinsDiff / 60), "HH:MM")
MsgBox TimeDiffs

PCPT

mags21000 · Answer

mer&#231;i pcpt &#231;a ce que je veux mais &#231;a marche pas bien con j'ai changer la dat 13:01 par 14:00 il me donne  12:00 - 14:00 = 00:02 
ok c un bonne travail mais il faux le coreger svp j'atend ton correction mer&#231;i

Gobillot · Answer

chez moi &#231;a marche.









Private Sub Command1_Click()

    Dim d1 As Date

    Dim d2 As Date

   

    d1 = "12:00"

    d2 = "14:00"

   

    If d2 > d1 Then

       MsgBox Format$(d2 - d1, "hh:nn")

       Else

       MsgBox Format$(d1 - d2, "hh:nn")

       End If

End Sub


Daniel

PCPT · Answer

en effet, j'ai voulu aler un peu trop vite

'variables
Dim TimeD As String, TimeDh As Integer, TimeDm As Integer 
Dim TimeF As String, TimeFh As Integer, TimeFm As Integer 
Dim MinsDiff As Integer, TimeDiffs As String 

'heures voulues
TimeD =  "12:00" 
TimeF = "14:00" 

'd&#233;coupe heures et minutes en Integer
TimeDh =  Mid (TimeD, 1, 2) 
TimeDm  = Mid(TimeD, 4, 2) 
TimeFh =   Mid (TimeF, 1, 2) 
TimeFm  = Mid(TimeF, 4, 2) 

'diff&#233;rence en minutes
MinsDiff =  (TimeFh * 60) + TimeFm) - (TimeDh * 60) + TimeDm) 

'enregistrement et affichage du r&#233;sultat dans le format demand&#233;
If MinsDiff Mod 60 <> 0 Then 
    TimeDiffs =  Format (Int(MinsDiff / 60) & ":" & MinsDiff Mod 60, "HH:MM") 
Else 
    TimeDiffs  = Format(MinsDiff / 60 & ":00", "HH:MM") 
End If 

MsgBox TimeDiffs 

PCPT

Gobillot · Answer

avec possibilit&#233; de passer minuit









    Dim d1 As Date

    Dim d2 As Date

    Dim d  As Date

   

' exemple:

' de 23 heures &#224; 1 heure du matin

' il y a 2 heures et non pas 22 heures

    d1 = "23:00"

    d2 = "01:00"

   

    d = d2 - d1

    If d < 0 Then d = d + 1

    MsgBox Format$(d, "hh:nn")






Daniel

mags21000 · Answer

gobillot ca marche command convertir les heures en minutes

mags21000 · Answer

convertir ex 01:01 = 61

Gobillot · Answer

je te donne 3 m&#233;thodes diff&#233;rentes









    Dim temps As String

    

    temps = "01:01"

    

' avec traitement par cha&#238;ne si temps est une cha&#238;ne

    MsgBox Left$(temps, 2) * 60 + Right$(temps, 2)



'avec traitement par Date

    MsgBox Hour(temps) * 60 + Minute(temps)

    MsgBox DateDiff("n", 0, temps)


Daniel

mags21000 · Answer

commend arrendire 123.49 en 123.00
                           et 123.51 en 124.00

PCPT · Answer

Private Sub Form_Load() 'MSDN MyDouble1 = 123.49 MyDouble2 = 123.51 MsgBox CInt(MyDouble1) & " " & CInt(MyDouble2) End Sub Coloration syntaxique automatique [AFCK] PCPT

Gobillot · Answer

si tu l'as en numérique: Dim nombre As Double 'exemple nombre = 123.49 'faut prendre la partie entière nombre = Int(nombre) 'pour l'affichage ce sera 123,00 si la virgule est le signe décimal MsgBox Format$(nombre, "#0.00") si tu l'as en chaîne: Dim Str As String 'exemple Str = "123.51" 'soit par la méthode numérique MsgBox Format$(Int(Val(Str)), "#0.00") ' ou par la méthode chaîne 'on remplace les 2 derniers caractères Mid$(Str, Len(Str) - 1) = "00" 'pas de problème pour l'affichage MsgBox Str Remarques: Str = "123.51" 'conversion numérique se plante (toujours si virgule est le signe décimal) MsgBox ~~CDbl(Str)~~ ' tandis que Val() marche très bien MsgBox Val(Str) Daniel

mags21000 · Answer

ok comment faire un minuteur
et comment faire un crono

PCPT · Answer

je m'arr&#234;te l&#224;. j'ai ma dose.
aucun merci,
aucun "oui, je garde cette solution qui me parra&#238; la mieux adapt&#233;e"
aucun "vous fa&#238;tes des efforts d'orthographe, je vais en faire autant"
aucun "svp"

allez, basta !
bon courage pour faire (ou faire faire???) ton appli

ps : gobillot > pas de d&#233;claration en VBA

++
PCPT

Gobillot · Answer

pour faire un minuteur, un chrono tu met un Timer.


si d'autres questions poses les sur un nouveau Post





Ps: j'ai VB6 c'est pas &#224; moi d'adapter,


     pour Vba enl&#232;ves les "As bidule"






patience et longueur de temps font plus que force ni que rage
  
               
                   
           
                          
[Jean de La fontaine]


Daniel

PCPT · Answer

ps : c'&#233;tait pour info....
nb : j'ai ma dose, mais pas encore enrag&#233;. remarque, il n'y a bien que quand une personne est morte qu'on la lit. je vais donc m'arr&#234;ter l&#224;....
PCPT

Déffirence entre deux temps

17 réponses

Discussions similaires