Calculating number of days from DatePicker

[iagina]

Halo,

My application captures data using date pickers. Items are taken and returned after certain intervals.
I have code that should change the date in DTPicker2 by 21 days if DTPicker1 has been changed.

Private Sub   
  Dim d As String, dtp As Date
  dtp=DateAdd("d", 21, Now)
  DTPicker2.Value = dtp
End Sub

ONE: This code at times simply changes the value of the date bot not the month, is there a better code than this(for achieving my goal of adding 21 days to the days given)? I searched this forum and tried all the proposed ones and even tried modifying them but none seems to be working for me.

TWO: Items should be returned on or before the DTPicker2.Value has elapsed. I want to querry the database to know what items have not been returned as at today... am stuck. Any ideas out there on how to calculate the duration an item has been out?

[dglienna]

You are adding 21 days to TODAY, not the date picked day.

[GremlinSA]

when querying a database I usually add one day because in date terms, if you set MyDate = "4/4/2011" It's Set to '4/4/2011 12:00am' or Midnight at the start of the day..

When Querying a DB on Day time '4/4/2011 8:00am' is > Mydate and not < Mydate...

[iagina]

You are adding 21 days to TODAY, not the date picked day.

So where do I set it to pick the date on the DTPicker1? Do I have an extra line with

myPickDate=DTPicker1.Value

[iagina]

Thanks for the light bulb. This is what I did and so far it counts 21 days fine.

Private Sub DTPicker1_Change()
  Dim d As String, dtp As Date, myPickDate As Date
  myPickDate = DTPicker1.Value
  dtp = DateAdd("d", 21, myPickDate)
  DTPicker2.Value = dtp
End Sub