Rundate

[kroll]

Расскажите плиз по подробнее о процедуре Rundate. А то я в одном исходнике увидел, а как ей пользоваться не знаю.

[Хакер]

Мне кажется что в VB6 такой нет... либо это не ВБ6

[Twister]

Ни в VB, ни в VBA такой процедуры нет. Возможно, в исходнике использовалясь сторонняя библиотека...

[kroll]

А как вы со временем работаете?
Или посмотрите в Help(F1). А может быть там был Runtime

[minotawr]

А может быть там был Runtime

Хм, а может ты проверишь что там было

[Хакер]

Мне почему-то кажется что функция rundate возвращает дату старта чего-либа (например у проги триалки - дату первого запуска). Если эта дата специфична для исходника, то это явно не функция из ВинАпи32.Длл. Следовательно она опеределена либо в коде, либо в Длл, прилагавшемся к исходнику.

[Хакер]

Если Run-Time то это не функция, а разновидность ошибок. (Ошибки, которые происходят в период выполнения, которые невозможно обнаружить до/при компиляции называются Run-Time ошибки. Например программа, которая открывает файл, путь к которому ввёл пользователь. Пользователь может ввести и имя несуществ. файла и тогда произойдёт ошибка. Но во время компиляции невозможно предположить, что пользователь введёт корявое имя. Поэтому отслеживание и борьба с Run-Time ошибками, всецело проблема программиста.)

Возможно в имени функции встерается слова RunTime. Просто так функция не может называться RunTime - это бессмыслено. (Примерно так же, как назвать её Because)

[kroll]

Rundate упоминается в примере исходника на глваной странице этого сайта(ссылку не знаю) про автоматическую смену обоев рабочего стола

[Хакер]

Код: Выделить всё

Private Sub Form_Load()

rundate = Date 'Получить ДАТУ на компьютере

If Mid(rundate, 1, 2) = "30" Then 'Т.е. записывать выполнять каждое 30-е число каждого месяца
ChangeWallPaper "c:\oflameron-1024.bmp", "Center" 'Разместить картинку по центру экрана
End If

End 'Выйти из программы

End Sub

Так это-ж переменная.