Private Sub Form_Load()
rundate = Date //ну тут я получаю дату
If Mid(rundate, 1, 2) = "30" Then //тоесть каждого 30 числа этот файл будет запускаться
End If
End Sub
а зачем тебе использовать mid??
так ведь проще и памяти меньше выделяется...
rundate=date(dd)
if rundate=30 then...//ссылка на процедуру или еще че нить
да по идее должно каждого 30 числа запускаться... но надо в автозагрузку добавлять
путь нужен только в том случае если эта прога будет другую запускать
Последний раз редактировалось EndLeSSDre@M; 20.02.2010 в 19:19..