C'est une façon de le faire avec construit dans la santé mentale vérifier les dates:
DimOldString,NewStringOldString="31.12.2008"Dim myRegExp
Set myRegExp =NewRegExp
myRegExp.Global=True
myRegExp.Pattern="(0[1-9]|[12][0-9]|3[01])[- /.](0[1-9]|1[012])[- /.]((19|20)[0-9]{2})"If myRegExp.TestThenNewString= myRegExp.Replace(OldString,"$2.$1.$3")Else' A date of for instance 32 December would end up here
NewString = "Invalid date"
End If
Si c'est toujours dans ce format, vous pouvez utiliser split
cela permettrait dates comme 1.2.99 ainsi
OriginalL'auteur Re0sless
OriginalL'auteur Vincent McNabb
OK, je viens de trouver une solution moi-même:
OriginalL'auteur Anheledir
C'est une façon de le faire avec construit dans la santé mentale vérifier les dates:
OriginalL'auteur jamting
J'ai ma propre date les fonctions de manipulation que j'utilise dans toutes mes applications, mais il était à l'origine basé sur cet exemple:
http://www.adopenstatic.com/resources/code/formatdate.asp
OriginalL'auteur CJM