Bonjour tt le monde ;-)

Je travail sur un petit projet ., et j'ai trouvé la difficulté suivante :

J'utilise un TTable avec des champs y compris un champs en Format date, et un TDBGrid, ce que je cherche à savoir : est ce qu'il y a une fonction qui me permet d'ouvrir ma table en mode lecture seule si la date est >=7 jours après la première date d'enregistrement .

Merci à l'avance de me répondre.

haftari.fouad

Salut ,
on peu etuliser sa comme solution !!
if ADOTable1.RecordCount >= i theen
DBGrid1.ReadOnly:=True ;

voila

Ou en peu etuliser ceci :
var  XD,FD:TDate ;
SS: integer ;
Begin
//XD:= 12;
ADtest.Last ;
FD :=ADtestenregistrement.Value ;
XD:=12 ;
SS:=dateutils.DaysBetween(FD,XD) ;
if SS >=XD then
ADtest.ReadOnly;
n'oublie pas de declarer Dateutils dans le uses
bonCoding

et aussi on peut etuliser IncDay  de la Classe DateUtils qui renvoie le no,bre entre 2 date .

Napster

@++

Merci merci bcp Monsieur Napster c'est trés importante votre réponse ;-)

@Napster :
IncDay ne renvoie pas le nombre entre deux dates
mais incrémente la Date (aValue) de X jours (aNumberOfDays)

function IncDay(const AValue: TDateTime;
  const ANumberOfDays: Integer = 1): TDateTime;


 
@+
Cirec

---

A noter que l 'on peut soustraire les dates aussi :
Jours: Double;
Jours := abs(date1-date2) pour savoir l' écart entre les 2 dates.
Il me semble que le nombre de jours est la partie entier de la variable Jours.
NbJours: Integer;
NbJours := int(Jours)

A+