* Return a date in a universal format * expD1 Date * expL1 Pass .T. when generating for a backend FUNCTION DateUniversal PARAMETERS tdDate,tlBackend LOCAL lcDate lcDate='' * Client server IF tlBackend lcDate=lcDate+"'" lcDate=lcDate+PADL(MONTH(tdDate),2,'0')+'/'+PADL(DAY(tdDate),2,'0')+'/'+ALLTRIM(STR(YEAR(tdDate))) lcDate=lcDate+' '+PADL(HOUR(tdDate),2,'0')+':'+PADL(MINUTE(tdDate),2,'0')+':'+PADL(SEC(tdDate),2,'0') ELSE lcDate=lcDate+'{^' lcDate=lcDate+DTOS(tdDate) * If we have a date time IF TYPE('tdDate')='T' lcDate=lcDate+' '+PADL(HOUR(tdDate),2,'0')+':'+PADL(MINUTE(tdDate),2,'0')+':'+PADL(SEC(tdDate),2,'0') ENDIF ENDIF * Client server IF tlBackend lcDate=lcDate+"'" ELSE lcDate=lcDate+'}' ENDIF RETURN lcDate