![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to Util.pm CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / RT / Invoicing / lib / RTI|
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) = @_; |