JOURS FÉRIÉS Y COMPRIS MOBILES

Messages postés
7
Date d'inscription
mercredi 15 mai 2002
Statut
Membre
Dernière intervention
31 mai 2002
- - Dernière réponse : cs_FloSch
Messages postés
5
Date d'inscription
mardi 7 septembre 2004
Statut
Membre
Dernière intervention
15 février 2013
- 6 mai 2013 à 18:28
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

cs_FloSch
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.
cs_labout
Messages postés
1356
Date d'inscription
samedi 8 décembre 2001
Statut
Membre
Dernière intervention
23 octobre 2006
5 -
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
cs_Targhan
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)
jodenki
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).