hi,
thank you,it works but excell sheet result is zeros

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&&&not 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 lcTime

thanks
>insert in newcurbilldata from memvar&&Command contains unrecognized
phrase/keyword
>
>needs to be
>
>insert into newcurbilldata from memvar&&Command contains unrecognized phrase/keyword