VBA Операции с датой и временем

[Alexey_Panda]

Пара задачек..help

1. Научный сотрудник забыл точную дату конференции, на которой ему необходимо присутствовать, но помнит, что она должна начаться в четверг в период с 1 по 8 октября 2004 года. Помогите ему определить точную дату начала конференции.

Не знаю как перебрать все дни из этого диапазона..


2. В одной из ячеек укажите некоторое время и определите длительность отрезка вре-мени (в виде n часов, m минут, s секунд), оставшегося до конца дня.

PHP код:

Sub lab_6_2()
Dim Time1 As Date, Time2 As Date
Time1 = CDate(Range("c14"))  //некоторое время 
Time2 = CDate(Range("c15")) // конец дня
If Hour(Time2) > Hour(Time1) Then
    Range("c16") = Hour(Time2) - Hour(Time1)
Else
    Range("c16") = Hour(Time1) - Hour(Time2)
End If
End Sub 


как посчитать минуты и секунды?

[EducatedFool]

Sub lab_6_2()
    Dim Time1 As Date, Time2 As Date
    Time1 = CDate(Range("c14"))  'некоторое время в ячейке (записал в ячейку 16:15:49 )
    Time2 = 1 ' конец дня
    
    РазницаВоВремени = Format(Time2 - Time1, "H часов N минут S секунд")
    MsgBox РазницаВоВремени ' результат: 7 часов 44 минут 11 секунд
End Sub

[Alexey_Panda]

Сообщение от EducatedFool

Sub lab_6_2()
    Dim Time1 As Date, Time2 As Date
    Time1 = CDate(Range("c14"))  'некоторое время в ячейке (записал в ячейку 16:15:49 )
    Time2 = 1 ' конец дня
    
    РазницаВоВремени = Format(Time2 - Time1, "H часов N минут S секунд")
    MsgBox РазницаВоВремени ' результат: 7 часов 44 минут 11 секунд
End Sub

огромное спасибо.
А первая задача как решается?

[doober]

6_1

Dim Skleroz As Date
Skleroz = CDate("1.10.2004")
Skleroz = IIf(Weekday(Skleroz, vbMonday) = 1, Skleroz, Skleroz + 8 - Weekday(Skleroz, vbMonday))

Не правильно прочитал задание.
Сделал для понедельника

Для четверга будет так

 Dim Skleroz As Date
Skleroz = CDate("1.10.2004")
Skleroz = IIf(Weekday(Skleroz, vbThursday) = 1, Skleroz, Skleroz + 8 - Weekday(Skleroz, vbThursday))

[Alexey_Panda]

Сообщение от doober

6_1

Dim Skleroz As Date
Skleroz = CDate("1.10.2004")
Skleroz = IIf(Weekday(Skleroz, vbMonday) = 1, Skleroz, Skleroz + 8 - Weekday(Skleroz, vbMonday))

Минутку,переделаю.
Не правильно прочитал задание.
Сделал для понедельника

Sub lab_6_1()
Dim Skleroz As Date
Skleroz = CDate("1.10.2004")
Skleroz = IIf(Weekday(Skleroz, vbThursday), Skleroz, Skleroz + 8 - Weekday(Skleroz, vbThursday))
Range("b4") = Skleroz
End Sub

Разве не так тогда(выводит то что надо)? можно пару пояснений насчет IIF.. немного не понял как он тут используется

[doober]

Iif (функция) - возвращает одно из двух значений в зависимости от значения выражения
что тут непонятного.Если четверг,то дату не трогаем.Если нет,то добавляем нужное количество дней

[Serge_Bliznykov]

CDate("1.10.2004")

вместо CDate я бы рекомендовал использовать

Skleroz  = DateSerial(2004, 10, 1)

CDate зависит от региональных настроек windows...