Раздел 22.03.2013
Рандомная дата в 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