Jour ferier (pâques ascension pentcote etc )

Télécharger le projet
Commenter

Description

Bonjour
Excusez le zip n'a pas ete joind

C'est une petit routine qui calcul le dimanche de pâques , car c'est a partir du dimanche de Paques que les autre jour sont calculer.
Dans un form mettre : une listbox (list1) un label 1 ("choisisser une date ")
un groupe de label2(0 a 10) Cree un label2 puis copier coller message cree un groupe : repondre oui

Fait en VB5
Tous est dans le zip

Remarque : Il est dommage que certaine personne critique, insulte les debutants et les Pros qui mettre des codes simple, ou plusieurs code qui font la memes chose ,car c'est des souce trés important pour les débutants voir mêmes pour les autres !
Bonne Programmation et bon courrage au debutant (comme moi)

Source / Exemple : 


Private Sub Form_Load()
For i = Year(Date) - 50 To Year(Date) + 50
List1.AddItem i ' Ajoute a la list les 50 dérniere anne et les 50 suivantes
Next i
List1 = Year(Date) ' selectionne l'annee en cour dans la list
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
End   'Ferme le programme quand tu clic sur la croix
End Sub

Private Sub List1_Click()

                'Calcul du dimmanche de Pâques
                
   annee_choisi = List1 'Year(Now)    ' L'annee selectionner
   annee_22_mars = DateSerial(annee_choisi, 3, 22)
   annee_31_mars = DateSerial(annee_choisi, 3, 31)
        mod19 = annee_choisi Mod 19
        r = (mod19 * 19 + 24) Mod (30)
        If (r = 29) Then r = 28
        If ((r = 28 And (mod19 > 10))) Then r = 27
        t = (((annee_choisi Mod 4) * 2) + ((annee_choisi Mod 7) * 4 + 6 * r + 5)) Mod 7
        If ((r + t) <= 9) Then datedimpaques = r + t + annee_22_mars
        If ((r + t) > 9) Then datedimpaques = annee_31_mars + r + t - 9
   
Label2(0) = "Le jour de l'an est le " & Format("01/01/" & annee_choisi, "dddd dd mmmm yyyy")
Label2(1) = "Le lundi Pâques est le " & Format((datedimpaques + 1), "dddd dd mmmm yyyy")
Label2(2) = "Le fête du travail est le " & Format("01/05/" & annee_choisi, "dddd dd mmmm yyyy")
Label2(3) = "La victoire 1945 est le " & Format("08/05/" & annee_choisi, "dddd dd mmmm yyyy")
Label2(4) = "L'ascension est le " & Format((datedimpaques + 39), "dddd dd mmmm yyyy")
Label2(5) = "Le lundi pentecote est le " & Format((datedimpaques + 50), "dddd dd mmmm yyyy")
Label2(6) = "La fête nationale est le " & Format("14/07/" & annee_choisi, "dddd dd mmmm yyyy")
Label2(7) = "L'assomption est le " & Format("15/08/" & annee_choisi, "dddd dd mmmm yyyy")
Label2(8) = "La toussaint est le " & Format("01/11/" & annee_choisi, "dddd dd mmmm yyyy")
Label2(9) = "L'Armistice 1918 est le " & Format("11/11/" & annee_choisi, "dddd dd mmmm yyyy")
Label2(10) = "Noël est le " & Format("25/12/" & annee_choisi, "dddd dd mmmm yyyy")

End Sub

Conclusion :


Grand merci a ce site.
Malgrais qu'il est une recrudessance de personne qui ne font que critiquer et qui puissez est n'apporte RIEN
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.