Маленький вопрос по датам

Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
xqz_me
Постоялец
Постоялец
 
Сообщения: 413
Зарегистрирован: 04.12.2005 (Вс) 14:58

Маленький вопрос по датам

Сообщение xqz_me » 09.03.2007 (Пт) 20:02

Сразу как-то не сообразил. Известно число неполных дней, прошедших с 01.01.2000. Как узнать дату? :oops:

dr.MIG
Гуру
Гуру
Аватара пользователя
 
Сообщения: 1441
Зарегистрирован: 18.12.2004 (Сб) 9:53
Откуда: г.Ярославль

Сообщение dr.MIG » 09.03.2007 (Пт) 20:37

Примерно так:
Код: Выделить всё
strDate = "01.01.2000"
Days = 366 'количество дней, которое прошло
MsgBox CDate(CDate(strDate) + Days)
Salus populi suprema lex

xqz_me
Постоялец
Постоялец
 
Сообщения: 413
Зарегистрирован: 04.12.2005 (Вс) 14:58

Сообщение xqz_me » 09.03.2007 (Пт) 20:45

Спасибо!

alibek
Большой Человек
Большой Человек
 
Сообщения: 14205
Зарегистрирован: 19.04.2002 (Пт) 11:40
Откуда: Russia

Сообщение alibek » 12.03.2007 (Пн) 11:09

Now()-#1/1/2000#+IIf(Fix(Now())-Now()>0,1,0)
Lasciate ogni speranza, voi ch'entrate.


Вернуться в Visual Basic 1–6

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

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 102

    TopList