>*** total seconds >lnTotalSecs = EVALUATE(THIS.cToDateTimeField) - EVALUATE(THIS.cFromDateTimeField) > >*** div. by one minute >WAIT WINDOW "4a" + STR(lntotalsecs) >lnMins = INT(lnTotalSecs / (1 * 60)) >lnTotalSecs = lnTotalSecs - (lnMins * 60) >WAIT WINDOW "4b" + STR(lnmins) + STR(lntotalsecs) > >*** div. by one second >lnSecs = INT(lnTotalSecs / (1)) >lnTotalSecs = lnTotalSecs - (lnSecs) >WAIT WINDOW "5" + STR(lnsecs) + STR(lntotalsecs) >>
SET DATE DMY cDate1 = [15/08/2007 08:45:00 AM] cDate2 = [15/08/2007 09:15:00 AM] *** total seconds lnTotalSecs = ctot(cDate2) - ctot(cDate1) ?CTOT(cDate2) ?CTOT(cDate1) *** div. by one minute WAIT WINDOW "4a" + STR(lntotalsecs) lnMins = INT(lnTotalSecs / (1 * 60)) lnTotalSecs = lnTotalSecs - (lnMins * 60) WAIT WINDOW "4b" + STR(lnmins) + STR(lntotalsecs) *** div. by one second lnSecs = INT(lnTotalSecs / (1)) lnTotalSecs = lnTotalSecs - (lnSecs) WAIT WINDOW "5" + STR(lnsecs) + STR(lntotalsecs) SET STRICTDATE TO 0 tDate1 = dateTIME(2007,8,15,8,45,0) &&{15/08/2007 08:45:00 AM} tDate2 = dateTIME(2007,8,15,9,15,0)&&{15/08/2007 09:15:00 AM} lnTotalSecs = tDate2 - tDate1 *** div. by one minute WAIT WINDOW "4a" + STR(lntotalsecs) lnMins = INT(lnTotalSecs / (1 * 60)) lnTotalSecs = lnTotalSecs - (lnMins * 60) WAIT WINDOW "4b" + STR(lnmins) + STR(lntotalsecs) *** div. by one second lnSecs = INT(lnTotalSecs / (1)) lnTotalSecs = lnTotalSecs - (lnSecs) WAIT WINDOW "5" + STR(lnsecs) + STR(lntotalsecs)So it doesn't depend on whether this is a datetime variable or a character variable.