VB6

의 범위 날짜를 얻는 방법을 내가 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

아니, 나도 몰라, 나도 몰라 –

난 그냥 2 datepicker 사이의 범위 날짜를 원한다면 나를 도울 수 있습니까? –

I 해요 (많은 것들이 불분명으로) 당신의 코드를 기반으로 추측하지만,이 두 날짜 사이의 일 수를 제공해야합니다 : 내가 시작을 의미하는 StartDate 및 EndDate을 사용했습니다

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

문자열을 계산할 날짜로 변환해서는 안되기 때문에 L1 및 L2을 설정하는 데 사용되는 유일한 기간의 끝입니다.

출처

2013-02-26 10:25:24 Deanna

답변

관련 문제