|
|
Converting a date to friday date and finding Min/Max date
07-30-2012
...
date: Not a recognized flag: d Usage: date [-u] [+"Field Descriptors"] date: Not a recognized flag: d Usage: date [-u] [+"Field Descriptors"] date: Not a recognized flag: d Usage: date [-u] [+"Field Descriptors"] date: Not a recognized flag: d Usage: date [-u] [+"Field Descriptors"] date: Not a recognized flag: d Usage: date [-u] [+"Field Descriptors"] date: Not a recognized flag: d Usage: date [-u] [+"Field Descriptors"]
07-30-2012
07-30-2012
$ printf '%s\n' 20120711 20120719 20120721 | bash ./julian 2012/07/11 (jd:2456120 dow:2) + 2 = 20120713 2012/07/19 (jd:2456128 dow:3) + 1 = 20120720 2012/07/21 (jd:2456130 dow:5) + 6 = 20120727 $ printf '%s\n' 20120711 20120719 20120721 | ksh ./julian 2012/07/11 (jd:2456120 dow:2) + 2 = 20120712 2012/07/19 (jd:2456130 dow:5) + 6 = 20120801 2012/07/21 (jd:2456130 dow:5) + 6 = 20120801
$ printf '%s\n' 20120711 20120719 20120721 | awk -f julian.awk 20120713 20120720 20120727 Min: 20120713 Max: 20120727
#!/usr/bin/awk -f
function mk_j(y,m,d, a, j) {
a=int((14-m)/12);y=y+4800-a;m=m+12*a-3
return d+int((153*m+2)/5)+365*y+int(y/4)-int(y/100)+int(y/400)-32045
}
function mk_g(jd, l,n,i,j,d,m,y) {
l=jd+68569;n=int((4*l)/146097);l=l-int((146097*n+3)/4)
i=int(4000*(l+1)/1461001);l=l-int((1461*i)/4)+31
j=int((80*l)/2447);d=l-int((2447*j)/80);l=int(j/11);m=j+2-(12*l);
y=100*(n-49)+i+l;return sprintf("%04d%02d%02d",y,m,d)
}
function next_fri(jd, dow) { dow=jd%7;return mk_g(jd+((dow>4)?7:0)+(4-dow)) }
1 { f=0;y=substr($f,1,4);m=substr($f,5,2);d=substr($f,7,2);
dates[++i]=mk_j(y,m,d);print next_fri(dates[i])
}
END {
min=max=dates[1]
for (i in dates) {
if (dates[i] > max) max=dates[i]
if (dates[i] < min) min=dates[i]
}
printf("\nMin: %s\nMax: %s\n",
next_fri(min), next_fri(max));
}printf("\nMin: %s\nMax: %s\n", next_fri(min), next_fri(max)) > "minmax"|
|
|
|