All pastes #929423 Raw Edit

Etwas

public text v1 · immutable
·published 2008-03-05 19:35 UTC
rendered paste body
    Protected Function Checkout() As Boolean
        Return IIf(IsNothing(tsCheckout) Or Date.Now > tsCheckout, True, False)
    End Function

    Protected Sub SetCheckout()
        tsCheckout = Date.Now.AddMinutes(dSource.Checkout)
    End Sub