Discussion :

[tomm]

bonjour ,comment récuperer seulement l'année d'un champ "date de naisssance"pour le mettre dans un autre champ string 'annee"
merci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Table1.Edit;
 trunc(Table1.FieldByName('Date de naissance').AsDatetime):=Table1.FieldByName('annee').AsString;
 Table1.Post;

ça ne marche pas mais il doit y avoir un truc comme ça
merci

[MoitieDeCigare]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
var MonAnnee:word;
MonAnnee:=YearOf(Table1.FieldByName('Date de naissance').AsDatetime);

[tomm]

merci
il me dit YearOf non déclaré
merci

[MoitieDeCigare]

ha pardon ! Il faut déclarer l'unité DateUtils, de mémoire !

[Seb]

Salut,

Tu utilises quelle version de Delphi? Je crois (à confirmer) que la fonction n'est définie qu'à partir de Delphi 5 (dans l'unité DateUtils).

Sinon as-tu ajouté dans les Uses le DateUtils?
Cela change-t-il quelque chose?

Autre possibilité : passer par DecodeDate.

A+,

Seb.

[tomm]

merci pour dateutils

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Table1.FieldByName('annee').AsString:=YearOf(Table1.FieldByName('Date de naissance').AsDatetime);

il me dit [Erreur] Unit2.pas(617): Types incompatibles : 'String' et 'Word'

merci

[Seb]

Re,

Le YearOf te renvoie un Word et tu veux le mettre dans une chaîne de caractères.

Essayes :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Table1.FieldByName('annee').AsString:=IntToStr(YearOf(Table1.FieldByName('Date de naissance').AsDatetime));

A+,

Seb.

[tomm]

resalut,
j'ai fait

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
procedure TForm2.EditDatedenaissanceChange(Sender: TObject);
 begin
  table1.edit;
   Table1.FieldByName('annee').AsString:=IntToStr(YearOf(Table1.FieldByName('Date de naissance').AsDatetime));
    table1.post;
 end;

mais il me dit
le projet a provoqué une classe d'exception Econvertor Error avec le message "0604/19/95' n'est pas une date correcte
merci

[MoitieDeCigare]

Quelle valeur as tu dans 'Date de naissance' ? Apparemment ce n'est pas une date valide

[tomm]

ma valeur est 06/04/1995
j'ai enlevé edit mask au champ date de naissance et là je n 'ai plus le message.ça marche pour la premier enregistrement et qUAND JE ME DéPLACE AVEC LE DBNAVIGATOR IL ME DIT DE SUITE TABLE PAS EN MODE EDITION OU INSERTion
merci

[tomm]

Voilà

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
table1.edit;
   Table1.FieldByName('annee').AsString:='';
   table1.Post;
   table1.Edit;
  Table1.FieldByName('annee').AsString:=IntToStr(YearOf(Table1.FieldByName('Date de naissance').AsDatetime));
  table1.post;

je l'ai mis au click du bouton enregistrement de la fiche et plus au change du dbedit et ça marche.Par contre il a fallu que je rajoute les 3 premieres lignes au cas ou l'utilisatuer changerait la date de naissance pendant la session avec DBisave changes au comosanttable after post
par contre je ne sais si c'est le meilleur endroit pour le code.
merci

[denisdoc]

tu peux aussi utiliser la fonction

copy

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
table1.edit;
Table1.FieldByName('annee').AsString:=copy(Table1.FieldByName('Date de naissance').astring,7,4);
table1.post;