Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - Общий форум

Страница: 1 |

 

  Вопрос: Помогите решить алгоритм (или кодом поможите) Добавлено: 05.06.09 15:33  

Автор вопроса:  Andrey999 | Web-сайт: www.radio-device.narod.ru | ICQ: 30852361 
Есть две даты 1-я допустим 10.02.2009 2-я 02.03.2009.
Как сделать так чтоб я получил поочередно каждую дату в этом диапазоне.
Тоесть каждую поочередно загнать в переменную.
10.02.2009
11.02.2009
12.02.2009
13.02.2009
...
10.03.2009

Ответить

  Ответы Всего ответов: 3  

Номер ответа: 1
Автор ответа:
 SyavX



Вопросов: 25
Ответов: 149
  Профиль | | #1 Добавлено: 07.06.09 12:37
неужели сложно было почитать насчет ф-ций для работы с датами? (DateAdd, DateDiff etc.)

  1. Dim d0 As Date, d1 As Date, d2 As Date
  2. Dim str As String
  3. Dim i As Integer, j As Integer
  4.  
  5. d1 = "10.02.2009"
  6. d2 = "02.03.2009"
  7.  
  8. d0 = d1
  9. j = DateDiff("d", d1, d2, vbMonday)
  10. For i = 1 To j
  11.     d0 = DateAdd("d", 1, d0)
  12.     str = str & Format(d0, "dd.mm.yyyy") & vbCrLf
  13. Next i
  14.  
  15. MsgBox str

Ответить

Номер ответа: 2
Автор ответа:
 SyavX



Вопросов: 25
Ответов: 149
  Профиль | | #2 Добавлено: 07.06.09 12:50
перед циклом забыл, чтоб начальную дату тоже вывело
  1. str = Format(d0, "dd.mm.yyyy") & vbCrLf

Ответить

Номер ответа: 3
Автор ответа:
 Andrey999



ICQ: 30852361 

Вопросов: 73
Ответов: 168
  Web-сайт: www.radio-device.narod.ru
 Профиль | | #3 		Добавлено: 08.06.09 00:26
Огромное спасибо! работает!!!

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам