Return to Util.pm CVS log | Up to [local] / RT / Invoicing / lib / RTI |
version 1.1, 2011/12/31 02:14:48 | version 1.2, 2011/12/31 02:21:09 | ||
---|---|---|---|
|
|
||
use Carp; | use Carp; | ||
use DateTime; | use DateTime; | ||
our @EXPORT_OK = qw/ ymd_to_DateTime /; | our @EXPORT_OK = qw/ round ymd_to_DateTime /; | ||
sub round { | |||
my ($amount) = @_; | |||
#$amount =~ s/\.\d\d\K.*$//; | |||
#return $amount; | |||
return sprintf "%.02f", $amount; | |||
} | |||
sub ymd_to_DateTime { | sub ymd_to_DateTime { | ||
my ($ymd) = @_; | my ($ymd) = @_; |