utilisateurAAA
Messages postés8Date d'inscriptionjeudi 12 février 2009StatutMembreDernière intervention 7 avril 2009
-
7 avril 2009 à 12:37
cs_cantador
Messages postés4720Date d'inscriptiondimanche 26 février 2006StatutModérateurDernière intervention31 juillet 2021
-
8 avril 2009 à 16:40
Bonjour à vous tous,
Comment faire pour limiter la date d'enregistrement & qu'elle soit <= la date d'aujourd'hui dans une fiche?
cs_cantador
Messages postés4720Date d'inscriptiondimanche 26 février 2006StatutModérateurDernière intervention31 juillet 202113 7 avril 2009 à 14:23
bonjour,
procedure TForm1.Button1Click(Sender: TObject);
begin Var
MaDate : TDateTime;
begin
if MaDate <= Now then
begin
// Ton code de stockage
end;
end; end; à adapter à ton problème..
utilisateurAAA
Messages postés8Date d'inscriptionjeudi 12 février 2009StatutMembreDernière intervention 7 avril 2009 7 avril 2009 à 14:44
Je vous remercie beaucoup "cantador" d'avoir répondu à mon souci, mais ça marcherai si je l'utilise sur DBEdit? (svp)
Merci et j'espère que je vous dérange pas trop.
Cordialement.
cs_cantador
Messages postés4720Date d'inscriptiondimanche 26 février 2006StatutModérateurDernière intervention31 juillet 202113 8 avril 2009 à 16:40
procedure TForm1.Button1Click(Sender: TObject);
var
MaDate: TDateTime;
stodate: string;
begin
stodate := '09/04/2009';
if StrToDate(stodate) >= date then
showmessage('sup')
else
showmessage('inf');
end;
Désolé, mais il vaut mieux utiliser date car now donne un format étoffé avec hh:mm:ss et vraisemblablement ton format de stockage sera en DATE ou en TEXT..(sauf cas exceptionnel, on teste les dates courtes..)
Oui, bien sûr, on peut faire ces tests avec un DBEdit, cela ne change rien..
il faut seulement bien vérifier les formats de comparaison qui doivent être identiques !