hei,

for å lese en cobol indeksert fil jeg trenger å konvertere "MMDDÅÅ" datoformatet til "ccyyddd" format.
Jeg sjekket datecalc og andre scripts men couldnt endre dem til å imøtekomme til mine behov...

Den datecalc gir en produksjon som jeg mener er totalt dager før denne datoen, men jeg vil konvertere den i ccyyddd format

for exmple: for dagens dato: 092706 (MMDDÅÅ) Jeg ønsker å konvertere den til "2006270" (ccyyddd) og similary si for annen dato.

takk på forhånd!

hilsen,
Bhups

Prøv dette

scp
mm=`expr substr "$1" 1 2`
dd=`expr substr "$1" 3 2`
yyyy="20""`expr substr "$1" 5 2`"

ddd=`cal_days $yyyy $mm $dd`

echo "$yyyy$ddd"

cal_days
#!/bin/perl
use Time::Local;
my $year=shift;
my $month=shift;
my $day=shift;
my $time = timelocal(0,0,23,$day,$month-1,$year-1900);
my $time1 = timelocal(0,0,0,1,0,$year-1900);
my $days = ( $time -$time1 ) / 86400;
printf("%.0f", $days);

$scp 092706
2006270

takk en meget bro ... virker fint