datetimpicker

salut a tous
je souhaite savoir comment recupérer le premier jour du mois en cours dans un datetimepicker si kelkun a la solution merci de m'ecrire

Salut,

Si j'ai bien compris la question, voici une fonction :

function FirstDay(ADate: TDate): TDate;
var Y, M, D: Word;
begin
  DecodeDate(ADate, Y, M, D);
  Result := EncodeDate(Y, M, 1);
end;

Qui te permet de récupérer le premier jour du mois affiché dans le DateTimePicker en procédant ainsi :

procedure TForm1.DateTimePicker1Change(Sender: TObject);
var
  FirstDayOfMonth: TDate;
begin
  FirstDayOfMonth := FirstDay(DateTimePicker1.Date);
  Edit1.Text := DateToStr(FirstDayOfMonth);
end;

Bonne prog'

merci j'essai et je vous tien au courant

joli jappe, mais sais tu que la fonction que tu viens de nous ecrire existe deja?
regarde du cote de StartOfTheMonth, StartOfAMonth, ... (dans l'unite DateUtils)

dans ton cas :
LePremierJourDeMonMois := StartOfTheMonth(DateTimePicker1.Date);

@Guillemouze : oui, c'est vrai. Comme je ne dispose pas de DateUtils sous D4, il m'arrive souvent de réinventer la roue.
Je suis allé regarder la fonction StartOfTheMonth ... c'est exactement la même (et j'avais pas triché, craché juré)...

Comme quoi ça doit être la manière la plus évidente d'y arriver

Ca m'éclate...

tiens, prend celle la, t'aura plus besoin de la reinventer :

et voici son implementation, si tu veux jeter un oeil

Lol.
Bon, maintenant qu'on l'a inventée, va falloir trouver à quoi ça sert...

Cette implémentation est assez sympa, je trouve :

moi je la trouve pas terrible, elle est pas fondée sur des bases fiables. On met pas un crick sur de la terre meuble !

quant a son utilité ..... je pense que c'est une sorte de vetement a en croire ton image.
En tout cas je dis balèse, c'est pas leger une roue

« On met pas un crick sur de la terre meuble ! »
A mon avis, vue la tenue, elle a été surprise par un incident fortuit.

«  va falloir trouver à quoi ça sert »
Le concept de la roue est surtout intéressant si on considère son corrélat :  l'axe. 
Celui-ci, bien qu'absent sur cette jolie implémentation, semble être fortement espéré en vue d'un dépannage rapide qui sera gratifié.


...Ou alors, j'ai rien compris au code. 

Mais j'aime bien les jantes larges.

... Ou c'est le coup de la panne.