weekdays-between ( date1 date2 -- n )

Vocabulary

calendar

Inputs

date1	an object
date2	an object

Outputs

n

an object

Definition

USING: kernel math ;

IN: calendar

: weekdays-between ( date1 date2 -- n )
    [
        [ swap time- duration>days 5 * ]
        [ [ day-of-week ] bi@ - 2 * ] 2bi - 7 /i 1 +
    ] 2keep day-of-week 6 = [ [ 1 - ] dip ] when day-of-week 0 =
    [ 1 - ] when ;