manipulation de la date

Version imprimable

07/06/2013, 18h34
adelcrb

manipulation de la date

salam

c'est simple je cherche des fonction sur les dates qui me permette d’avoir la date du début et de la fin de la semaine,mois,trimestre et semestre en cours .

pour avoir le rebut du mois j'ai utilisé ça :

Code:

debutmois:=FormatDateTime('01/mm/yyyy',now);

pour la fin du mois j'ai utilisé ça :

Code:

findumois:=FormatDateTime('30/mm/yyyy',now);

le problème c'est qu'il y a des mois a 31 jours et février 28 jours et 1 fois sur 4 ans il a 29 jours j'ai pensé a faire des condition si mm est dans (01,03,05...11)

Code:

findumois:=FormatDateTime('31/mm/yyyy',now);

mais ça coincera au mois février.

pour le trimestriel et le semestriel j'ai pensé a des conditions aussi
si mm est dans (01,02,03)

Code:

debuttrimestre:=FormatDateTime('01/01/yyyy',now);

Code:

fintrimestre:=FormatDateTime('31/03/yyyy',now);

même chose pour le semestre mais c'est pas trop pratique et précis j'aimerai bien savoir s'il y a des fonction qui me faciliteront la tache et merci d'avance .
07/06/2013, 18h55
Charly910

Bonjour,

pour la date de fin de mois tu as une fonction ici

A+

Charly
07/06/2013, 19h36
adelcrb

Citation:

Envoyé par Charly910

Bonjour,

pour la date de fin de mois tu as une fonction ici

A+

Charly

merciii pour fin du mois ça marche impeccable je vais essayer de reproduire la fonction de manière qu'elle me sorte les fins du semestre et trimestre mais le gros problème c'est les début et fin de semaine.

pour fin de trimestre j'ai essayé ça :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
function getFinDutrimestre(_date: TDateTime):TDateTime;
var d,m,y: word;
 
  function getMaxmonth(mois: word):word;
  begin
    case mois of
      1,2,3: result := 1;
      4,5,6: result := 4;
      7,8,9: result := 9;
      else result := 12;
    end;
  end;
 
begin
  decodeDate(_date,y,m,d);
  result := encodeDate(y,getMaxmonth(m),31);
end;

mais j'ai une erreur :argument incorrect pour l'encodage de date ...:(

07/06/2013, 22h59
Jipété
Citation:

Envoyé par adelcrb

(...) mais j'ai une erreur :argument incorrect pour l'encodage de date ...:(

Normal, le 31 juin n'existe pas, pas plus que le 31 septembre :aie:

Et je me faisais la réflexion suivante, en lisant le nom de ta fonction, getFinDutrimestre : y a pas une erreur, là ? :
Code:

1 2 1,2,3: result := 1; 4,5,6: result := 4;
Je pense que ça devrait être
Code:

1 2 1,2,3: result := 3; 4,5,6: result := 6;
au vu des lignes des deux autres "result".

Enfin, j'ai pas lu tout le code, alors peut-être que je dis une bêtise, à voir...

Par contre, ton histoire de 31 ça va foirer que tu prennes 4 ou 6, tu l'as vu.
C'est pas comme ça qu'il faut calculer la fin d'un trimestre (mais je ne sais pas comment, et j'ai autre chose à faire...)

Citation:
Envoyé par Jipété
Normal, le 31 juin n'existe pas, pas plus que le 31 septembre :aie:

Et je me faisais la réflexion suivante, en lisant le nom de ta fonction, getFinDutrimestre : y a pas une erreur, là ? :
Code:

1 2 1,2,3: result := 1; 4,5,6: result := 4;
Je pense que ça devrait être
Code:

1 2 1,2,3: result := 3; 4,5,6: result := 6;
au vu des lignes des deux autres "result".

Enfin, j'ai pas lu tout le code, alors peut-être que je dis une bêtise, à voir...

Par contre, ton histoire de 31 ça va foirer que tu prennes 4 ou 6, tu l'as vu.
C'est pas comme ça qu'il faut calculer la fin d'un trimestre (mais je ne sais pas comment, et j'ai autre chose à faire...)
merci je vien de le corriger et ça donne
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 function getFinDutrimestre(_date: TDateTime):TDateTime; var d,m,y: word; function getMaxmonth(mois: word):word; begin case mois of 1,2,3: result := 3; 4,5,6: result := 6; 7,8,9: result := 9; else result := 12; end; end; begin decodeDate(_date,y,m,d); case m of 1,2,3,10,11,12:result := encodeDate(y,getMaxmonth(m),31); else result := encodeDate(y,getMaxmonth(m),30); end; end;
maintenant il me reste que les date du weekend et croyez moi j'ai aucune de comment le faire.

