data di uso:: Qw di Calc (: tutti);
il miei @mon = qw (gennaio febbraio marzo aprile può giugno luglio agosto settembre ottobre novembre dicembre);
_getCOB secondario {
il mio @date = oggi ();
# commentato fuori dato che usato
#my $dow = Day_of_Week (@date);
mio $date = $date [2]. “-„. $mon [$date [1]]. “-„. $date [0];
$date di ritorno;
}
mio $cob_date = &_getCOB ();
mio $cob_date1 = si uniscono “: „, Ora ();
stampa $cob_date, “\ t„, $cob_date1,„ \ n ";
|