Discussion :

[Xtine]

Bonsoir,
Dans un formulaire, je désire calculer l'ancienneté du personnel du type :
"X" années "Y" mois.
Dans une zone de texte je calcule l'année :

Code :

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

=Ent((Date()-[Date_Entr])/365,25)

ou

Code :

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

 =DiffDate("yy";[Date_Entr];Date())

Je voudrais inscrire dans une autre zone de texte les mois

Code :

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

=DiffDate("yymm";[Date_Entr];Date())

Je n'arrive pas à obtenir le calcul des mois. J'avais lu que "yymm" permettez d'obtenir les mois restant de l'année ?

Par avance, merci

[ClaudeLELOUP]

Bonjour,
pour te documenter vois ceci :http://access.developpez.com/faq/?pa...alcDureeSoustr

pour ton cas précis

si tu entres la date comme ceci

Code :

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

Anciennete(#08/01/09#)

pour exprimer un date d'embauche le 1er août de l'an passé,

la fonction suivante (à loger dans un module)

Code :

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

1
2
3
4
5
6
Public Function Anciennete(Embauche As Date) As String
Dim diff As Double, NbreAns As Integer, NbreMois As Integer
diff = Date - Embauche  ' diff en jour
NbreAns = diff / 365
NbreMois = (diff - (NbreAns * 365)) / 30
Anciennete = NbreAns & " année(s) et " & NbreMois & " mois"

te donnera le résultat :
1 année(s) et 2 mois

[Xtine]

Merci ! Je vais mettre en application mais j'avoue que je n'ai encore jamais utiliser de module. Je me contente d'installer dans mon formulaire un "champ texte" et d'inscrire une formule dans "données"-"source contrôle" ou dans "évènement" installer un code.
Quel est l'usage d'un module ?

[ClaudeLELOUP]

Bonjour,

Rassure-toi, ce n'est pas un gros mot !

C'est l'endroit où loger du code.

Tu cliques sur "Modules" dans la fenêtre Access
une fenêtre va s'ouvrir avec
Option Compare Database
Option Explicit

Tu y ajoutes le code
A la fermeture de la DB, Access te propose de sauver ... tu dis "oui" et c'est fait.

[Xtine]

J'ai crée ce module nommé "anciennete". Je comprends la formulation. Mais je ne sais pas comment l'installer dans le formulaire.
Je crée une "zone texte" pour faire apparaitre le résultat, mais comment relier ce module avec cette zone ?

[Xtine]

Si tous les gros-mots étaient de ce type, nous aurions fait un grand pas dans notre "bétise". . . . .

[ClaudeLELOUP]

Tu as mis cette fonction dans un module.
Cette fonction est maintenant disponible dans ton application par exemple pour le champ calculé d'une requête, ... dans n'importe quel formulaire ou état.
Dans ton cas : la source de ta zone de texte est

Code :

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

=Anciennete(-ici la valeur de la date d'embauche-)

[Xtine]

Lorsque j'ouvre la formulaire j'ai un message d'erreur "erreur de compilation" et le code du module s'ouvre avec (Anciennete = NbreAns & " année(s) etc..) NbreAns stabilosé en jaune.
Pour infos : J'ai un champs au dessus dans lequel on inscris la date d'embauche. Je l'ai nommé DateEmb. J'ai modifié votre code ainsi :

Code :

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

1
2
3
4
5
6
7
Public Function Anciennete(DateEmb As Date) As String
 
Dim diff As Double, NbreAns As Integer, NbreMois As Integer
diff = Date - DateEmb  ' diff en jour
NbreAns = diff / 365
NbreMois = (diff - (NbreAns * 365)) / 30
Anciennete = NbreAns & " année(s) et " & NbreMois & " mois"

[ClaudeLELOUP]

Désolé, je dois préparer le repas !
Peux-tu poster un extrait de ta DB en version compatible [Access2000].
J'examinerai vers 14:00)

[Xtine]

Merci encore de votre aide mais je ne peux pas vous poster ma BD en version compatible 2000, et je dois m'absenter aussi. Je vais refaire une tentative ce soir. Si j'ai bien compris le principe d'un module, on créé le module puis on peut "l'appeler" depuis un formulaire, une requête. C'est le même principe pour un état ?

[ClaudeLELOUP]

Le module sert à loger du code par exemple des fonctions et des routines (sub).
Parce que, dans notre exemple la fonction est "Public" , elle peut être utilisée dans une requête, formulaire, état ... et même dans une autre fonction !
Ce que tu appelles, c'est la fonction et non pas le module.
Dans le module, positionne ton curseur à l'intérieur du mot "function" et enfonce la touche <F1>, l'aide Access s'ouvre à la bonne page.

Dans ton formulaire si tu as un contrôle nommé "DateEmbauche" qui affiche la date qui nous occupe. Crée une nouvelle zone de texte et indique comme propriété Source contrôle:

Code :

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

=anciennete([DateEmbauche])

et tu constateras le résultat.