- Select Case DateDiff(DateInterval.Minute, dtLineStart, dtTmpStart)
- Case Is < -60
- lngTmpQTY = 0
- Case Is < 0
- intTmpSec = DateDiff(DateInterval.Second, dtLineStart, dtTmpEnd)
- If intTmpSec > 0 Then
- lngTmpQTY = dblQTYPerMin * intTmpSec
- Else
- lngTmpQTY = 0
- End If
- Case Is = 0
- intTmpSec = DateDiff(DateInterval.Second, dtTmpStart, dtTmpEnd)
- If intTmpSec > 0 Then
- lngTmpQTY = dblQTYPerMin * intTmpSec
- Else
- lngTmpQTY = 0
- End If
- Case Is > 0
- intTmpSec = DateDiff(DateInterval.Second, dtTmpStart, dtTmpEnd)
- If intTmpSec > 0 Then
- lngTmpQTY = dblQTYPerMin * intTmpSec
- Else
- lngTmpQTY = 0
- End If
- Case Else
- lngTmpQTY = 0
- End Select