如何让VB6

2013-02-26 41 views 0 likes

范围内的日期我有2日期选择器如何让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

的问题是当一个月更改计算是无效的。

来源

2013-02-26 Denver Bomb

您是否尝试过使用DateDiff函数？ – GTG 2013-02-26 09:37:59

不，我没有，我也不知道它 – 2013-02-26 09:43:49

我只是想得到2 datepicker之间的范围日期你能帮我吗？ – 2013-02-26 09:47:56

回答

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

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

我用StartDate和EndDate来表示开始和用于设置L1和L2的单个周期结束，因为您不应将字符串转换为计算日期。

来源

2013-02-26 10:25:24 Deanna

如何让VB6

回答

相关问题