INFO: OLE Servers Return Date Calculation Results as Seconds (185859)

MORE INFORMATION

The Visual FoxPro OLE servers, by default, convert the Date data type to DateTime. If you try to subtract two datetime() variables, within an OLE server, the result is returned as seconds (n * 86400). You may use the TTOD() function if you need the number returned as days.

Steps to Reproduce Behavior

1. Using Visual FoxPro, build an OLE DLL using the following code and name it DateFunc:

         DEFINE CLASS DateFunc AS custom OLEPUBLIC
   
            Name = "DateFunc"
   
            PROCEDURE DifferDate
               PARAMETERS BDate, EDate
               x=EDate-BDate
               RETURN INT(x)
           ENDPROC
   
         ENDDEFINE

2. After building the OLE DLL, issue the following commands in the Command window:

         ox=CREATEOBJECT("DateFunc.DateFunc")
         ? ox.Differdate({01/01/98},{01/05/98})
   						

   Note that instead of returning four days, 345600 (4*86400) seconds is returned.
3. To return four days from the OLE DLL, replace the commands in the DifferDate procedure as shown below:

         PROCEDURE DifferDate
            PARAMETERS BDate, EDate
            x=ttod(EDate)-ttod(BDate)
            RETURN INT(x)
         ENDPROC