Hit-Parade .VB Research Center . Compteur
Accueil ~  Code ~  Programmes ~  Api ~  Forum ~  Cours ~  Livres ~  Quiz ~  Annuaire
~ Edito ~
12/03/2006 @ 13:39
Depuis la dernière mise à jour (qui remonte à... oulala plusieurs mois), un petit ménage de printemps s'impose. Ca tombe bien, c'est presque la période.
Au menu, et progressivement sur les jours à venir, rafraîchissement de plusieurs fonctions et procédures, nouvelles APIs et nouveaux programmes.

~ Rechercher ~

  

~ Annuaire VB ~
 Rechercher un site :
  

~ Partenaires ~

~ L'Astuce du Jour ~

Comment savoir si le jour courant est férié?
Certaines applications ont besoin de savoir si un jour est férié ou non. Les dimanches et les jours fériés classiques sont faciles à trouver, mais certains sont moins évidents. Pour la fonction ci-dessous, qui teste tous les jours fériés, je me suis inspiré des explications détaillées fournit sur la page http://www.univ-lemans.fr/~hainry/calend.html.

Function JourFerie(dtDate As Date, Optional blSamediFerie As Boolean = True)
Dim lgA As Long, lgMPaq As Long, lgJPaq As Long
Dim
lgTmp1 As Long, lgTmp2 As Long, lgTmp3 As Long
Dim
stDate As String, dtPaq As Date
Dim blFerie As Boolean

' Dimanche (et samedi)
blFerie = (Weekday(dtDate) = vbSunday) Or _
          ((Weekday(dtDate) = vbSaturday)
And blSamediFerie)

If Not blFerie Then
   
stDate = Format(dtDate, "ddmm")
   
' Jours fériés fixes (1er janvier, 1er mai, 8 mai, 14 juillet, ...)
   
blFerie = (InStr(1, stDate, ".0101.0105.0805.1407.1508.0111.1111.2512.") > 0)
End If

If Not
blFerie Then
   
lgA = year(dtDate)
    lgTmp1 = (19 * (lgA
Mod 19) + 24) Mod 30
    lgTmp2 = Min(lgTmp1, Max(28, lgTmp1) - 1)
    lgTmp3 = 28 + lgTmp2 - ((3 + lgA - 1900 + Int((lgA - 1900) / 4) + lgTmp2)
Mod 7)
    lgMPaq = 3 + (lgTmp3 \ 32)
   
If (lgTmp3 < 32) Then lgJPaq = lgTmp3 Else lgJPaq = lgTmp3 - 31
   
' Construction de la date
   
dtPaq = DateSerial(lgA, lgMPaq, lgJPaq)
   
' Jours fériés mobiles (lundi de pâques, ascension, lundi de pentecôte)
    ' Pâques et Pentecôte non testés (dimanche).
   
blFerie = (dtDate = (dtPaq + 1)) Or (dtDate = (dtPaq + 39)) Or _
              (dtDate = (dtPaq + 50))
End If
JourFerie = blFerie
End Function

' Fonctions Min et Max pour utilisation de la fonction précédente
Public Function Min(lgA As Long, lgB As Long) As Long
If
(lgA < lgB) Then Min = lgA Else Min = lgB
End Function

Public Function
Max(lgA As Long, lgB As Long) As Long
If
(lgA > lgB) Then Max = lgA Else Max = lgB
End Function
17/04/2006 @ 19:04 - Code
Petite mise à jour avec quatre nouvelles fonctions à découvrir dans la rubrique "Code".
A+
13/03/2006 @ 19:11 - API
On commence la semaine en douceur avec 5 fonctions APIs (certaines sont des ajouts, d'autres des modifications), avec leurs exemples.
Je constate que le code de ces derniers est un peu trop large pour l'affichage en 800x600... je le note pour le rectifier d'ici la fin de la semaine. D'ailleurs, ça me fait penser que l'affichage dans d'autres résolutions (par le bloc "affichage" dans la colonne de droite) donne n'importe quoi... à regarder aussi donc.
Have a nice evening...
12/03/2006 @ 12:03 - Ménage et fonds de tiroir
Après une loooongue période de sommeil je reprend le clavier pour dépoussierer le site.
Il faut dire qu'avec le temps, il y a pas mal de chose qui ne vont plus. Des liens qui se cassent, quelques bugs qui s'entassent, et des compteurs qui s'affolent .
En plus, si le site tourne en rond, de mon côté je continue malgré tout à accumuler du code. Et c'est quand même mieux si tout le monde peut en profiter.
Ca fait beaucoup de boulot tout ça et il y en a donc pour quelques jours. Voyons... ça fait une bonne trentaine de fonctions supplémentaires qui devraient arriver, quelques APIs et un petit programme pour se divertir.

Pour ce qui est de la reprise du site, c'est toujours d'actualité. On en reparlera plus tard...
~ En stock ~
. 214 fonctions API
. 12 applications
. 130 fonctions
. 38 liens dans l'annuaire
. 3 questionnaires
. 20 livres sur Visual Basic
. 1474 icônes

~ Affichage ~

~ Recommander ~





Géré par LBB.ORG
Visual Basic Research Center - (c) 2000/2002 -  Webmaster : docvb (chez) free (point) fr