Testeur de date
Description
Teste une date et dit si elle figure ou non sur le calendrier... le principe est celui du calendrier perpetuelle ( la source est merdique mais je la depose parcee que j ai eu du mal a trouver l algo du calendrier perpetuel)... et vous moquez pas du code, comme disait le sage, " mieux vaut un code moche qui fonctionne qu'un beau code qui marche pas"... a mediter
Source / Exemple :
Private Sub Command1_Click()
Annee = Val(Text9.Text)
Q = Val(Text2.Text)
S = Int(Annee / 100)
If Int(Annee / 4) = (Annee / 4) Then Bis = True Else Bis = False
A = Annee - (S * 100)
C = Int((((5 * S + Int(S / 4) - 1) / 7) - Int(((5 * S + Int(S / 4) - 1) / 7))) * 7)
Y = (((A + Int(A / 4)) / 7) - Int((A + Int(A / 4)) / 7)) * 7
Mois = Combo2.ListIndex
If (Mois = 2) Then m = 3
If (Mois = 3) Then m = 6
If (Mois = 4) Then m = 1
If (Mois = 5) Then m = 4
If (Mois = 6) Then m = 6
If (Mois = 7) Then m = 2
If (Mois = 8) Then m = 5
If (Mois = 9) Then m = 0
If (Mois = 10) Then m = 3
If (Mois = 11) Then m = 5
If (Mois = 0 And Bis = True) Then m = 6
If (Mois = 0 And Bis = False) Then m = 0
If (Mois = 1 And Bis = True) Then m = 2
If (Mois = 1 And Bis = False) Then m = 3
J = (((C + Y + m + Q) / 7) - Int(((C + Y + m + Q) / 7))) * 7
Jour = Combo1.ListIndex + 1
If Jour = 7 Then Jour = 0
If Val(Jour) = Val(J) Then T = MsgBox("La date entrée est une date valide.", vbOKOnly, "Date correct") Else T = MsgBox("La date entrée est erronée. Veuillez entrer une date valide.", vbOKOnly, "Erreur de date")
End Sub
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.