FNC IsDateValide(d$) pour vérifier la validité d'une date

rem ============================================================================
rem           Fonction pour vérifier si une date est valide
rem ============================================================================

message IsDateValide("32/02/2018")      : ' <--- 0
message IsDateValide("10/08/1950")      : ' <--- 1
message IsDateValide("janvier 18,2014") : ' <--- 1
message IsDateValide("01-01-01")        : ' <--- 1

end
rem ============================================================================
' Script VBS vérifiant la validité d'une date
' La fonction IsDateValide(d$) retourne la valeur
' 1 si le paramètre transmis d$ représente une date valide,
' sinon elle retourne 0
' ------------------------------------------------------------------------------
' Les différentes formes de dates suivantes sont acceptées
' Exemples d'appel :
' IsDateValide("32/02/2014")        : ' ---> 0
' IsDateValide("29/02/2016")        : ' ---> 1
' IsDateValide("29/02/2014")        : ' ---> 0
' IsDateValide("janvier 18,2014")   : ' ---> 1
' IsDateValide("18 janvier 2014")   : ' ---> 1
' IsDateValide("01-01-01")          : ' ---> 1
' IsDateValide("2014, Février, 10") : ' ---> 1
' IsDateValide("18,01,2014")        : ' ---> 1
' ------------------------------------------------------------------------------
FNC IsDateValide(d$)
    dim_local f$,retour$,resultat$,g$
    f$ = "IsDate.vbs"      : ' Fichier temporaire contenant le script
    retour$ = "retour.txt" : ' Fichier temporaire contenant le résultat de la fonction
    g$ = chr$(34)          : ' caractère guillemet
' Enregistrer le script dans le fichier temporaire f$
    FILE_OPEN_WRITE 9999, f$
    file_writeln 9999, "DIM bValeur,fso,MyFile"  : ' debut du script
    file_writeln 9999, "Set fso = CreateObject("+g$+"Scripting.FileSystemObject"+g$+")"
    file_writeln 9999, "Set MyFile = fso.CreateTextFile("+g$+retour$+g$+", True)"
    file_writeln 9999, "bValeur = IsDate("+g$+d$+g$+")"
    file_writeln 9999, "MyFile.WriteLine(bValeur)"
    file_writeln 9999, "MyFile.Close" : ' Fin du script
    FILE_CLOSE 9999             : ' Fin de l'enregistrement
    EXECUTE_WAIT f$             : ' Exécution du script
    FILE_DELETE f$              : ' supprimer le fichier du script
    file_open_read 9999,retour$ : ' ouvrir le fichier contenant la sortie du script
    file_readln 9999,resultat$  : ' Recuperer la valeur de la fonction
    file_close 9999             : ' Fermer le fichier
    file_delete retour$         : ' Supprimer le fichier temporaire
    if resultat$ = "True" then RESULT 1 : else : RESULT 0 : ' Résultat de la fonction
      
END_FNC
rem ============================================================================