Discussion :

[mrkinfo]

voila je ve que une journée de travail commence a 4h du matin mais entre minuit et 4h du matin je la considere comme la date d'hier voila mon code

Code :

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

1
2
3
4
5
6
7
8
 
If 0 <= DateTime.Time < 4 Then
MsgBox "" & DateTime.Date - 1
Else
If 4 <= DateTime.Time < 0 Then
MsgBox "" & DateTime.Date
End If
End If

ya kkun qui peut me donner son avis , toutes autre méthode sont accepté
merci d'avance

veuillez notez que lorque g fé l'insertion dans la base de donnée la date est errone et ne correspond pas a la date recuperer par la fonction voic le code

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
 Sub journee()
Dim strdate As String
Dim strinsert As String
strdate = " select * from journee where date_jour =" & datejourne
Set adodate = New ADODB.Recordset
Set adodate = cnnbase.Execute(strdate)
 
If adodate.RecordCount = 0 Then
 
strinsert = " insert into journee(date_jour) values(" & datejourne & ")"
cnnbase.Execute (strinsert)
Else
 
.................
End If
End Sub

[sovo]

Voila ce que je te propose:

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Dim Heure as integer
 
Heure = Hour(DateTime.Time)
 
If 0 <= Heure and Heure < 4 Then
      MsgBox "" & DateTime.Date - 1
ElseIf 4 <= Heure and Heure < 24 Then
MsgBox "" & DateTime.Date
End If

En ce qui concerne ton DateTime je ne sais pas de quel type il est mais pour faire l'addition/soustraction de date la fonction DateDiff est plus approprie.