Bonjour à tous,

voilà dans mon programme pour chercher si il y a un anniversaire aujourd'hui je teste LE jour de l'année avec celui de la date de naissance de la personne, par exemple :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
 
TDate d = Now() ;
TDate date = Q_Ajouter->FieldByName("dateNaissance")->AsDateString;
if(DayOfYear(date) == DayOfYear(d))
{
  HAPPY BIRTHDAY !
}
Bref ce code marche, mais pas pour toutes les années, j'explique :
Des fois j'ai un décalage d'un jour entre la vraie date d'anniversaire et celle que je trouve, notamment avec les années 2000 et 1840.
Evidemment j'ai pensé aux années bissextiles, mais je sais pas comment vérifier cette théorie, et surtout comment remédier à ce problème !


Second problème, j'ai un TImage qui affiche donc une image, j'aimerai qu'il libère l'image pour qu'il redevienne "vide" si possible, y a une méthode pour ça ?

Merci bcp.