lparameter cDate for i = 1 to 7 && days of week * your code passed cDate = ctod('1/1/08') * this has a very bad result (AND no error reported) if cDate is a DateTime data type. ? cDate + i endfor
*oDateBug = createobject('DateBug.DateBug') && use this when testing the DLL. oDateBug = createobject('DateBug') oDateBug.DateProperty=ctod('3/3/08') wait window oDateBug.GetDateProperty() oDateBug = null release oDateBug define class DateBug as Session olepublic DateProperty = ctod('') procedure GetDateProperty() return "Type: "+type('this.DateProperty')+" Value:"+transform(this.DateProperty) endproc enddefine1. Run the program as is from VFP. The correct and expected datatype is returned.