The following code solves my date issue based on time, 7:00 AM to 06:59(Day+1).
Option Compare Database
Function Calcul_Date_mi()
Dim date_m As Variant
Dim nn As Variant
nn = Time
If nn >= TimeSerial(0, 0, 0) And nn < TimeSerial(7, 0, 0) Then
date_m = Date - 1
Else
date_m = Date...