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

Reply via email to