[Dolter]

Не знаю как в Аксапте пишется, вот код на одинэске:

Sc = CreateObject("MSScriptControl.ScriptControl");
Sc.Language = "VBscript";
Sc.ExecuteStatement("Randomize");
_Rnd = Sc.Eval("RND");

;-)