Revision a8b18c65
Von Moritz Bunkus vor mehr als 9 Jahren hinzugefügt
| SL/Helper/DateTime.pm | ||
|---|---|---|
|
$self->add_business_duration(%params);
|
||
|
}
|
||
|
|
||
|
sub end_of_month {
|
||
|
my ($self) = @_;
|
||
|
return $self->truncate(to => 'month')->add(months => 1)->subtract(days => 1);
|
||
|
}
|
||
|
|
||
|
1;
|
||
|
|
||
|
__END__
|
||
| ... | ... | |
|
|
||
|
The legacy name C<from_lxoffice> is still supported.
|
||
|
|
||
|
=item C<end_of_month>
|
||
|
|
||
|
Sets the object to the last day of object's month at midnight. Returns
|
||
|
the object itself.
|
||
|
|
||
|
=back
|
||
|
|
||
|
=head1 AUTHOR
|
||
Auch abrufbar als: Unified diff
DateTime: neue Funktion end_of_month
Setzt $self auf den Start des letzten Tags eines Monats.