用FOR循环 循环条件是时间date

请问下我想做一个循环条件，这个循环条件的参数是两个DTPicker的值
我想写的是
dt= DTPicker2.value-DTPicker1.value
for DTPicker1.value to dateadd(d,dt,DTPicker1.value)
...........
...........
next

但是我在运行的时候提示溢出，这个问题应该怎么解决呢？ VBA --------------------编程问答-------------------- for的格式写错了

dim i
for i = DTPick1.Value to dateadd(...)
' to do sth here
next i --------------------编程问答-------------------- Dim i As Date

For i = DTPicker1.value to DTPicker1.value + dt

日期时间类型是 Double 数字，整数部分就是天数。 --------------------编程问答-------------------- 同1樓
DTPicker1.value是一個值而不是變量，無法賦值循環，所以要賦值給變量i進行循環

补充：VB ,  VBA