[PASCAL] jour, mois, annee => AAAAMMJJ

[dalfred]

Bonjour,

Probleme dans l execution je ne sais pas ou, il n'y a à priori aucune erreur, le but étant de mettre à la suite un jour, un mois et une année entrée, par exemple:

jour:=01 mois:=12 et annee:=2012 on doit avoir 20121201 qui est un entier

program test;

function formatDate(jour, mois, annee : integer) : integer;
var date, motJour, motMois, motAnnee : string; 
	dateNombre, er : integer;
begin
	str(jour, motJour);
	str(mois, motMois);
	str(annee, motAnnee);
	date:=motAnnee+'0'+motMois+'0'+motJour;
	writeln(date);
	val(date, dateNombre, er);
	formatDate:=dateNombre;
end;
begin
writeln(formatDate(2, 3, 1995));
end.

Quand j execute ca me revoie un nombre qui n'a aucun rapport. Apres avoir verifie jusqu a writeln(date) ca marche j obtiens bien le bon nombre qui est une chaine de caractere mais apparemment c'est le val(" ") qui pose probleme, je ne vois pas pourquoi j ai deja utilisé ca.

merci au revoir.
-----

[kwariz]

Hummm ... Si tu as trois entiers A, M et J pour année, mois et jour pour obtenir l'entier AAAAMMJJ il suffit de faire un A*10000+M*100+J ... le tout est de vérifier A,M et J représentent une date valide.

[whoami]

Kai,

Il faut vérifier la taille d'un Integer : 2 ou 4 octets ?

Si c'est 2, alors la valeur obtenue avec tes concaténations dépasse la limite max pour ce type de variable.

[kwariz]

Non c'est bon, fpc utilise des entier 32bit

[A voir en vidéo sur Futura]