Michel,
maybe a PERL example could help you:
sub give_time {
# return date and time in the form: CCYY/MM/DD HH:MM:SS
my @my_time = localtime(time);
return sprintf("%4u/%02u/%02u %02u:%02u:%02u",
($my_time[5] + 1900), ++$my_time[4], $my_time[3],
$my_time[2], $my_time[1], $my_time[0])
}
regards
Reinhold Wagner, Zeuna Staerker GmbH & Co. KG
|