На Perl:
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime(time);
$year += 1900; $mon++;
($mday < 10) and ($mday = \\"0$mday\\");
($mon < 10) and ($mon = \\"0$mon\\");
($hour < 10) and ($hour = \\"0$hour\\");
($min < 10) and ($min = \\"0$min\\");
($sec < 10) and ($sec = \\"0$sec\\");
$date = \\"$year-$mon-$mday $hour:$min:$sec\\";
А что подаришь?