FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Pocket PC peticion de funcion : nRandom()
Posts: 139
Joined: Sun Nov 06, 2005 06:14 PM
peticion de funcion : nRandom()
Posted: Tue Jan 10, 2006 01:41 PM

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

Jose Luis Parajón

Asturias
Posts: 139
Joined: Sun Nov 06, 2005 06:14 PM
peticion de funcion : nRandom()
Posted: Tue Jan 10, 2006 01:53 PM
Me respondo yo mismo , de momento hice esto :
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().
Jose Luis Parajón

Asturias

Continue the discussion