1. Bonjour tout le monde ! Veillez consulter la Politique de forum pour comprendre nos règles, Merci a vous !
    Rejeter la notice

Besoin d'aide sur procedure windev 24

Discussion dans 'Windev' créé par yooseetim, Mar 22, 2021.

  1. yooseetim

    yooseetim New Member

    Inscrit:
    Déc 3, 2020
    Messages:
    27
    J'aime reçus:
    0
    Bonjour la communaute j ai besoin de votre aide
    je travaille sur une base de donnée Gestion de mutuelle avec windev 24
    je souhaite faire une procedure ou quand tu as moins de 50 ans
    tu as une période de carence de 5 mois a partir de ta date d'adhésion
    et si tu as plus de 50 ans ta periode de carence est de 10 mois
    j arrive a declarer le mois effet pour +5mois
    Moisef = DateAdh..mois+5
    Comment dois je ajouter pour +10mois
    Voici ma procedure
    je rappelle que j ai un champs Age qui affiche l'age de type numerique

    Dateadh est une Date
    dDateeff est une Date
    nAnneeef est un entier
    Moisadh est un entier
    nMoisef est un entier
    sJouref est une chaîne
    sMachaine est une chaîne
    Dateadh=SAI_Date
    Moisadh=Dateadh..Mois
    nMoisef=Dateadh..Mois+5
    nAnneeef=Dateadh..Année

    SI nMoisef<=12 ALORS
    nAnneeef=Dateadh..Année
    SINON
    nAnneeef=Dateadh..Année+1
    nMoisef=nMoisef-12
    FIN
    sMachaine=nAnneeef
    sJouref=+Droite(Dateadh,2)
    SI Taille(nMoisef)>2 ALORS
    sMachaine=sMachaine+(nMoisef+sJouref)
    SINON
    sMachaine=sMachaine+("0"+nMoisef+sJouref)
    FIN

    dDateeff=sMachaine


    TANTQUE PAS DateValide(dDateeff)

    sJouref=Val(sJouref)-1
    sMachaine=nAnneeef

    SI Taille(nMoisef)>2 ALORS
    sMachaine=sMachaine+(nMoisef+sJouref)
    SINON
    sMachaine=sMachaine+("0"+nMoisef+sJouref)
    FIN

    dDateeff=sMachaine
     
    Tags:

Partager cette page

Chargement...