PC SOFT

PROFESSIONAL NEWSGROUPS
WINDEV, WEBDEV and WINDEV Mobile

|
|
|
US
Home → WINDEV 2024 → dernier jour du mois automatique
dernier jour du mois automatique
Started by yves, Sep., 21 2004 5:48 PM - 5 replies
#1
Posted on September, 21 2004 - 5:48 PM
y a-t-il une astuce pour proposer automatiquement le dernier jour du mois ?

Merci.
yves
#2
Posted on September, 21 2004 - 3:04 PM
PC Soft a été une fois de plus brillant pour celle-ci en WD8.
On ne peut plus simple.... une vraie merveille!

DteFinMois est une date // par défaut = DateSys()
DteFinMois..Jour1 // donne automatiquement le dernier jour du mois

Réal (Phil)
#3
Posted on September, 21 2004 - 5:55 PM
"Yves T" <yves@ncmedia.ch> wrote in news:415030db@news.pcsoft.fr:


y a-t-il une astuce pour proposer automatiquement le dernier jour du
mois ?

Merci.
yves




d est une Date = DateSys

d..Mois++ //Mois prochain
d..Jour = 1 //1er jour du mois prochain
d..Jour-- //Dernier jour de ce mois
Info("Le dernier jour de ce mois est : " + d..Jour)

A+

PS: Il y a p-e plus simple, mais je fais ça rapidement.

--
N. Kevin
#4
Posted on September, 21 2004 - 6:08 PM
Bonjour,
Le support a traité ce problème comme suis dans le rubrique 'La saviez vous'.
Je pense que c'est ta solution.


pcsoft.fr.windev

[Re: [16/09/2004] Le Saviez-Vous ?]

"Le Support Technique Gratuit" <supportgratuit@pcsoft.fr> a écrit dans le
message de news:4149b556@news.pcsoft.fr...

Bonjour,

Les propriétés "Jour", "Mois" et "Année" utilisées avec les opérateurs ++

, -- , += et -= permettent de réaliser très simplement des calculs sur
les dates en prenant en compte du nombre de jours par mois et les années
bissextiles.


Exemple : pour obtenir le nombre de jours du mois de février quelque soit

l'année

MaDate est une Date = "20030201" // année 2003, mois de février
MaDate..Jour = 31 // dernier jour du mois
Trace(MaDate..Jour) // retourne 28
MaDate..Année++ // année suivante
MaDate..Jour = 31 // dernier jour du mois
Trace(MaDate..Jour) // retourne 29


Autre exemple : calculer la fin d'un mois flottant

DateDébut est une date = "20011025"
DateFin est une date = DateDébut
DateFin..Mois++ // mois suivant
DateFin..Jour-- // jour précédent
Trace(DateFin) // retourne 20011124

---
Cordialement,
Le Support Technique Gratuit


BonDev
#5
Posted on September, 21 2004 - 6:18 PM
"Kevin N." <noel.kevin@skynet.be> wrote in
news:Xns956BA2339BDEAnoelkevinskynetbe@81.80.226.155:


"Yves T" <yves@ncmedia.ch> wrote in news:415030db@news.pcsoft.fr:


y a-t-il une astuce pour proposer automatiquement le dernier jour du
mois ?

Merci.
yves




d est une Date = DateSys

d..Mois++ //Mois prochain
d..Jour = 1 //1er jour du mois prochain
d..Jour-- //Dernier jour de ce mois
Info("Le dernier jour de ce mois est : " + d..Jour)

A+

PS: Il y a p-e plus simple, mais je fais ça rapidement.


d est une Date = DateSys
d..Jour = 31
Info("Le dernier jour de ce mois est : " + d..Jour)

Voilà encore plus court...

--
N. Kevin
#6
Posted on September, 21 2004 - 6:25 PM
faire -1 jour sur le AAAAMMJJ

Message(EntierVersDate(DateVersEntier(Gauche(DateSys(),6)+"01")-1))
Salutations
→ Go back to WINDEV 2024