# Date calculations

Office for Mere Mortals
Your beginners guide to the secrets of Microsoft Office
Give it a try. You can unsubscribe at any time.

Q:  Martin writes:  I have these records written in two lines (dates, without separation in the European style (1030))

051007

051107

I then want to take the dates and subtract the dates from each other and get how much time has passed. An easy task with conform dates but this puzzles me.

Private Sub Report_Open(Cancel As Integer)

Dim strDte1 As String

Dim strDte2 As String

strDte1 = Mid(Me![txtFraDatoTilDato], 1, 2) & “-” _

& Mid(Me![txtFraDatoTilDato], 3, 2) & “-” _

Debug.Print “Valid dato? ” & strDte1

strDte2 = Mid(Me![txtFraDatoTilDato], 7, 2) _

& “-” & Mid(Me![txtFraDatoTilDato], 9, 2) _

& “-” & Mid(Me![txtFraDatoTilDato], 11, 2)

Debug.Print “Valid dato? ” & strDte2

Me![txtCalTime] = strDte2 – strDte1

Else

Me![txtCalTime] = ” “

End If

End Sub

A:  The problem is that you are working with strings — convert them into dates using the CDate function, then you can add or subtract, either with + and – or (more accurately) using the DateAdd function.

### Want More?

Office Watch has the latest news and tips about Microsoft Office.  Delivered once a week.