Revision 386994b1
Von Moritz Bunkus vor etwa 18 Jahren hinzugefügt
| SL/DATEV.pm | ||
|---|---|---|
| 391 | 391 |
$to =~ s/ //g; |
| 392 | 392 |
|
| 393 | 393 |
if ($from ne "") {
|
| 394 |
my ($fday, $fmonth, $fyear) = split /\./, $from;
|
|
| 394 |
my ($fday, $fmonth, $fyear) = split(/\./, $from);
|
|
| 395 | 395 |
if (length($fmonth) < 2) {
|
| 396 | 396 |
$fmonth = "0" . $fmonth; |
| 397 | 397 |
} |
| ... | ... | |
| 406 | 406 |
$header .= $from; |
| 407 | 407 |
|
| 408 | 408 |
if ($to ne "") {
|
| 409 |
my ($tday, $tmonth, $tyear) = split /\./, $to;
|
|
| 409 |
my ($tday, $tmonth, $tyear) = split(/\./, $to);
|
|
| 410 | 410 |
if (length($tmonth) < 2) {
|
| 411 | 411 |
$tmonth = "0" . $tmonth; |
| 412 | 412 |
} |
| ... | ... | |
| 470 | 470 |
|
| 471 | 471 |
my ($date, $six) = @_; |
| 472 | 472 |
|
| 473 |
($day, $month, $year) = split /\./, $date;
|
|
| 473 |
($day, $month, $year) = split(/\./, $date);
|
|
| 474 | 474 |
|
| 475 | 475 |
if ($day =~ /^0/) {
|
| 476 | 476 |
$day = substr($day, 1, 1); |
| ... | ... | |
| 499 | 499 |
my ($umsatz, $stellen) = @_; |
| 500 | 500 |
|
| 501 | 501 |
$umsatz =~ s/-//; |
| 502 |
($vorkomma, $nachkomma) = split /\./, $umsatz;
|
|
| 502 |
($vorkomma, $nachkomma) = split(/\./, $umsatz);
|
|
| 503 | 503 |
$umsatz = ""; |
| 504 | 504 |
if ($stellen > 0) {
|
| 505 | 505 |
for ($i = $stellen; $i >= $stellen + 2 - length($vorkomma); $i--) {
|
Auch abrufbar als: Unified diff
Syntaxhighlighting für Emacs erleichtert.