[原创]awk 计算星期几

blackold

回复 29# ghp268

    $ cal 1 1 1900
    January 1900
Su Mo Tu We Th Fr Sa
    1  2  3  4  5  6
7  8  9 10 11 12 13
14 15 16 17 18 19 20
21 22 23 24 25 26 27
28 29 30 31


$ cal 1 1 0
cal: illegal year value: use 1-9999

$ cal 1 1 1
      January 1
Su Mo Tu We Th Fr Sa
                   1
2  3  4  5  6  7  8
9 10 11 12 13 14 15
16 17 18 19 20 21 22
23 24 25 26 27 28 29
30 31


$ cal 1 1 -770
cal: illegal year value: use 1-9999

ghp268

回复 21# springwind426


    刚推了下，1900-01-01是星期二，那么最后的输出应该是(2+d%7)%7

ghp268

刚看了黑哥的date
最后是否要改成
d-=1;print (1+d%7)%7

wmjie

回复  springwind426


    刚推了下，1900-01-01是星期二，那么最后的输出应该是(2+d%7)%7
ghp268 发表于 2010-04-23 11:24

cal 01 1900

           January 1900
Sun Mon Tue Wed Thu Fri Sat
     1   2   3   4   5   6
7   8   9  10  11  12  13
14  15  16  17  18  19  20
21  22  23  24  25  26  27
28  29  30  31

我这怎么是 周一?

为什么删我号

{:3_182:}

ghp268

回复 34# wmjie


    不好意思，我算错了，是星期一确定

Shell_HAT

我也造个轮子：

1. 
   
2. echo '20100423' | awk '{yy=substr($1,1,4)+0;mm=substr($1,5,2)+0;dd=substr($1,7,2)+0;z=14-mm;z=int(z/12);y=yy+4800-z;m=mm+12*z-3;dow=153*m+2;dow=int(dow/5)+dd+y*365+int(y/4)-int(y/100)+int(y/400)-2472630;dow%=7;dow+=1;print dow}'
   

复制代码

KevinLee39

我也凑个热闹吧, 各UNIX平台通用
perl -mPOSIX=strftime -MTime::Local -e '$y=2010;$m=4;$d=1;print strftime("%u\n", localtime(timelocal(0,0,0,$d,$m-1,$y)))'

尚风

强淫啊，我都没有看明白，cp代码自己看去。
学习了

sky-鹏

，看看