Question

我在VB6中有一个简单的程序。我有两个文本框和一个列表框。我已将日期范围放在文本框中，结果显示在列表框中。示例一个文本框02/05/2012和另一个文本框02/10/2012。结果出现在列表框中

02/05/2012 02/06/2012 02/07/2012 02/08/2012 2012年2月9日 02/10/2012

任何人指导我

Answer 1

Dim dtStart As Date, dtEnd As Date

If Not IsDate(Text1) Then
    MsgBox "Text1 does not contain a valid date"
    ' Exit Sub/Function
End If

If Not IsDate(Text2) Then
    MsgBox "Text2 does not contain a valid date"
    ' Exit Sub/Function
End If

dtStart = CDate(Text1)
dtEnd = CDate(Text2)

' Clear the listbox
List1.Clear

Dim d As Date
For d = dtStart To dtEnd
    List1.AddItem d
Next

Answer 2

从MSDN查看此页面，其中解释了DateDiff函数的工作原理：http://msdn.microsoft.com/en-us/library/b5xbyt6f(v=vs.90).aspx。现在只需从列表框中检索数据即可。

Answer 3

如果您使用的是javascript，请参阅此

function (startDate, endDate, addFn, interval) {

 addFn = addFn || Date.prototype.addDays;
 interval = interval || 1;

 var retVal = [];
 var current = new Date(startDate);

 while (current <= endDate) {
  retVal.push(new Date(current));
  current = addFn.call(current, interval);
 }

 return retVal;

}

在给定两个日期之间获得范围

3 个答案: