peticion de funcion : nRandom()

[astursoft]

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

[astursoft]

Me respondo yo mismo , de momento hice esto :

Code: Select all  Expand view


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().