Даты по нарастающей - Visual Basic .NET

Узнай цену своей работы

Формулировка задачи:

Всем привет! Мужики, подкиньте идею... Что-то я забуксовал. Задача такая. Есть две даты вместе со временем. Первая дата более ранняя, вторая поздняя. Между ними неизвестно какой разрыв. Может это будет один день и сколько то там минут, может два дня, может неделя - неизвестно. Для примера, первая дата: 14.05.2018 14:38 Вторая дата: 18.05.2018 12:11 Далее есть число, оно тоже может быть абсолютно разным, для примера возьмем число 100. Что необходимо? Необходимо взять первую дату и

по возрастающей

получить 100 дат не превышающих вторую дату. Грубо говоря что-то типа этого:
Только используя рандомайзер он выберет случайные даты без последовательности, а нужно получить их по нарастающей. Пример того, что могло бы получиться на выходе: 14.05.2018 10:18 14.05.2018 11:25 15.05.2018 12:44 15.05.2018 18:12 16.05.2018 21:01 18.05.2018 11:54 ... и т.д. до 100 Даты и время идут по нарастающей, от меньшего(первая дата и время из условия), к большему(вторая дата и время из условия).

Решение задачи: «Даты по нарастающей»

textual
Листинг программы
        Dim dtStart As DateTime = New DateTime(2018, 3, 12, 21, 11, 11)
        Dim dtEnd As DateTime = New DateTime(2018, 4, 12, 21, 11, 11)
        Dim n As Integer = 4
        Dim dt As New List(Of String)
        For st As Int64 = dtStart.Ticks To dtEnd.Ticks Step (dtEnd.Ticks - dtStart.Ticks) / (n + 1)
            dt.Add(New DateTime(st).ToString)
        Next
        ListBox1.Items.AddRange(dt.ToArray)

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

8   голосов , оценка 4 из 5
Похожие ответы