JOURS FÉRIÉS Y COMPRIS MOBILES

Signaler
Messages postés
7
Date d'inscription
mercredi 15 mai 2002
Statut
Membre
Dernière intervention
31 mai 2002
-
Messages postés
5
Date d'inscription
mardi 7 septembre 2004
Statut
Membre
Dernière intervention
15 février 2013
-
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/2753-jours-feries-y-compris-mobiles

Messages postés
5
Date d'inscription
mardi 7 septembre 2004
Statut
Membre
Dernière intervention
15 février 2013

Bonjour,

Cdow et Ctod ne sont pas des fonctions de conversion de types de données dans Visual Basic.
J'ai remplacé cdow(madate) = "dimanche" par Format(madate,"ddd")="dim."
et Ctod par Cdate.

Cela fonctionne nickel.
Messages postés
1356
Date d'inscription
samedi 8 décembre 2001
Statut
Membre
Dernière intervention
23 octobre 2006
6
non c'est du VB Monsieur, il suffir de créer la fonction Padl

Function Padl(cstring As String, length As Integer, character As String) As String
' rempli les blancs de gauche avec lae carattère indiqué
Padl = Right(String(length, character) & cstring, length)
End Function
Messages postés
13
Date d'inscription
vendredi 22 août 2003
Statut
Membre
Dernière intervention
24 mai 2005

Nan, c'est une instruction Foxpro, qui n'existe pas en vb...
Et d'ailleurs, ça aurait été sympa que l'auteur le précise dans la description du code... -_-
(ou bien poste ce code sur http://www.foxprofr.com à la limite)
Messages postés
7
Date d'inscription
mercredi 15 mai 2002
Statut
Membre
Dernière intervention
31 mai 2002

J'ai un problème avec le padl.
est-ce une instruction vb .net? (j'utilise vb6).