perhaps try the

VB Code:
  1. Dim wys As Long = DateDiff(DateInterval.WeekOfYear, DateTimePicker1.Value, DateTimePicker2.Value)

use the value of your dtps... hope this helps...