Editer un article - Informaticien.be

[Actualités] Windows 11 va moderniser l'interface utilisateur de l'ère Windows 95
[Actualités] Windows 11 va moderniser l'interface utilisateur de l'ère Windows 95
[Actualités] Windows 11 va moderniser l'interface utilisateur de l'ère Windows 95
[Actualités] Samsung prépare un nouveau smartphone doté d'un écran inhabituel.
[Actualités] ChatGPT mettra à votre disposition un consultant IA pour vous aider à choisir ...
[Actualités] L'UE prend des mesures concernant les promotions, les abonnements et tout le res...
[Actualités] Microsoft corrige 1 235 failles de sécurité. Outlook a déjà causé des dég�...
[Actualités] Firefox propose un VPN gratuit avec données illimitées. Comment l'activer ?
[Actualités] Google lance les domaines .eat, .fly et .here.
[Actualités] Apple fermera la communauté d'assistance Apple le 20 novembre
[Articles] ESET lance le Threat Intelligence Investigation Lab
[Articles] Pour espionner les mails de l’UE et de l’OTAN, le groupe Turla, lié à la R...
[Articles] Yomawari : Lost in the Dark
[Articles] Yomawari : The Long Night Collection
[Articles] Ada la rouge tome 1 : Le secret de l'île fantôme
[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

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