Closed 10001if closed 8 years ago
use strict;
use warnings;
use DateTime;
my $from = DateTime->new( year => 2016, month => 2, day => 10 );
my $to = DateTime->new( year => 2016, month => 6, day => 9 );
my $iter = $from->clone;
while ( $iter->add( days => 1 ) ) {
my $dur = $to - $iter;
print $iter->ymd, "\n" if $iter->day_of_week =~ /^[24]$/;
my ( $month, $day ) = $dur->in_units( 'months', 'days' );
last unless $month || $day;
}
@aanoaa 기존에 6월 9일까지 요청드렸던 봉사 마감 신청을 6월 14일까지 화/목은 신청이 안되도록 연장 요청드립니다. 15일부터는 월-토까지 매일 봉사 신청이 자유롭도록 수정 부탁드립니다. ^^
2월 11일부터 6월 9일까지 매주 화/목은 기업에서 정기봉사 방문을 해주실 예정입니다. 따라서 봉사 신청을 할 수 없도록 수정요청드립니다. ^^