Раздел 22.03.2013

Обои для Hero H8000 / Zopo ZP500

Рандомная дата в Excel

Это пользовательская функция для заполнения ячеек случайной датой в указанном периоде. Для использования нужно добавить в проект модуль и прописать функцию (ниже приведен код). Вызов функции — в ячейке написать =rand_date(«начальная дата»; «конечная дата») — числа дат писать в кавычках . Исключаются суббота и воскресенье.

Function rand_date(start_d As Date, end_d As Date) As Date
    rand_date = Int((start_d - end_d - 1) * Rnd + end_d + 1)
    If Weekday(rand_date) = 1 Or Weekday(rand_date) = 7 Then
         rand_date = rand_date(start_d, end_d)
    End If
End Function