Se connecter  
Suivez Informaticien.be sur Facebook  Suivez Informaticien.be sur Twitter  Suivez le Podcast Les Technos sur YouTube  Suivez le Podcast Les Technos sur iTunes  Suivez Informaticien.be via RSS
Rechercher Catégories - Programmation - VB
users_user-20.html -  [VB] Savoir si un jour est ouvré ou pas (fériés + Week-End)
Code:
  1. Public Function IsVacant(ByVal dJour As Date) As Boolean 
  2. Dim dPaques As Date 
  4.     IsVacant = False 
  5.      
  6.     dPaques = CalcPaques(Year(dJour)) 
  7.     If (dJour = dPaques + 1) Or (dJour = dPaques + 39) Or (dJour = dPaques + 50) Then IsVacant = True 
  8.     If (Day(dJour) = 1) And (Month(dJour) = 1) Then IsVacant = True 
  9.     If (Day(dJour) = 1) And (Month(dJour) = 5) Then IsVacant = True 
  10.     If (Day(dJour) = 8) And (Month(dJour) = 5) Then IsVacant = True 
  11.     If (Day(dJour) = 14) And (Month(dJour) = 7) Then IsVacant = True 
  12.     If (Day(dJour) = 15) And (Month(dJour) = 8) Then IsVacant = True 
  13.     If (Day(dJour) = 1) And (Month(dJour) = 11) Then IsVacant = True 
  14.     If (Day(dJour) = 11) And (Month(dJour) = 11) Then IsVacant = True 
  15.     If (Day(dJour) = 25) And (Month(dJour) = 12) Then IsVacant = True 
  16.      
  17.     If (Weekday(dJour) = vbSunday) Or (Weekday(dJour) = vbSaturday) Then IsVacant = True 
  18. End Function 
  20. Public Function CalcPaques(ByVal iAnnee As Integer) As Date 
  22. 'Ascension = 40 jours après pâques 
  23. 'Pentecôte = 50 jours après pâques 
  24. Dim retard As Integer, 
  25. Dim t As Integer 
  26. Dim a As Integer 
  27. Dim b As Integer 
  28. Dim iSiecle As Integer, iJour As Integer 
  29. Dim dPaques As Date 
  31.     iSiecle = 1 + iAnnee  100 
  32.     If (iSiecle = 20 Or iSiecle = 21) Then 
  33.         a = 24 
  34.         b = 5 
  35.     ElseIf iSiecle = 22 Then 
  36.         a = 24 
  37.         b = 6 
  38.     ElseIf iSiecle = 23 Then 
  39.         a = 25 
  40.         b = 0 
  41.     End If 
  42.      
  43.     retard = (19 * (iAnnee Mod 19) + a) Mod 30 
  44.     If retard = 29 Then 
  45.         retard = 28 
  46.     ElseIf (retard = 28 And (iAnnee Mod 19) > 10) Then 
  47.         retard = 27 
  48.     End If 
  49.      
  50.     t = (2 * (iAnnee Mod 4) + 4 * (iAnnee Mod 7) + 6 * retard + b) Mod 7 
  51.      
  52.     If retard + t > 9 Then 
  53.         iJour = retard + t - 9 
  54.         dPaques = DateSerial(iAnnee, 4, iJour) 
  55.     Else 
  56.         iJour = retard + t + 22 
  57.         dPaques = DateSerial(iAnnee, 3, iJour) 
  58.     End If 
  59.      
  60.     CalcPaques = dPaques 
  61. End Function
Poster un commentaire
Utilisateur
Mot de passe
 
 Forum - Derniers messages
Bavardages
Aujourd'hui, je rénove ou je construis ^^
Réseaux et Télécom
Administrateur Réseau - Cisco
Réseaux et Télécom
Problème wifi (POE)
Software
Postfix - Need help
Bavardages
Oh râge oh désespoir !
Programmation
Enregistrement client et envoi mail
Software
SÉCURITÉ MACBOOK
Hardware
conseil matos réseau?
Hardware
nVidia Shield Android TV
Software
Transformer de l'audio en texte
  Actualités - Archives
Consoles Consoles
Xbox, la mise à jour de mai ajoute la prise en charge de la souris et du clavier à 25 jeux sur Game Pass
Jeux Vidéos Jeux Vidéos
Test Sweetest Monster (Nintendo Switch)
iOS iOS
Apple anticipe les nouveautés d'iOS 18 : CarPlay, Siri et l'accessibilité. Voici à quoi s'attendre
Google Google
Chrome OS en tant que mode bureau d'Android n'est pas ce que vous pensez
iOS iOS
Des émulateurs pour tous les goûts arrivent sur iPhone : voici RetroArch et PPSSPP
Informaticien.be - © 2002-2024 AkretioSPRL  - Generated via Kelare
The Akretio Network: Akretio - Freedelity - KelCommerce - Votre publicité sur informaticien.be ?