计算下一个星期一到指定日期的日期

我期待返回给定日期的下一个星期一的日期。如果给定日期已经是星期一，那么日期应该保持不变。计算下一个星期一到指定日期的日期

从另一篇文章中，我发现了一个脚本来使用DateTime计算给定日期的前一个星期一。

use DateTime; 

my $date = DateTime->new(year => 2011, month => 6, day => 11); 
my $desired_dow = 1;   # Monday 
$date->subtract(days => ($date->day_of_week - $desired_dow) % 7); 
print "$date\n";

（信贷CJM）

我根本无法找出如何才能计算下周一（而不是以前的一个）更改这个。有人可以帮忙吗？

来源

2012-05-01 caliph

如果你读的[DATETIME]的文档（http://search.cpan.org/~drolsky/DateTime-0.74/lib/DateTime这将是很好.pm） –

@Nikhil其实我没有......并找不到上面使用的机制（例如％7）。 – caliph

变化

$date->subtract(days => ($date->day_of_week - $desired_dow) % 7);

到

$date->add(days => ($desired_dow - $date->day_of_week) % 7);

或者你可以有可选的一周刚刚添加到您的 “老” 周一：

$date->subtract(days => ($date->day_of_week - $desired_dow) % 7); 
$date->add(days => 7);

来源

2012-05-01 06:46:08 bossylobster

Thx！非常感激！ – caliph

#!/usr/bin/perl 

use strict; 
use warnings; 

use Time::Local; 
use POSIX 'strftime'; 

my $date = shift || die "No date given\n\n\tUsage: ./test.pl 2017-07-17, please note the format, CCYY-MM-DD\n\n"; 

my @date = split /-/, $date; 
$date[0] -= 1900; 
$date[1]--; 

die "Invalid date: $date\n" unless @date == 3; 

my $now = &timelocal(0, 0, 12, reverse @date); 

do{ 
    $now += 24 * 60 * 60; 
#}while ((strftime('%u', localtime $now) != 1) && (strftime('%u', localtime $now) != 5) && (strftime('%u', localtime $now) != 3)); ## For Multiple days, in case you want to find either, next monday, friday or wednesday 
}while (&strftime('%u', localtime $now) != 1);  #Values should be from 1 to 7, including... 

my @array_of_time  = localtime($now); 
my $formatted_time  = &strftime("%Y%m%d", @array_of_time); 
print ("Next Monday-[$formatted_time]\n");

来源

2017-07-17 10:14:16

在我看来，那被接受的答案（add部分）不正确。

这是我用：

my $date = DateTime->now; 
my $current_dow = $date->day_of_week; 
my $desired_dow = 1; # Monday 
$date->add(days => 7 - $current_dow + $desired_dow);

来源

2018-01-06 21:17:04 cstamas

计算下一个星期一到指定日期的日期

回答

相关问题