comparaison de deux date dans une base de donnée

Question

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

cs_Napster · Answer

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

cs_Napster · Answer

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

cs_Napster · Answer

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

HAFTARIFOUAD · Answer

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

Cirec · Answer

@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

<hr siz="" />

cs_MAURICIO · Answer

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+

Comparaison de deux date dans une base de donnée

6 réponses

Votre réponse

Discussions similaires