CLOSE all USE curbilldata && Open table. gnFieldcount = AFIELDS(gaMyArray) && Create array. clos data CREATE CURSOR newcurbilldata FROM ARRAY gaMyArray ***CREATE TABLE newcurbilldata FROM ARRAY gaMyArray&&¬ work?? *MODIFY stru sele 0 use curbilldata scan scatter to memvar insert into newcurbilldata from memvar endscan *********************** CLOSE ALL use newcurbilldata brow&&ZEROS ********************************************************************** gcDelimName = ALIAS( ) + '.xls' gcDelimFile = PUTFILE('excel_file:', gcDelimName, 'xls') IF EMPTY(gcDelimFile) CANCEL ENDIF COPY TO (gcDelimFile) XL5 ************************************************************************** FUNCTION Sec2Str(tnSeconds, llDays) LOCAL lcHH, lnTm, lcMM, lcSS, lcTime lnTm = tnSeconds IF llDays lcDD = TRANSFORM(INT(lnTm / 86400), "99") + " " lnTm = tnSeconds % 86400 lcHH = TRANSFORM(INT(lnTm / 3600), "@L 9999") ELSE lcDD = "" lcHH = TRANSFORM(INT(lnTm / 3600), "@L 99999") ENDIF lnTm = lnTm % 3600 lcMM = TRANSFORM(INT(lnTm / 60), "@L 99") lcSS = TRANSFORM(INT(lnTm % 60), "@L 99") lcTime = lcDD + lcHH + ":" + lcMM *lcTime = lcDD + lcHH + ":" + lcMM + ":" + lcSS RETURN lcTimethanks