Une date depassée. Mais averti!

Question

Salut!


C'est ma premiére fois de participer dans ce site.
Je profite de l'occasion de poser ma question si vous me le permettez.
J'utilise une toute petite base de donnée ayant les champs suivants: nom_client, date_payement et date_payement_depasse.
Et sur mon Form les composants suivants: TdateTimePicker1, un TTimer1 et un Dbgrid.
Mon objectif est de permettre à l'utilisateur que je suis de pouvoir toujours être averti d'une date limite passée. 
Je m'explique pour de plus amples éclaircissement: 
je saisi tout le payement fait en cours. Mais la date limite de chaque payement d'un client devra être fait tout au plus tard chaque le 5 du mois.
Depassé ce jour, un message d'avertissement me devra être affiché.


voici mes codes:


...TTimer...
begin
TdateTimePicker1.datetime:= date;//atualiser toujours la date
if AdoTable1.filter:='date_payement_depasse=' +dateToStr(TdatetimePicker1.datetime);//filtrage du champ
AdoTable1.Filtered:= true;
then begin
date_payement_depasse > TdateTimePicker1
end else
ShowMessage('date limite depassée');
end;

cs_cantador · Answer

hé, il faudra déjà que le message arrive avant le 5 sinon c'est cuit..
pour choisir le jour J utilise la fonction DayOfTheMonth.

cantador

Une date depassée. Mais averti!

1 réponse

Votre réponse

Discussions similaires