4vZfvOpbipg85Oke2QgG8Q changeset

Changeset653663393632 (b)
Parent633563306532 (a)
ab
00Sub StringShuffle()
11        ThisComponent.CurrentSelection.FormulaArray = ArrayShuffle(ThisComponent.CurrentSelection.FormulaArray)
22End Sub
...
3-
3-Function NumberRandom(ByVal min, ByVal max)
3-        Dim len
3-        len = max - min
3-        Dim res
3-        res = Int(Rnd() * len) + min
3-        NumberRandom = res
3-End Function
...
1111
1212Function ArrayShuffle(ByVal src())
1313        Dim res
...
2525        ArrayShuffle = res
2626End Function
2727
...
28+Function NumberRandom(ByVal min, ByVal max)
28+        Dim len
28+        len = max - min
28+        Dim res
28+        res = Int(Rnd() * len) + min
28+        NumberRandom = res
28+End Function
28+
...
2828Function ArrayCopy(ByVal src())
2929        Dim res(UBound(src))
3030        For i = 0 To UBound(res)
...
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
--- Revision 633563306532
+++ Revision 653663393632
@@ -1,14 +1,6 @@
 Sub StringShuffle()
   	ThisComponent.CurrentSelection.FormulaArray = ArrayShuffle(ThisComponent.CurrentSelection.FormulaArray)
 End Sub
-
-Function NumberRandom(ByVal min, ByVal max)
-	Dim len
-	len = max - min
-	Dim res
-	res = Int(Rnd() * len) + min
-	NumberRandom = res
-End Function
 
 Function ArrayShuffle(ByVal src())
 	Dim res
@@ -26,6 +18,14 @@
 	ArrayShuffle = res
 End Function
 
+Function NumberRandom(ByVal min, ByVal max)
+	Dim len
+	len = max - min
+	Dim res
+	res = Int(Rnd() * len) + min
+	NumberRandom = res
+End Function
+
 Function ArrayCopy(ByVal src())
 	Dim res(UBound(src))
 	For i = 0 To UBound(res)