peticion de funcion : nRandom()

astursoft · Post by **astursoft** » Tue Jan 10, 2006 1:41 pm

Esta funcion aparece en el codigo , pero no funciona al no tener implementada totalmente seconds() .
Existe algun codigo alternativo de momento ?
Gracias

astursoft · Post by **astursoft** » Tue Jan 10, 2006 1:53 pm

Me respondo yo mismo , de momento hice esto :

Code: Select all


Function segundos()
local ctime:= Time()
Return ( (3600* val( SUBSTR(cTIME, 1, 2) ) )+ (60* val( SUBSTR(cTIME, 4, 2))    )  +   val(SUBSTR(cTIME, 7, 2)) )

parece que puede servir mientras disponemos de seconds().