Private Sub Form_Current()
If IsNull(txtAdjTimeIn) And Not IsNull(txtTimeIn) Then
Dim t1 As Date
Dim t2 As Date
t2 = DateValue([txtTimeIn]) + TimeSerial(Hour([txtTimeIn]), Minute([txtTimeIn]), 0)
t1 = TimeSerial(0, 15, 0)
If Minute(t2) = 30 Or Minute(t2) = 15 Or Minute(t2) = 0 Or Minute(t2) = 45 Then
[txtAdjTimeIn] = t2
Else
[txtAdjTimeIn] = RoundUpToNearestDate(t2, t1)
End If
'txtAdjTimeIm = roundDate(txtTimeIn, 3)
End If
If IsNull(txtAdjTimeOut) And Not IsNull(txtTimeOut) Then
Dim t3 As Date
Dim t4 As Date
t4 = DateValue([txtTimeOut]) + TimeSerial(Hour([txtTimeOut]), Minute([txtTimeOut]), 0)
t3 = TimeSerial(0, 15, 0)
[txtAdjTimeOut] = RoundDnToNearestDate(t4, t3)
'txtAdjTimeIm = roundDate(txtTimeIn, 3)
End If
End Sub