Private Sub Form_Load()
rundate = Date //ну тут я получаю дату
If Mid(rundate, 1, 2) = "30" Then //тоесть каждого 30 числа этот файл будет запускаться
End If
End Sub