Discussion :

[tarmo57]

Salut tous une fois de plus je demande de l'aide

je ne sais pas comment faire
j'ai une base de donnée ( Paradox ) avec des enregistrements
nom , prénom, date-enregistrement

je voudrais afficher dans un listbox ou dbgrid

le nom ,prenom ,et nombre de jour depuis l'inscription

pour le calcul j'ai pas de probleme je sais faire mais comment afficher et surtout ou écrire mon code ?

merci de votre aide

[liazidf]

salut,
il faut créer un champ calculé fkCalculated, ensuite dans l’événement onCalcfield vous mettez votre code.

[tarmo57]

salut,
il faut créer un champ calculé fkCalculated, ensuite dans l’événement onCalcfield vous mettez votre code.

merci de ton aide
j'ai créer un champs calculé de type date

mais j'ai un problème dans mon code

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
procedure TDataModule2.Query11CalcFields(DataSet: TDataSet);
var
Date2, Date1 : TDate;
Diff, Diff2 : Double;
begin
// la date du jour
Date1:=DateToStr(Date);
// champs date de ma table
Date2:=Datamodule2.Query5.FieldByName('Date_arrive').Asdatetime;
 
Diff := daysBetween(Date1,Date2);
 
fkCalculated:=FloatToStr(Diff);
 
end;

voici le message erreur que j'ai

[Erreur] DataModule21.pas(319): Identificateur non déclaré : 'TDate'
[Erreur] DataModule21.pas(330): La partie gauche n'est pas affectable
[Erreur] DataModule21.pas(330): Types incompatibles : 'TFieldKind' et 'String'
[Erreur fatale] Registre_des_corps.dpr(45): Impossible de compiler l'unité utilisée 'DataModule21.pas'

je dois afficher le format de ma date ?

[JP.NUAGE]

Essaye en remplaçant Tdate par Tdatetime

[tarmo57]

j'ai fais

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
var
Date2, Date1 : Tdatetime;
Diff, Diff2 : Double;
begin
// la date du jour
Date1:=DateToStr(datetime);
// champs date de ma table
Date2:=Datamodule2.Query5.FieldByName('Date_arrive').Asdatetime;
 
Diff := daysBetween(Date1,Date2);
 
fkCalculated:=FloatToStr(Diff);

mais toujours erreur

[Erreur] DataModule21.pas(334): Identificateur non déclaré : 'datetime'
[Erreur] DataModule21.pas(340): La partie gauche n'est pas affectable
[Erreur] DataModule21.pas(340): Types incompatibles : 'TFieldKind' et 'String'
[Erreur fatale] Registre_des_corps.dpr(45): Impossible de compiler l'unité utilisée 'DataModule21.pas'
[Pascal Erreur] DataModule21.pas(1): Impossible d'invoquer l'achèvement de code, du fait d'erreurs dans le code source

[JP.NUAGE]

il ne faut modifier que le Tdate en TDateTime, pas le DateToStr(date) !

[SergioMaster]

il ne faut pas convertir Date

ceci seul suffit

Code :

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

1
2
3
4
5
 
procedure TDataModule2.Query11CalcFields(DataSet: TDataSet);
begin
Datamodule2.Query5.FieldByName('nbjours').asInteger:=daysBetween(Date1,Date2);
end;

nbjours étant déclaré dans le dataset comme champ calculé de type entier

[archonte]

il n'y aurait pas une erreur ligne 12 ? : fkCalculated est une valeur de la propriété FieldKind ! il ne faut pas lui passer le résultat de DaysBetween() !! D'ailleurs ton code ne compile pas et le compilo te l'explique :

[Erreur] DataModule21.pas(334): Identificateur non déclaré : 'datetime'
[Erreur] DataModule21.pas(340): La partie gauche n'est pas affectable
[Erreur] DataModule21.pas(340): Types incompatibles : 'TFieldKind' et 'String'

Un petit sur TDateTime (ligne 2) te donnera l'unité à ajouter dans tes uses ...

Ensuite, d'où vient ta Date1 (ligne 6) ?? d'un champ de texte (de type TEdit ?) auquel cas,

Code :

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

Date1 := StrToDate(MonEdit.Text); // essaie aussi TryStrToDate() ...

j'ai fais

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
var
Date2, Date1 : Tdatetime;
Diff, Diff2 : Double;
begin
// la date du jour
Date1:=DateToStr(datetime);
// champs date de ma table
Date2:=Datamodule2.Query5.FieldByName('Date_arrive').Asdatetime;
 
Diff := daysBetween(Date1,Date2);
 
fkCalculated:=FloatToStr(Diff);

mais toujours erreur

[tarmo57]

merci a tous de votre aide mais je vais faire autrement ,je crois que mon code ne tiens pas la route

[liazidf]

salut,

l'erreur est là :fkCalculated:=fkCalculated:=FloatToStr(Diff);:
NomChamp:=Diff;