Bonjour à tous,
J'ai un petit problème avec la fonction suivante (développée à l'aide d'un macro éditor fourni avec le logiciel TestDirector et dont le language s'apparente fortement à du VB) :
Cette fonction reçoit comme paramètre d'entrée le "String" suivant : 100606 et contrôle si c'est un samedi ou un dimanche au quel cas il nous retourne la date du lundi suivant, soit 1206; Le problème étant que il ne me rend pas 120606 mais 12062006 ce qui me pose problème !
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14 Function checkWeekday( pDate as String) as String on error resume next Select Case Weekday(pDate) case "1" checkWeekday = CStr(CVDate(pDate) + 1) case "7" checkWeekday = CStr(CVDate(pDate) + 2) case Else checkWeekday = pDate End Select End Function
Avez-vous une idée de comment modifier ma fonction ou alors comment convertir par la suite le "String" 12062006 en 120606 !?
Merci d'avance.
Partager