Opened by jan10001 at 2005-03-14 01:51
User since
2003-11-28
3645 Artikel
ModeratorIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2003-11-28
3645 Artikel
ModeratorIn
[quote=jan10001,14.03.2005, 18:37]@ptk
Mit Date::Calc kam ich nicht klar die check_date Funktion wollte einfach nicht. Da war immer alles falsch. :([/quote]
Falsch angewandt? Mit diesen Testwerten geht's:
Uebrigens gibt's noch Date::Pcalc, falls man keinen C-Compiler voraussetzen kann.
Mit Date::Calc kam ich nicht klar die check_date Funktion wollte einfach nicht. Da war immer alles falsch. :([/quote]
Falsch angewandt? Mit diesen Testwerten geht's:
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
use Date::Calc qw(check_date);
@tests = (
[25, 6, 1996 ],
[31, 2, 2005 ],
[29, 2, 2000 ],
);
for (@tests) {
my @ymd = reverse @$_;
print "check_date @ymd ergibt " . check_date(@ymd) . "\n";
}
Uebrigens gibt's noch Date::Pcalc, falls man keinen C-Compiler voraussetzen kann.