convertir un date

existe t-il une fonction qui converti une date au format jj/mm/aaaa eu format mm/jj/aaaa?

merci de vos reponce.

Salut

Pas de conversion directe d'un format à l'autre (il y a tellement de choix dans les dates)

Il faut convertir la date en TDateTime et utiliser une fonction (DateTimeToString par exemple) pour la mettre dans la forme voulue

Ken@vo

---

Code, Code, Codec !

Salut,
Directement non, il n'y a pas de fonction pour faire ce que tu veux. Tu peux cepandant passer par une variable TDate et ensuite convetir ou directement utiliser la fonction ci dessous.

---

uses
  [...], SysUtils;

function MMJJAAAA(const JJMMAAAA: string): string;
begin
  Result:=FormatDateTime('mm/dd/yyyy',StrToDate(JJMMAAAA));
end;

---

 
@ ++ Florent

Si tu ne te plantes pas ......
tu ne poussera jamais

Ah Kenavo, tu m'as doublé à la vitesse de frappe au clavier !
On se revoit pour la revanche (même s'il n'y en aura pas).

@ ++ Florent

Si tu ne te plantes pas ......
tu ne poussera jamais

en faite mon veritable probleme c'est celui-la :
je n'arrive pas à faire fonctionné cette requête et ca vient de la date.
je ne sais pas par quoi l'entouré. #..# ou {..}

voici la requete :

  Enregistre.SQL.Text := 'Insert Into Affaire Set (Nom_Aff, Date_Aff) Values (''' + Atxt_Nom_Aff.Text + ''', ' + datetostr(calendrier.Date) + ' )' ;

Je pense alors que le problème ne vient pas de Delphi, mais plutôt de ton SGBDR...
Vérifie, mais en SQL, dans la plupart des cas, il me semble qu'il te faut passer les dates entre quotes, comme ceci :

Enregistre.SQL.Text := 'Insert Into Affaire Set (Nom_Aff, Date_Aff) Values (''' + Atxt_Nom_Aff.Text + ''', ''' + datetostr(calendrier.Date) + ''' )' ;


Ensuite, selon ton SGBDR, tu auras sûrement une fonction te permettant de préciser sous quel format tu passes ta date... Par exemple, sous Oracle, il faut que tu fasses ta requête comme ceci (si calendrier.Date est au format jj/mm/yyyy) :

Enregistre.SQL.Text := 'Insert Into Affaire Set (Nom_Aff, Date_Aff) Values (''' + Atxt_Nom_Aff.Text + ''', to_date(''' + datetostr(calendrier.Date) + ''', ''DD/MM/YYYY'') )' ;


Keep Cool & Be Wild
Divad

ok merci, je vais voire et je te donne des news.

soit sq: string, et le champ date_aldd :datetime

query3.Active := false;
query3.SQL.Clear ;
 sq:= 'select  count(*)    from ydroit where date_aldd =  #'+
ii+'/'+'01'+'/'+edit2.Text+'#and  date_aldd <  #' +
ii+'/'+  j  +'/'+edit2.Text+'#' ;
query3.SQL.Add( sq   );
query3.Active := true;

Essaye d'exploiter!