dim d1 as date
d1=#2002-11-01 8:30:10#
dim d2 as date
d2=d1
d2=d2-1/24/60/60 *5
print d2
d2=d2-1/24/60/60 *5
print d2
d2=d2-1/24/60/60 *5
print d2
d1=#2002-11-01 8:30:10#
dim d2 as date
d2=d1
d2=d2-1/24/60/60 *5
print d2
d2=d2-1/24/60/60 *5
print d2
d2=d2-1/24/60/60 *5
print d2
dim mydate as date
dim olddate as dateolddate = "2002-11-01 8:30:10"
for i=1 to 100
mydate = dateadd("s",olddate,-5)
msgbox mydate
next i