Гость
Войти | Профиль | Очистить
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / VBS/VBA сравнение дат и времени / 6 сообщений из 6, страница 1 из 1
08.05.2018, 11:22
    #39641894
strQwerty
strQwerty
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBS/VBA сравнение дат и времени
Доброго времени суток!
Друзья, встала тут резкая необходимость своять скрипт на VBS, отлаживаю из под VBA в Excel и вот час уже злюсь.
Ситуация таково, есть две даты

dtStart = "08.05.2018 12:51:00"
dtEnd = "08.05.2018 12:56:59"

мне же их нужно сравнить с 3-ей датой, как то так

Код: vbnet
1.
2.
3.
If oFile.DateCreated >= dtStart And oFile.DateCreated <= dtEnd Then
            ' бла бла бла
End If



как это провернуть более ли менее красиво в VBS?
Спасибо!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.05.2018, 11:31
    #39641909
The_Prist
The_Prist
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBS/VBA сравнение дат и времени
strQwerty,
Наверное, так:
Код: vbnet
1.
If oFile.DateCreated >= CDate(dtStart) And oFile.DateCreated <= CDate(dtEnd) Then


Только надо еще убедиться, что DateCreated возвращает тип Date
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.05.2018, 11:32
    #39641910
Akina
Akina
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBS/VBA сравнение дат и времени
Явно конвертировать в тип Date, используя функцию CDate():
Код: vbnet
1.
2.
dtStart = CDate("08.05.2018 12:51:00")
dtEnd = CDate("08.05.2018 12:56:59")


После чего сравнивать:
Код: vbnet
1.
2.
3.
If dtStart <= oFile.DateCreated And oFile.DateCreated <= dtEnd Then
            ' бла бла бла
End If
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.05.2018, 11:34
    #39641915
Akina
Akina
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBS/VBA сравнение дат и времени
The_Pristубедиться, что DateCreated возвращает тип DateСудя по именам объекта и свойства, oFile - это FSO.File. Так что тут проблемы быть не должно.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.05.2018, 12:22
    #39641944
strQwerty
strQwerty
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBS/VBA сравнение дат и времени
The_Prist, спасибо! все отработало как надо !
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.05.2018, 12:23
    #39641945
strQwerty
strQwerty
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBS/VBA сравнение дат и времени
Akina,
так и есть, спасибо за помощь )!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / VBS/VBA сравнение дат и времени / 6 сообщений из 6, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 119ms
Закрыть
start [/forum/topic.php?fid=61&tablet=1&tid=2172340]:
 0ms
get settings:
 7ms
get forum list:
 10ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 27ms
get topic data:
 12ms
get forum data:
 2ms
get page messages:
 40ms
get tp. blocked users:
 2ms
others: 11ms
total:  119ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]