date - 如何在vb6中获取范围日期

Question

我有 2 个日期选择器

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

问题是当月份更改时，计算无效。

Answer 1

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

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

我已经使用StartDateandEndDate来表示用于设置L1and的单独周期的开始和结束L2，因为您不应该将字符串转换为日期进行计算。