DateDiff Function

[DumStudent]

I need help with what to write for my DateDiff Function to work properly between two datetimepicker boxes to give 'days' results. This is what I have and it works except I can't have the intDate1 to be specific and intDate2 as Now. I need to make it work so when the second date is chosen it gives the days between current date in intDate1 and date selected in intDate2.

Help Please??

  Dim intDiff As Integer
        Dim intDate1 As String
        Dim intDate2 As String
        intDate1 = "01/01/2007"
        intDate2 = "Now"
        intDiff = DateDiff("d", "01/01/2007", Now())
        TxtBox1Days.Text = intDiff

[samycbe]

Dear Friend.

Step1 : Create 1 datepicker and one 1 command button in a form
step 2 : select any date in datepicker1
step 3 : write following code in command1_click

Dim a As Double
a = DateDiff("d", DTPicker1, Date)
MsgBox a

is it ok

samy

[PadminiJ]

Use CDate(string) function to convert string to date.

Padmini.

[vijaydiwakar]

I need help with what to write for my DateDiff Function to work properly between two datetimepicker boxes to give 'days' results. This is what I have and it works except I can't have the intDate1 to be specific and intDate2 as Now. I need to make it work so when the second date is chosen it gives the days between current date in intDate1 and date selected in intDate2.

Help Please??

  Dim intDiff As Integer
        Dim intDate1 As String
        Dim intDate2 As String
        intDate1 = "01/01/2007"
        intDate2 = "Now"
        intDiff = DateDiff("d", "01/01/2007", Now())
        TxtBox1Days.Text = intDiff

just try this with one change as

 
Dim intDiff As Integer
dim intDiff%
        intDiff = DateDiff("d", dtp1.value, dtp2.value)
        TxtBox1Days.Text = intDiff