[RÉSOLU]date difference et suppression

[Clovis47]

Bonjour à tous, je suis novice en programmation sous windev 16, et j'ai un soucis.
j'ai une colonne "date_envoie" et une colonne case a cocher si opération faite ou pas, je désire faire une recherche de cette "date_envoie", et si celle ci est inférieure de 30 jours avec la date du jour et si la case a cocher est à faux, la supprimer, et toutes celles sur le même critère.
pouvez vous m'aider ? merci à vous

[Daniel-Québec]

Bonjour,

Nul besoin d'aide pour cela, il suffit que tu regardes l'aide en ligne (index : date) et tu auras ta réponse en fouillant un tout petit peu.
Aider, oui, mais il faut quand même faire un effort à la base...
Analyse la doc, fait un bout de code, et là je t'aiderai avec un grand plaisir

Bon dev ! Daniel

[Clovis47]

Daniel, bonjour, j'avais bien regardé l'aide, mais n'avais pas trouvé ce que je recherchais, d’où ma question sur le forum.
il faut dire aussi que je ne suis pas programmeur du tout, et que je ne me sert de windev que pour mon plaisir personnel. lol

[wd55]

Oui, mais novice depuis 2011, c'est pas un peu beaucoup ?
Tu as utilisé WD7.5 puis WD10, maintenant WD16.
Même pour le plaisir (t'as les moyens tout de même, au prix de windev), tu devrais commencer à toucher ta bille.
Surtout pour un simple calcul de date.
Ceci dit gentillement.

[Clovis47]

WD55, je suis d'accord avec toi au vu de la date, ,mais si tu savais que je me sers de windev, grosso modo 3 fois par an ! lol tu comprendrais.....
a plus et merci quand même, mais à 65 ans, on a parfois un peu de mal à comprendre certain trucs, qui pour vous paraissent bien simple

[Daniel-Québec]

Je comprends parfaitement cela mais la réponse à ta question est quasiment en clair dans la doc de WD16... alors de là à avoir du mal à comprendre, quand même !
Et question âge, là n'est pas le handicap car il y a ici des personnes qui rivalisent largement avec toi ici, dont ton serviteur et... bon, c'est secret

[Clovis47]

Ok Daniel, jke vais essayer de me débrouiller !
merci à vous tous et bonne fin de journée

[Daniel-Québec]

C'est ton jour de chance... et fait un effort pour proposer un code que l'on te corrigera éventuellement. Et là tu feras des progrès... même 3 fois par an et à 65 ans car on apprend toujours

Extrait de l'aide :

// Affiche le nombre de jours écoulés depuis le 01/01/1998
Info(NumériqueVersChaîne(DateDifference("19980101", ...
DateSys())) + " jours écoulés")

Vois aussi Jour, Mois, Année (Propriété)

Courrage, tu vas devenir un bon !

[wd55]

Donc si je comprends bien tu as acheté windev 3 fois pour t'en servir 3 fois par an ?
T'as vraiment les moyens.
Mais pourquoi pas ?

[Clovis47]

WD55, on fait comme on peut ! mdr
je dirais que lorsque je réussis à réaliser un programme qui fonctionne, j'en suis content

---

Daniel, voici le code que j'essaie de faire fonctionner !
mais avec cette nouvelle présentation, je ne sais pas comment insérere le code ! donc, voilà à la volée


TableTrie(TABLE_Sud_Ouest,"+COL_Date_Envoie")
HLitRecherche(Sud_Ouest,Date_Envoie,Sud_Ouest.Date_Envoie)
SI HTrouve(Sud_Ouest) ALORS
SI NumériqueVersChaîne(DateDifférence(Sud_Ouest.Date_Envoie,NumériqueVersChaîne(DateSys()))) > 30 ALORS
HLitRecherche(Sud_Ouest,Date_Envoie,Sud_Ouest.Paru)
SI HTrouve() ALORS
SI Sud_Ouest.Paru = Faux ALORS
SI OuiNon (" Vous avez des Articles envoyés depuis plus d'un mois, non parus ",...
" Voulez vous les supprimer de cette liste ? " ) = Oui ALORS
TableSupprime(TABLE_Sud_Ouest)
HLitSuivant(Sud_Ouest,Paru)
HLitSuivant(Sud_Ouest,Date_Envoie)
FIN
FIN
FIN
FIN
FIN