Date 如何在vb6中获取范围日期

我有两个约会选择者

Dim pday, eitday, otherday, tpenalty, difday, subpenalty As Integer
difday = Val(L1.Caption) - Val(L2.Caption)
pday = 7
eitday = 8
otherday = difday - eitday
tpenalty = 25
If difday <= pday Then
    PENALTY.Caption = 0
    ElseIf difday = eitday Then
    PENALTY.Caption = tpenalty
  ElseIf difday > eitday Then
  For i = 0 To otherday - 1
  subpenalty = subpenalty + 5
  Next i
    PENALTY.Caption = tpenalty + subpenalty
End If

Dim pday、eitday、otherday、tpenalty、difday、subenalty作为整数
difday=Val（L1.标题）-Val（L2.标题）
pday=7
一天=8
otherday=difday-eitday
tpenalty=25
如果是第二天那么
对于i=0到其他日期-1
子优先级=子优先级+5
接下来我
惩罚。标题=tpenalty+次级惩罚
如果结束

---

问题是，当月份发生变化时，计算无效。

我根据您的代码猜测（因为许多事情尚不清楚），但这应该给出两个日期之间的天数：

difday = DateDiff("d", StartDate, EndDate)

---

我使用了

StartDate

和

EndDate

来表示用于设置

L1

和

L2

的单独时段的开始和结束，因为您不应该将字符串转换为日期进行计算。

您尝试过使用DateDiff函数吗？没有，我也不知道，我只是想得到2个日期选择器之间的范围日期，你能帮我吗？我知道tnx DATEFF很好