nth-day-this-month ( $timestamp $n $day -- timestamp' )

Vocabulary

calendar.private

Inputs

$timestamp	an object
$n	an object
$day	an object

Outputs

timestamp'

an object

Definition

USING: accessors calendar kernel math ;

IN: calendar.private

:: nth-day-this-month ( $timestamp $n $day -- timestamp' )
    $timestamp clone $timestamp start-of-month $day
    day-this-week [ [ month>> ] same? ] 1check
    [ $n ] [ $n 1 + ] if weeks time+ ;