Visual Basic, .NET, ASP, VBScript
 

   
   
     

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

Страница: 1 |

 

  Вопрос: Цикл в цикле Добавлено: 07.06.09 12:14  

Автор вопроса:  Andrey999 | Web-сайт: www.radio-device.narod.ru | ICQ: 30852361 
Помогите цикл в цикле сделать, вот код.


Dim d As Date
For Index = 1 To dney
For d = DateS To DateF
  objExcel.Worksheets(1).Cells(1, Index + 1) = d
Next d
Next Index


Тут задача такая, получить первую дату засунуть в Excel в ячейку следующие число в следующую и так далее пока пока не дойдем до даты DateF. dney - это количесто дней между датами (функция)


Call DateIntervals(DateS, DateF, , , days)
dney = days

Ответить

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

Номер ответа: 1
Автор ответа:
 Ra$cal



ICQ: 8068014 

Вопросов: 18
Ответов: 817
 Web-сайт: www.rascalspb.narod.ru
 Профиль | | #1
Добавлено: 07.06.09 14:06
лол а зачем 2 цикла? хоть немножко думать умеем, алгоритмы строить? здесь нужен один цикл, который увеличивает 2 переменные

Ответить

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



ICQ: 30852361 

Вопросов: 73
Ответов: 168
 Web-сайт: www.radio-device.narod.ru
 Профиль | | #2
Добавлено: 07.06.09 15:02
Ну так подскажи как? Я же не гений, только учусь

Ответить

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



ICQ: 30852361 

Вопросов: 73
Ответов: 168
 Web-сайт: www.radio-device.narod.ru
 Профиль | | #3
Добавлено: 08.06.09 10:37
Все решил проблему
  1. Dim d As Date, Index As Integer
  2.     For d = DateS To DateF
  3.         Index = Index + 1
  4.         objExcel.Worksheets(1).Cells(1, Index + 1) = d
  5.     Next d

Ответить

Страница: 1 |

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



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