Revision 2508bbb1
Von Moritz Bunkus vor mehr als 14 Jahren hinzugefügt
| SL/Locale.pm | ||
|---|---|---|
| 36 | 36 |
|
| 37 | 37 |
package Locale; |
| 38 | 38 |
|
| 39 |
use DateTime; |
|
| 39 | 40 |
use Encode; |
| 40 | 41 |
use List::Util qw(first); |
| 41 | 42 |
use List::MoreUtils qw(any); |
| ... | ... | |
| 373 | 374 |
return ($yy, $mm, $dd); |
| 374 | 375 |
} |
| 375 | 376 |
|
| 377 |
sub parse_date_to_object {
|
|
| 378 |
my $self = shift; |
|
| 379 |
my ($yy, $mm, $dd) = $self->parse_date(@_); |
|
| 380 |
|
|
| 381 |
return $yy && $mm && $dd ? DateTime->new(year => $yy, month => $mm, day => $dd) : undef; |
|
| 382 |
} |
|
| 383 |
|
|
| 376 | 384 |
sub reformat_date {
|
| 377 | 385 |
$main::lxdebug->enter_sub(); |
| 378 | 386 |
|
Auch abrufbar als: Unified diff
Funktion zum Parsen eines Datums in ein DateTime-Objekt
Das parsende Datum muss dabei im vom Benutzer eingestellten
Datumsformat vorliegen.