Bonjour, voici mon problème :

J'ai une base de données SYBASE contenant deux champs :
un champs "datechangement" au format DATE
un champs "heure_creation" au formate TIME

Lorsque je récupère "datechangement" j'obtiens bien la date contenue dans la base mais aussi une heure "bidon" qui m'embête beaucoup.
En clair dans la base j'ai : Jan 2 2007
et à l'affichage j'ai : Jan 2 2007 12:00AM


Pour l'heure_creation dans la base si je fais un select j'obtiens bien une heure mais en PERL quand je fais le SELECT heure_creation j'obtiens l'heure ET une date "bidon"
En clair dans la base j'ai : 1:04PM
et à l'affichage j'ai : Jan 1 1900 1:04PM

J'ai essayé avec timelocal() mais ça ne marche pas..
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
 
#affichage de la date
ref[0] : Nov 18 2006 12:00AM
#resultat avec timelocal
sec=>0 min->0 heures->1 jour->1 mois->0 an->70
Merci d'avance.

Codes sources :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
#!/soft/perl/bin/perl -I/data/web/cmia/lib 
 
use strict;
use warnings;
use diagnostics;			# display better warning information
use CGI::Carp qw(fatalsToBrowser);	# display errors to browser
use CGI qw/:standard/;
use CGI;
use Time::Local; 
 
use DB::DB_documentation;
use Data::Dumper;
 
# Connect Base
 
my $SYBASE_BASE='documentation';
my $connection = DB_documentation::connect($SYBASE_BASE);
 
my $requete = "SELECT datechangement FROM FormChangementProd";
my $sth = $connection->prepare($requete);
	$sth->execute();		
 
my @ref = $sth->fetchrow_array; 
 
my ($secondes, $minutes, $heures, $jour_mois, $mois, $annee, $jour_semaine, $jour_calendaire, $heure_ete)=localtime($ref[0]);
 
print	header,
	start_html(
			-style		=> {	'src'	=> "a"},
			-script		=> {	'src'	=> "b.js"},
			-author		=> '*',
			-meta		=> {	'Keywords'	=> "",
						'Copyright'	=> '*'},
			-title		=> "titre",
		),"<br>ref[0] : ".$ref[0],
		"<br>","sec->".$secondes," min->".$minutes," heures->".$heures," jour->".$jour_mois," mois->".$mois," an->".$annee,
		 #$jour_semaine, $jour_calendaire."-", $heure_ete."-";
	end_html();