Discussion :

[bzh56]

Bonjour,
j'utilise D7Pro, ADO avecACCESS
Existe t il une fonction qui permette de mettre une date de fin de mois à mois + 1.
je gère des dates de paiement expl: paiement a 30jrs au 31/01/2005.
je voudrai que mon progr mette à jour le champ
adotable1['DATE_REGLT'] au 28/02/2005.
Merci
Alain

[Higgins]

Soit tu le fais dans Delphi avant d'insérer la valeur :

Renvoie une date décalée d'un certain nombre de mois.

Unité

SysUtils

Catégorie

routines date/heure

Syntaxe Delphi :

functionIncMonth(constDate:TDateTime;NumberOfMonths:Integer =1):TDateTime;

Syntaxe C++:

externPACKAGE System::TDateTime__ fastcall IncMonth(constSystem::TDateTimeDate,int
NumberOfMonths =1);

Description

IncMonth renvoie la valeur de Date,incrémentée de NumberOfMonths mois NumberOfMonths peut être négatif,pour renvoyer une date de N mois antérieure.

Si le jour du mois en entrée est supérieur au dernier jour du mois résultant,le jour est positionnéau dernier jour du mois résultant.L'heure du jour spécifiée par le paramètre Date est copiée dans le résultat.

Soit tu demandes dans le forum ACCESS s'il existe une fonction pour le faire

[bidochon]

Salut,
J'ai deja fait quelquechose comme cela, qui permettait de calculer les dates d'echeance de paiement, je vais essayer de retrouver le morceau de code, sinon je pense que tu peux t'en sortir assez simplement avec les fonctions : DecodeDate, DaysInMonth et EncodeDate.
Regarde dans l'aide de DELPHI
@ plus

[Pascal Jankowski]

Bonjour,

Juste un petit exemple que tu devras adapter à ton besoin.
Dans le code ci-dessous la fonction getFinDuMois attend en entrée une date sous forme d'un TDateTime. Elle renvoit la date du dernier jour du mois.
Il te sera facile de la modifier pour calculer des échéances.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
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;

En espérant que ce code t'inspire.
Cordialement

[bzh56]

Merci pour vos réponses,
j'ai essayé le modèle décrit par Pascal, et c'est exactement ce que je souhaitai.
Bonne journée .
Alain