如何讓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) 

我用StartDate和EndDate來表示開始和用於設置L1和L2的單個週期結束，因爲您不應將字符串轉換爲計算日期。