Discussion :

[monopole]

bonjour,
je voudrais calculer la diference de temps en seconde, ça marche la methose mais il y a un truc de type de date
qui me géne, bon voila mon script:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Dim sTmp2 As String
  req2 = "select * from pause_ta where  pa_date = '" & Date & "' and per_id='" & perid.Caption & "' and pa_heure_logout=''"
vrs2.Open req2, vcon
 
Tempss = vrs2("pa_heure_login")
Tempss2 = Time
Dim psomme As Date
    psomme = Tempss2 - Tempss
 
    sTmp2 = psomme
    Dim aBuffer() As String, lTmp2 As Long
    aBuffer = Split(sTmp2, ":")
    lTmp2 = (Val(aBuffer(0)) * 3600) + (Val(aBuffer(1)) * 60) + (Val(aBuffer(2)))
    Erase aBuffer
 
Dim timeP As Long
timeP = lTmp2

je cherche le "Tempss" depuis la base de donnée mais le truc c est qu il est sous forme de 01/01/1900 hh:mm:ss ,
et puis j'ai le "Tempss2" qui egale a Time SOUS FORME DE hh:mm:ss alors le resultat ( psomme = Tempss2 - Tempss )
né pas réglo car la presentation de ce resultat et 15/08/2006 hh:mm:ss - hh:mm:ss
alors que moi j en ai besoin que de hh:mm:ss sans prendre en consideration le jour..

[SfJ5Rpw8]

pour extraire heure voir timeValue...

Code :

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

1
2
3
4
5
 
Dim D1 as Date
D1 = TimeValue(Tempss)
 
NbSecondes = DateDiff("s", d1, time)