Fragments de code
Accueil - Cancaven.com
cancaven.com - développeur d'efficacité
Développeur d'efficacité


Trucs et astuces

Ces exemples de code sont fournis gracieusement.
Faites-en bon usage et n'hésitez pas à me consulter.



Fragments de code en Access VBA

- Information
Vous trouverez bientôt ici des trucs et astuces pour Microsoft Access.


Fragments de code VBA pour Excel, Access et autres

- Comment touver le jour de Pâques (voir le code ...)
Option Explicit

Public Function JourDePaques(ByVal Annee As Integer) As Date ' ******************************************************* _ * Auteur : Pascal Fournier - Développeur d'efficacité * _ * Site : http://www.cancaven.com * _ ******************************************************** 'Voici une fonction qui retourne le jour de Pâques 'Cette fonction attend l'année en paramètre ' ******************************** _ * Déclaration de nos variables * _ ********************************* Dim L(6) As Byte Dim Jour As Byte Dim Mois As Integer L(1) = Annee Mod 19 L(2) = Annee Mod 4 L(3) = Annee Mod 7 L(4) = (19 * L(1) + 24) Mod 30 L(5) = ((2 * L(2)) + (4 * L(3)) + (6 * L(4)) + 5) Mod 7 L(6) = 22 + L(4) + L(5) If L(6) > 31 Then Jour = L(6) - 31 Mois = 4 Else Jour = L(6) Mois = 3 End If 'Reconstitution et retour de la date du jour de Pâques JourDePaques = DateSerial(Annee, Mois, Jour) ' ******************************************************* _ * Auteur : Pascal Fournier - Développeur d'efficacité * _ * Site : http://www.cancaven.com * _ ******************************************************** End Function





Copyright © 2011 Pascal Fournier. Tous droits réservés. Informations légales