- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
Public Function random()
Randomize
random = Left(Mid("0123456789abcdefghijklmnopqrstuvwxyz", 36 * Rnd() + 1, 1) + _
Mid("0123456789abcdefghijklmnopqrstuvwxyz", 36 * Rnd() + 1, 1) + _
Mid("0123456789abcdefghijklmnopqrstuvwxyz", 36 * Rnd() + 1, 1) + _
Mid("0123456789abcdefghijklmnopqrstuvwxyz", 36 * Rnd() + 1, 1) + _
Mid("0123456789abcdefghijklmnopqrstuvwxyz", 36 * Rnd() + 1, 1) + _
Mid("0123456789abcdefghijklmnopqrstuvwxyz", 36 * Rnd() + 1, 1) + _
Mid("0123456789abcdefghijklmnopqrstuvwxyz", 36 * Rnd() + 1, 1) + _
Mid("0123456789abcdefghijklmnopqrstuvwxyz", 36 * Rnd() + 1, 1) + _
Mid("0123456789abcdefghijklmnopqrstuvwxyz", 36 * Rnd() + 1, 1) + _
Mid("0123456789abcdefghijklmnopqrstuvwxyz", 36 * Rnd() + 1, 1) + _
Mid("0123456789abcdefghijklmnopqrstuvwxyz", 36 * Rnd() + 1, 1) + _
Mid("0123456789abcdefghijklmnopqrstuvwxyz", 36 * Rnd() + 1, 1), 10)
End Function
Функция генерации случайного набора символов от модератора форума Access Бурундука на http://www.cyberforum.ru/
guest 11.08.2009 16:14 # 0
guest 01.12.2009 00:14 # +1
А аффтар true на истинность, случайно, пока ещё не догадался проверить?
guest 10.09.2009 21:17 # +1
Надо же, некоторые не взрослеют.
guest 27.09.2009 00:32 # 0