Subtracting Between Dates...

[awharris]

Hello all,

I am desperately trying to get a program working, but cannot get it to subtract between two dates using the DateTimePicker tool. It is a Uni assignment. The user has to enter two dates, one is subtracted from the other and then the user clicks on a button to Calculate. The code in question is as follows:

Dim Calc_CurrentDateText As String
Dim Calc_DateJoinedText As String
Calc_CurrentDateText = Calc_CurrentDatePicker.Value.Date
Calc_DateJoinedText = Calc_DateJoinedPicker.Value.Date

ReckonableService = Calc_CurrentDateText - Calc_DateJoinedText

I have tried setting the 'Dim Calc_CurrentDateText as String' to Date, Double, etc, but nothing seems to work.

Any help would be appreciated.

Thanks in advance.

Adrian

[scuzymoto]

Use the datediff function, it does all the work for you...

here is a sample right from microsoft...

DateDiff(DateInterval.Day, CDate("01/01/2003"),Cdate("01/01/2004") )

The results of the line above would be 365.

You could also do it like this...

DateDiff(DateInterval.Month, CDate("01/01/2003"),Cdate("01/01/2004") )

The result this time would be 12, (12 months difference in the dates)

[awharris]

Thanks so much for your help, it works a treat