Двухнедельная дата 2011 VB6 - PullRequest
Новая
       8

Двухнедельная дата 2011 VB6

0 голосов
/ 16 марта 2011

Я пытаюсь выполнить цикл для получения всех двухнедельных дат 2011 года с использованием этого кода в VB6: 

Dim HardDate As Date
Dim NumberOfDaysSince As Integer
Dim modulus As Integer
Dim DaysToNext As Integer
Dim nextpayday As Date
Dim x As Integer

x = 1
DateToday = Date
HardDate = Format(Now, "m/dd/yyyy")

Do While x <> 20
    NumberOfDaysSince = DateDiff("d", HardDate, DateToday)
    modulus = NumberOfDaysSince Mod 14
    DaysToNext = 15 - modulus
    nextpayday = Date + DaysToNext

    Debug.Print nextpayday
    HardDate = DateAdd("d", 1, nextpayday)
    DateToday = DateAdd("d", 10, HardDate)
    x = x + 1
Loop

Однако использование этого кода выше не приводит к получению текущей двухнедельной даты ...

Любая помощь будет отличной!

пример даты 

Pay Begin Date | Pay End Date | Check Date | Posts
-------------------------------------------------------------------
1/14/2011      | 1/24/2011    | 2/10/2011  | 2/3/2011
1/28/2011      | 2/10/2011    | 2/24/2011  | 2/17/2011
2/11/2011      | 2/24/2011    | 3/10/2011  | 3/3/2011

Дэвид

1 Ответ

1 голос
/ 16 марта 2011

Предполагая, что вы знаете первое свидание, которое вы хотите в 2011 году, и знаете, что вы хотите 26 фортнинов, код может быть чрезвычайно упрощен. В целях иллюстрации добавьте в форму текстовое поле «Текст1» и установите MultiLine = True в конструкторе. Мы будем использовать 1/7/2011 для нашей начальной даты: 

Dim HardDate As Date
Dim x As Integer

x = 1
HardDate = "1/7/2011"
Text1.Text = HardDate
Do Until x = 26
    HardDate = DateAdd("d", 14, HardDate)
    Text1.Text = Text1.Text & vbCrLf & HardDate
    x = x + 1
Loop

Вывод, отображаемый в текстовом поле, выглядит следующим образом: 

1/7/2011
1/21/2011
2/4/2011
2/18/2011
3/4/2011
...
12/23/2011
...