08/06/2013, 08h51
Jipété
Oh la la, non mais c'est pas vrai !

Tu le fais exprès ou quoi ?
Citation:
Envoyé par adelcrb

Code:

1 2 3 4 case m of 1,2,3,10,11,12:result := encodeDate(y,getMaxmonth(m),31); else result := encodeDate(y,getMaxmonth(m),30); end;
T'es au courant que le mois de février n'a que 28 jours, sauf des fois 29 ? Et que le mois de novembre n'en a que 30 ?
Et ils sont où, mai, juillet, août ?
Y a tout qui va foirer dans ton bazar...

Citation:

Envoyé par adelcrb

maintenant il me reste que les date du weekend et croyez moi j'ai aucune de comment le faire.

Jette un oeil à l'aide, rubrique DateUtils
08/06/2013, 08h52
SergioMaster
Bonjour,
ça dépend quand même pas mal de la version de Delphi tout ça
Sous D3 j'ai été obligé de faire mes propres fonctions

Depuis D7 (et peut être avant je ne sais pas depuis quelle version) l'unité dateutils fourni beaucoup de fonctions

pour les mois StartOfTheMonth,EndOfTheMonth,StartOfAMonth,EndOfAMonth
Pour les semaines StartOfTheWeek,EndOfTheWeek,StartOfAWeek,EndOfAWeek
Rien pour les trimestres cependant, mais cela doit être facile a manipuler, quelque chose comme ceci ?
Code:

1 2 3 4 5 6 7 function getFinDutrimestre(_date: TDateTime):TDateTime; var d,m,y: word; begin decodeDate(_date,y,m,d); Result:=EncodeDate(y,(((m-1) div 3)*3)+3 ,1); Result:=EndOfTheMonth(result); end;
je laisse la fonction getDebutDuTrimestre a ton imagination ...

pour les semaines trop simple , puisque les fonctions sont déjà là :ccool: reste juste à lire la norme ISO8601 par curiosité
Code:

1 2 3 4 function IsWeekEnd(_Date : TDateTime) : Boolean; begin Result:=(DayOfTheWeek(_Date)>=6); end;
08/06/2013, 12h50
adelcrb

Citation:

Envoyé par Jipété

Oh la la, non mais c'est pas vrai !

Tu le fais exprès ou quoi ?

T'es au courant que le mois de février n'a que 28 jours, sauf des fois 29 ? Et que le mois de novembre n'en a que 30 ?
Et ils sont où, mai, juillet, août ?
Y a tout qui va foirer dans ton bazar...

c'est une fonction qui calcule la fin de trimestre donc tous les mois qui sont en premier trimestre vont prendre la date de 31/03... février y compris.

Citation:

Envoyé par SergioMaster

Bonjour,
ça dépend quand même pas mal de la version de Delphi tout ça
Sous D3 j'ai été obligé de faire mes propres fonctions

Depuis D7 (et peut être avant je ne sais pas depuis quelle version) l'unité dateutils fourni beaucoup de fonctions

pour les mois StartOfTheMonth,EndOfTheMonth,StartOfAMonth,EndOfAMonth
Pour les semaines StartOfTheWeek,EndOfTheWeek,StartOfAWeek,EndOfAWeek
R

pour les mois, trimestres et les semestres ça y est je les est fini

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
function getFinDuMois(_date: TDateTime):TDateTime;
var d,m,y: word;
 
  function getMaxDay(mois,annee: word):word;
  begin
    case mois of
      4,6,9,11: result := 30;
      2: if IsLeapYear(annee) then result := 29
          else result := 28;
      else result := 31;
    end;
  end;
 
begin
  decodeDate(_date,y,m,d);
  result := encodeDate(y,m,getMaxDay(m,y));
end;
function getFinDutrimestre(_date: TDateTime):TDateTime;
var d,m,y: word;
 
  function getMaxtrimestre(mois: word):word;
  begin
    case mois of
      1,2,3: result := 3;
      4,5,6: result := 6;
      7,8,9: result := 9;
      else result := 12;
    end;
  end;
 
begin
  decodeDate(_date,y,m,d);
  case m of
   1,2,3,10,11,12:result := encodeDate(y,getMaxtrimestre(m),31);
    else result := encodeDate(y,getMaxtrimestre(m),30);
   end;
 
