题
我正在尝试使用此代码在VB6中使用此代码来循环获得所有2011年每两周约会:
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
大卫
解决方案
假设您知道2011年想要的第一次约会,并且知道您想要26周的时间,那么代码可以极为简化。为了说明目的,请在表单中添加文本框“ text1”,并在设计师中设置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
不隶属于 StackOverflow