Gracias armando, quedo muy bien..
FUNCTION Redondear(nValor)
IF nValor % 10 <= 5
nValor := nValor - (nValor % 10)
ELSE
nValor := nValor + (10 - nValor % 10)
ENDIF
RETURN(Round(nValor,0))
saludos
I have added theme your sample and says "UTF8 GET".
but Turkish characters gone in TGet.
A few days ago I asked here how I could transfer the results of a MySql query to Excel.
oRs := oCn:Query( cSql )
oRs:ToExcel()
oRs:Close()