[tendaimare]

i have this function and i want it 2 calculate the difference between two dates and it is suposed to return the difference in days but it it just not working

Sub LeaveDays()
        Dim LeavePeriod As Integer
        Dim dtpPeriodTo, dtpPeriodFrom As Date
        LeavePeriod = dtpPeriodTo.Subtract(dtpPeriodFrom).Days
        txtPeriod.Text = LeavePeriod.ToString
    End Sub

[_HAWK_]

Your dates don't look like they have any values. A function would work here.

Private Function DateDifference(ByVal startDate As Date, ByVal endDate As Date) As String
  Return endDate.Subtract(startDate).Days.ToString()
End Function

textbox1.Text = DateDifference(<date1>, <date2>)

[tendaimare]

hawkvalley1, on 18 December 2010 - 04:55 AM, said:

Your dates don't look like they have any values. A function would work here.

Private Function DateDifference(ByVal startDate As Date, ByVal endDate As Date) As String
  Return endDate.Subtract(startDate).Days.ToString()
End Function

textbox1.Text = DateDifference(<date1>, <date2>)

Now I am getting vexed becoz i dont know how to set the format as a proper date.

[_HAWK_]

Well it depends on your input. Are you typing a date in a textbox? Something like 12/18/2011 or 12/18/2010 20:00 and many other formats.

textbox1.Text = DateDifference(Date.Parse(textbox2.text), Date.Parse(textbox3.Text))

[tendaimare]

hawkvalley1, on 18 December 2010 - 09:47 AM, said:

Well it depends on your input. Are you typing a date in a textbox? Something like 12/18/2011 or 12/18/2010 20:00 and many other formats.

textbox1.Text = DateDifference(Date.Parse(textbox2.text), Date.Parse(textbox3.Text))

i am inputting using a date picker

[CharlieMay]

Then instead of Textbox2.text and Textbox3.text, you would pass your datetimepicker1.value.date and datetime2.value.date to 's function.