hoi,

voor het lezen van een COBOL geïndexeerd bestand i moeten zetten "MMDDJJ" datum format naar "ccyyddd" formaat.
Ik heb de datecalc en andere scripts maar couldnt wijzigen om tegemoet te komen aan mijn behoefte...

De datecalc geeft een uitgang die naar mijn mening is het totaal aantal dagen tot die datum, maar ik wil om te zetten in ccyyddd formaat

voor exmple: voor de huidige datum: 092706 (MMDDJJ) i wilt converteren naar "2006270" (ccyyddd) en similary zeggen voor een andere datum.

Thanks in advance!

groeten,
Bhups

Probeer dit

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

thanks a lot bro ... werkt prima