2012-09-29T16:08:59 ?

Code (perl): (dl )

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24

my ($year,$month,$day) = Today();
my ($year,$month,$day) = Add_Delta_Days($year,$month,$day, -14);

if ($month eq "1") {$month = "01";}
if ($month eq "2") {$month = "02";}
if ($month eq "3") {$month = "03";}
if ($month eq "4") {$month = "04";}
if ($month eq "5") {$month = "05";}
if ($month eq "6") {$month = "06";}
if ($month eq "7") {$month = "07";}
if ($month eq "8") {$month = "08";}
if ($month eq "9") {$month = "09";}

if ($day eq "1") {$day = "01";}
if ($day eq "2") {$day = "02";}
if ($day eq "3") {$day = "03";}
if ($day eq "4") {$day = "04";}
if ($day eq "5") {$day = "05";}
if ($day eq "6") {$day = "06";}
if ($day eq "7") {$day = "07";}
if ($day eq "8") {$day = "08";}
if ($day eq "9") {$day = "09";}

my $minorday = $year.$month.$day;

oh gott...
perldoc -f sprintf