各位高手求救,列出日期问题已经搞了一星期了

ligolaba

我要列出 前4个从星期日到星期六的日期

例如今天是2013-12-14

我想列出
2013-12-08~2013-12-14
2013-12-01~2013-12-07
2013-11-24~2013-11-30
2013-11-17~2013-11-14

的日期

拜托大家了已经用了一星期都用不出来,每次用时间的都一个头两个大@@

iamlimeng

1. #!/usr/bin/perl
   
2. 
   
3. use Time::Local;
   
4. 
   
5. my @today = date_from_utc();
   
6. my @reduce = (1,2,3,4,5,6,0);
   
7. for(0..3) {
   
8.         my @day1 = date_from_utc(date_to_utc($today[0])-($reduce[$today[1]]+$_*7)*86400);
   
9.         my @day2 = date_from_utc(date_to_utc($day1[0])-6*86400);
   
10.          print "$day2[0] ~ $day1[0]\n";
    
11. }
    
12. 
    
13. sub date_to_utc {
    
14.         my $date = shift;
    
15.         my ($year,$month,$day) = split("-",$date);
    
16.         return(timelocal(0,0,0,$day,$month-1,$year-1900));
    
17. }
    
18. 
    
19. sub date_from_utc {
    
20.         my $utc = shift();
    
21.          $utc = time() if (!$utc);
    
22.         my ($sec,$min,$hour,$day,$mon,$year,$weekday,$yeardate,$savinglightday) = (localtime($utc));
    
23.         $year += 1900;
    
24.         $mon++;
    
25.         return (sprintf("%04s-%02s-%02s",$year,$mon,$day),"$weekday");
    
26. }

复制代码

你测试一下！

ligolaba

真的太感谢了....程式没问题........万分感谢

ligolaba

还有想问一下我如果除了要列出 前4个从星期日到星期六的日期

还要列出本星期可以帮帮忙吗 感激不进

ligolaba

有搞懂了~~~不好意思~~谢谢了