Конференция VBStreets

**alibek** » 01.04.2005 (Пт) 17:28

Прибавлять не пробовал? Date+7

**uhm** » 01.04.2005 (Пт) 17:29

Вот не поверишь, но чтобы к дате добавить 7 дней, нужно к ней прибавить 7.

Код: Выделить всё: Debug.Print Date() Debug.Print Date()+7

**Tarik** » 01.04.2005 (Пт) 20:43

Нет, ну сегодня точно все решили поприкалываться...
(задумчиво смотрит на календарь) А ну да, nevermind

**vvs_adm** » 01.04.2005 (Пт) 20:53

uhm писал(а):Вот не поверишь, но чтобы к дате добавить 7 дней, нужно к ней прибавить 7.

Код: Выделить всё
Debug.Print Date() Debug.Print Date()+7

А вот и фигушки ты угадал !!! А если год високосный??? Что, не подумал... Там проверку надо делать, до 28 февраля или после... И если после, то рекомендуется вылетать с ошибкой Unknown Error , иначе последствия могут быть самыми непредсказуемыми

**Mizin Alex** » 02.04.2005 (Сб) 20:32

Определение високосного года.
Возвращаемое значение:
True-Високосный
False-Обыкновенный
Me.Caption = (Day(DateSerial(2005, 2, 28) + 1) = 29)

Прибавить некоторый интервал к дате.
Me.Caption = DateAdd("d", 1, Date)
Значения для функции DateAdd:
yyyy -Год
q -Квартал
m -Месяц
y -День в году
d -День
w -День недели
ww -Неделя
h -Час
n -Минута
s -Секунда

С ув. Alex

**Ennor** » 04.04.2005 (Пн) 20:02

vvs_adm писал(а):
uhm писал(а):Вот не поверишь, но чтобы к дате добавить 7 дней, нужно к ней прибавить 7.

Код: Выделить всё
Debug.Print Date() Debug.Print Date()+7
А вот и фигушки ты угадал !!! А если год високосный??? Что, не подумал... Там проверку надо делать, до 28 февраля или после... И если после, то рекомендуется вылетать с ошибкой Unknown Error , иначе последствия могут быть самыми непредсказуемыми

А вот и гонево это полное.

Кидаем на форму лэйбл и кнопку. Кидаем в форму такой код:

Код: Выделить всё: Private Sub Command1_Click() Dim D As Date, D1 As Date D = CDate("2004-02-26 00:00:00") D1 = DateAdd("yyyy", 1, D) ' Если кто не помнит, 2004 год был високосным Me.Label1.Caption = D & " " & D + 7 & vbNewLine & D1 & " " & D1 + 7 End Sub

Запускаем, нажимаем на кнопку. Ну и что? Все корректно прибавилось. Или я чего-то не понял?..

**alibek** » 05.04.2005 (Вт) 7:11

Не в тему, но вдруг кому интересно.
Високосным является год, который делится нацело на 4 (1992, 2004).
Год, который делится нацело на 100 (века), НЕ является високосным (1900, 2100).
Год, который делится нацело на 400 (каждые четыре века) является високосным (1600, 2000).

**Nikonik** » 11.08.2006 (Пт) 14:34

Самый лучший способ проверить год на високосность - IsDate

**Antonariy** » 11.08.2006 (Пт) 15:28

К нам сегодня приходил
Злобный постонекрофил.
Да еще своим ответом
Просто тупость сморозил...

**tyomitch** » 11.08.2006 (Пт) 20:07

раз уж вспомнили тот стишок, то http://bash.org.ru/quote.php?num=36424 :-)

Конференция VBStreets

Работа с датой

Кто сейчас на конференции