>>? MyRandom(382622) >> >> >>FUNCTION MyRandom(lnSeed) >>RETURN m.lnSeed + (DATETIME()-datetime(1900,1,1,0,0,0)) >>>
lnRandom = MyRandom(382622) ? "Random", lnRandom.RandomNumber ? "Seed", lnRandom.RandomNumber - lnRandom.GetBack FUNCTION MyRandom(lnSeed) LOCAL loEmpty loEmpty = CREATEOBJECT("Empty") ADDPROPERTY(loEmpty,"RandomNumber",0) ADDPROPERTY(loEmpty,"GetBack",0) loEmpty.GetBack = (DATETIME()-datetime(1900,1,1,0,0,0)) loEmpty.RandomNumber = m.lnSeed + loEmpty.GetBack RETURN loEmpty