RE: Problem when insert date value in SQL Server

[Illera, Fernando]

Thank you very much, Simon.

The insert transaction has made succesfully after aplying the convert
subroutine you suggested.

Thanks a lot for your help.
Fernando Illera

-----Mensaje original-----
De: Simon Oliver [mailto:[EMAIL PROTECTED]
Enviado el: lunes, 24 de marzo de 2003 15:35
Para: Illera, Fernando
CC: [EMAIL PROTECTED]
Asunto: Re: Problem when insert date value in SQL Server


Illera, Fernando wrote:
> Thanks Mac.
> 
> I have tried as you recommended:
> 
> my($now) = time();
Here's your problem.

time() returns the number of seconds since the epoch which I think DBMS 
will struggle with.

You need to convert that time() value to something more usefull, you
might 
  get away with this:

my $now = localtime($now);

If not try one of these:

sub time_to_SQL {
        my $tm = shift;
        my @months = (Jan,Feb,Mar,Apr,May,Jun,Jul,Aug,Sep,Oct,Nov,Dec);
        my ($sec, $min, $hour, $day, $mon, $year) = (gmtime $tm)[0..5];
        $mon = $months[$mon];
        return (sprintf "%02u %03s %4u %02u:%02u:%02u",
                        $day, $mon, $year + 1900, $hour, $min, $sec);
}


sub time_to_ODBC {
        my $tm = shift;
        my ($sec, $min, $hour, $day, $mon, $year) = (gmtime $tm)[0..5];
        return (sprintf "%4u-%02u-%02u %02u:%02u:%02u",
                        $year + 1900, $mon+1, $day, $hour, $min, $sec);
}

-- 
   Simon Oliver