end;
function getdebutDutrimestre(_date: TDateTime):TDateTime;
var d,m,y: word;
 
  function getMaxtrimestre(mois: word):word;
  begin
    case mois of
      1,2,3: result := 1;
      4,5,6: result := 4;
      7,8,9: result := 7;
      else result := 10;
    end;
  end;
 
begin
  decodeDate(_date,y,m,d);
  result := encodeDate(y,getMaxtrimestre(m),1);
 
 
end;
function getdebutDusemestre(_date: TDateTime):TDateTime;
var d,m,y: word;
 
  function getMaxsemestre(mois: word):word;
  begin
    case mois of
      1,2,3,4,5,6: result := 1;
      else result := 7;
    end;
  end;
 
begin
  decodeDate(_date,y,m,d);
  result := encodeDate(y,getMaxsemestre(m),1);
 
 
end;
function getfinsemestre(_date: TDateTime):TDateTime;
var d,m,y: word;
 
  function getMaxsemestre(mois: word):word;
  begin
  case mois of
     1,2,3,4,5,6: result := 6;
      else result := 12;
 
  end;
  end;
 
begin
  decodeDate(_date,y,m,d);
  case m of
  1,2,3,4,5,6: result := encodeDate(y,getMaxsemestre(m),30)
  else result := encodeDate(y,getMaxsemestre(m),31);
  end;
end;

je vai me penché sur les semaines ... merci

08/06/2013, 15h26
adelcrb

Pour les semaines j'ai utilisé :StartOfTheWeek,EndOfTheWeek,StartOfAWeek,EndOfAWeek

merci SergioMaster

bon jour
pour la fin du mois je vous propose cette methode

Code:

1
2
3
4
procedure TForm1.Button1Click(Sender: TObject);
begin
form1.DateTimePicker1.Date := strtodate (FormatDateTime('01/mm/yyyy', IncMonth(DateTimePicker1.Date)))-1 ;
end;

en peux incremente une date comme ca

Code:

date := date +1 ;

alor mois je chercher le premier du mois suivent - une journé (-1)

pour la fin du trimestre

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
procedure TForm1.Button2Click(Sender: TObject);
var mois : word;
begin
mois := MonthOf(form1.DateTimePicker1.Date ) ;
if mois < 4 then 
DateTimePicker1.Date:= strtodate (FormatDateTime('31/03/yyyy',DateTimePicker1.Date))
else
  if mois < 7 then 
DateTimePicker1.Date:= strtodate (FormatDateTime('30/06/yyyy',DateTimePicker1.Date))
else
  if mois < 10 then 
DateTimePicker1.Date:= strtodate (FormatDateTime('30/09/yyyy',DateTimePicker1.Date))
else
DateTimePicker1.Date :=strtodate (FormatDateTime('31/12/yyyy',DateTimePicker1.Date));
 
 
end;

A+

08/06/2013, 18h44
SergioMaster
Citation:

Envoyé par adelcrb

pour les mois, trimestres et les semestres ça y est je les est fini
Code:

1 2 function getFinDuMois(_date: TDateTime):TDateTime; var d,m,y: word;
pourquoi faire complexe quand il y a la Fonction EndOfTheMonth ? :roll:

Quant à autres fonction , je pense que la fonction que j'ai proposée est plus compacte , il est facile de la transformer pour les semestres

Bonjour,

pour début et fin de semaine, il y a peut-être des fonctions ? Sinon :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
{ ======================================================================= }
procedure TForm1.Button1Click(Sender: TObject);
Var
   Date1, DebSem, FinSem : TDateTime ;
   NumJour : Word ;     // Numéro du jour de la semaine de date1 : lundi := 1
begin
   ShortDateFormat := 'dd/mm/yyyy' ;
   Date1  := form1.DateTimePicker1.Date ;
   NumJour := DayOfTheWeek(Date1);
   DebSem := Date1 - NumJour + 1 ;
   FinSem := DebSem + 6 ;
   Label1.Caption := DateToStr(DebSem) ;
   Label2.Caption := DateToStr(FinSem) ;
end;
{ ======================================================================= }

A+

Charly

04/07/2013, 16h24
DZDJAMAL

Bonjour tout le monde
tout simplement pour avoir les dates de début et fin de semaine utilise la fonction DayOfTheWeek qui donne un résultat (1 au 7) ==> (Dimanche au samedi).
et pour la fin de mois tout simplement trouve la date début de prochain mois - un jour tu aura la date de mois en cours et de cette façon tu peux calculer les date fin trimestre, semestre, ....