Date problem

HEllo,

i encounter a problem with date formatting in 7,6 version

in the code below

 CInt(Day(dtmTempDate))

i think is connected with code below

 If strTimeOffSet = "+" Then
             dtmTempDate = DateAdd("h", + intTimeOffSet, dtmDate)
        ElseIf strTimeOffSet = "-" Then
             dtmTempDate = DateAdd("h", - intTimeOffSet, dtmDate)
        End If

because if i change dtmdate with command DATE i have not error (but is notcorrect to change in dtmDate in DATE)

the message i receive is, if i remember correctly,

Type Mismatch Cint(Day(dtmTempDate))

How can i change?