Editer un article - Informaticien.be

[Actualités] Sony a ressorti des écouteurs vieux de 47 ans. La nostalgie a un prix.
[Actualités] Quand Windows 12 arrivera-t-il ? Il se fait attendre, car Windows 10 est toujour...
[Actualités] Intel s'est mis aux LEGO. Le nouveau processeur est composé de six pièces.
[Actualités] EA lance 25 Classiques PC sur Steam, dont 7 Éditions Anniversaire pour Road Ras...
[Actualités] Test Shadow of the Tomb Raider : Definitive Edition (Nintendo Switch 2) - Lara C...
[Actualités] Google ouvre à tous la prochaine génération de vidéos basées sur l'IA, mais...
[Actualités] TikTok Shop souhaite sérieusement devenir une application distincte
[Actualités] MediaMarkt rejoint JD.com : l’UE approuve l’acquisition de Ceconomy
[Actualités] Spotify Wrapped bientôt disponible : deux options pour choisir les éléments i...
[Actualités] Une simple batterie externe pourrait bien être bien plus qu'une simple batterie...
[Articles] Harry Dickson tome 4 : La résurrection de la Gorgone
[Articles] Shadow of the Tomb Raider : Definitive Edition
[Articles] Deep Insanity NIRVANA tome 1
[Articles] The Crew Motorfest
[Articles] Dark Colors
[Articles] Warrior Cats: Clans of the Forest
[Articles] Mollie s’attaque aux banques traditionnelles avec un compte à vue pour coprop...
[Articles] Cimes Spectrales
[Articles] Remothered: Red Nun's Legacy
[Articles] Strange Lessons by Professor Terror tome 2

Se connecter Inscription Mot de passe perdu

Connexion

Editer un article

Titre
Mots Clés
Texte	[vb]Public Function IsVacant(ByVal dJour As Date) As Boolean Dim dPaques As Date IsVacant = False dPaques = CalcPaques(Year(dJour)) If (dJour = dPaques + 1) Or (dJour = dPaques + 39) Or (dJour = dPaques + 50) Then IsVacant = True If (Day(dJour) = 1) And (Month(dJour) = 1) Then IsVacant = True If (Day(dJour) = 1) And (Month(dJour) = 5) Then IsVacant = True If (Day(dJour) = 8) And (Month(dJour) = 5) Then IsVacant = True If (Day(dJour) = 14) And (Month(dJour) = 7) Then IsVacant = True If (Day(dJour) = 15) And (Month(dJour) = 8) Then IsVacant = True If (Day(dJour) = 1) And (Month(dJour) = 11) Then IsVacant = True If (Day(dJour) = 11) And (Month(dJour) = 11) Then IsVacant = True If (Day(dJour) = 25) And (Month(dJour) = 12) Then IsVacant = True If (Weekday(dJour) = vbSunday) Or (Weekday(dJour) = vbSaturday) Then IsVacant = True End Function Public Function CalcPaques(ByVal iAnnee As Integer) As Date 'Ascension = 40 jours après pâques 'Pentecôte = 50 jours après pâques Dim retard As Integer, Dim t As Integer Dim a As Integer Dim b As Integer Dim iSiecle As Integer, iJour As Integer Dim dPaques As Date iSiecle = 1 + iAnnee 100 If (iSiecle = 20 Or iSiecle = 21) Then a = 24 b = 5 ElseIf iSiecle = 22 Then a = 24 b = 6 ElseIf iSiecle = 23 Then a = 25 b = 0 End If retard = (19 * (iAnnee Mod 19) + a) Mod 30 If retard = 29 Then retard = 28 ElseIf (retard = 28 And (iAnnee Mod 19) > 10) Then retard = 27 End If t = (2 * (iAnnee Mod 4) + 4 * (iAnnee Mod 7) + 6 * retard + b) Mod 7 If retard + t > 9 Then iJour = retard + t - 9 dPaques = DateSerial(iAnnee, 4, iJour) Else iJour = retard + t + 22 dPaques = DateSerial(iAnnee, 3, iJour) End If CalcPaques = dPaques End Function[/vb]
Fichier

Forum - Derniers messages

Réseaux et Télécom
Edpnet

Bavardages
Séries TV, vous regardez quoi?

Bavardages
Aujourd'hui, je rénove ou je construis ^^

Informations
Besoin d’avis sur l’UX de mon mini-projet web (et plus globalement sur ce qui vous rebute sur un site) ?

Software
problème sur windows 10

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

Actualités - Archives

Ada

CSS

Cobol

CPP

HTML

Fortran

Java

JavaScript

Pascal

Perl

PHP

Python

SQL

VB

XML

Anon URL

DailyMotion

eBay

Flickr

FLV

Google Video

Google Maps

Metacafe

MP3

SeeqPod

Veoh

Yahoo Video

YouTube

6px

8px

10px

12px

14px

16px

18px

Verixi Internet Services

Informaticien.be - © 2002-2026 Akretio SRL - Generated via Kelare Haut de page