FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC
Vous souhaitez réagir à ce message ? Créez un compte en quelques clics ou connectez-vous pour continuer.
FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC

Développement d'applications avec le langage Panoramic
 
AccueilAccueil  RechercherRechercher  Dernières imagesDernières images  S'enregistrerS'enregistrer  MembresMembres  Connexion  
Derniers sujets
» demande explication KGF pour imprimer en mm
FNC IsDateValide(d$) pour vérifier la validité d'une date Emptypar lepetitmarocain Aujourd'hui à 12:55

» Petit passage furtif
FNC IsDateValide(d$) pour vérifier la validité d'une date Emptypar Froggy One Hier à 14:26

» SPIN et aide langage (résolu)
FNC IsDateValide(d$) pour vérifier la validité d'une date Emptypar leclode Sam 23 Mar 2024 - 15:20

» Aide-mémoire des mots-clés Panoramic
FNC IsDateValide(d$) pour vérifier la validité d'une date Emptypar papydall Mer 20 Mar 2024 - 21:23

» Je ne comprend pas pourquoi la largeur de la scene 3d change
FNC IsDateValide(d$) pour vérifier la validité d'une date Emptypar Marc Mar 12 Mar 2024 - 20:06

» Comment télécharger panoramic?
FNC IsDateValide(d$) pour vérifier la validité d'une date Emptypar lepetitmarocain Sam 9 Mar 2024 - 13:31

» @lepetitmarocain <==> KGFGrid
FNC IsDateValide(d$) pour vérifier la validité d'une date Emptypar Klaus Dim 3 Mar 2024 - 9:59

» Tangram-Toukaré
FNC IsDateValide(d$) pour vérifier la validité d'une date Emptypar jjn4 Mer 28 Fév 2024 - 18:12

» Editeur EliP 6 : Le Tiny éditeur avec 25 onglets de travail
FNC IsDateValide(d$) pour vérifier la validité d'une date Emptypar jjn4 Mer 28 Fév 2024 - 18:09

» KGF_dll - nouvelles versions
FNC IsDateValide(d$) pour vérifier la validité d'une date Emptypar Klaus Mer 28 Fév 2024 - 17:01

» Mes souhaits d'amélioration de Panoramic.
FNC IsDateValide(d$) pour vérifier la validité d'une date Emptypar Pedro Lun 26 Fév 2024 - 18:12

» Testez-votre-QI
FNC IsDateValide(d$) pour vérifier la validité d'une date Emptypar jjn4 Dim 25 Fév 2024 - 17:12

» Utilisation d'Élip
FNC IsDateValide(d$) pour vérifier la validité d'une date Emptypar jjn4 Sam 24 Fév 2024 - 18:33

» Récapitulatif ludothèque panoramic jjn4
FNC IsDateValide(d$) pour vérifier la validité d'une date Emptypar jjn4 Sam 24 Fév 2024 - 18:11

» Générateur de mots de passe
FNC IsDateValide(d$) pour vérifier la validité d'une date Emptypar mindstorm Mar 20 Fév 2024 - 20:09

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Mars 2024
LunMarMerJeuVenSamDim
    123
45678910
11121314151617
18192021222324
25262728293031
CalendrierCalendrier
Le Deal du moment :
TCL C74 Series 55C743 – TV 55” 4K QLED 144 ...
Voir le deal
499 €

 

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

Aller en bas 
4 participants
AuteurMessage
papydall

papydall


Nombre de messages : 6985
Age : 73
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012

FNC IsDateValide(d$) pour vérifier la validité d'une date Empty
MessageSujet: FNC IsDateValide(d$) pour vérifier la validité d'une date   FNC IsDateValide(d$) pour vérifier la validité d'une date EmptyJeu 22 Fév 2018 - 1:11

Code:

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 ============================================================================
Revenir en haut Aller en bas
http://papydall-panoramic.forumarabia.com/
Marc

Marc


Nombre de messages : 2372
Age : 63
Localisation : TOURS (37)
Date d'inscription : 17/03/2014

FNC IsDateValide(d$) pour vérifier la validité d'une date Empty
MessageSujet: Re: FNC IsDateValide(d$) pour vérifier la validité d'une date   FNC IsDateValide(d$) pour vérifier la validité d'une date EmptyJeu 22 Fév 2018 - 21:51


Bravo et merci Papydall !

Testé avec succès !
Revenir en haut Aller en bas
Ouf_ca_passe




Nombre de messages : 285
Age : 75
Localisation : Villeneuve d'Ascq (59-Dpt du NORD) France
Date d'inscription : 21/12/2015

FNC IsDateValide(d$) pour vérifier la validité d'une date Empty
MessageSujet: Utube   FNC IsDateValide(d$) pour vérifier la validité d'une date EmptyVen 23 Fév 2018 - 15:56

PapyYodaDall

Je veux être le premier abonné à ta chaîne Youtube quel que soit le sujet que tu traiteras.

Je comprendrai pas tout mais ça fait rien.

Bon we
Revenir en haut Aller en bas
papydall

papydall


Nombre de messages : 6985
Age : 73
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012

FNC IsDateValide(d$) pour vérifier la validité d'une date Empty
MessageSujet: Re: FNC IsDateValide(d$) pour vérifier la validité d'une date   FNC IsDateValide(d$) pour vérifier la validité d'une date EmptyVen 23 Fév 2018 - 16:26

Ouf_ça_passe_ou_ça_casse ! a écrit:
Je veux être le premier abonné à ta chaîne Youtube quel que soit le sujet que tu traiteras.

Je comprendrai pas tout mais ça fait rien.


Je ne possède pas de chaîne Youtube Embarassed

Par contre tu peux jetter un oeil sur mon Forum, tu comprendras tout (ou presque) tongue
Revenir en haut Aller en bas
http://papydall-panoramic.forumarabia.com/
Jean Claude

Jean Claude


Nombre de messages : 5948
Age : 69
Localisation : 83 Var
Date d'inscription : 07/05/2009

FNC IsDateValide(d$) pour vérifier la validité d'une date Empty
MessageSujet: Re: FNC IsDateValide(d$) pour vérifier la validité d'une date   FNC IsDateValide(d$) pour vérifier la validité d'une date EmptyVen 23 Fév 2018 - 18:43

Pas mal, ton forum Papydall !

A+
Revenir en haut Aller en bas
papydall

papydall


Nombre de messages : 6985
Age : 73
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012

FNC IsDateValide(d$) pour vérifier la validité d'une date Empty
MessageSujet: Re: FNC IsDateValide(d$) pour vérifier la validité d'une date   FNC IsDateValide(d$) pour vérifier la validité d'une date EmptyVen 23 Fév 2018 - 18:57

Merci Jean Claude.
Revenir en haut Aller en bas
http://papydall-panoramic.forumarabia.com/
Contenu sponsorisé





FNC IsDateValide(d$) pour vérifier la validité d'une date Empty
MessageSujet: Re: FNC IsDateValide(d$) pour vérifier la validité d'une date   FNC IsDateValide(d$) pour vérifier la validité d'une date Empty

Revenir en haut Aller en bas
 
FNC IsDateValide(d$) pour vérifier la validité d'une date
Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» Contrôle validité de date
» Combo date : sélecteur de date
» Validité du rnd ?
» Code à vérifier SVP (Oups ! résolu)
» Date <-> Date julienne

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC :: PANORAMIC :: Vos sources, vos utilitaires à partager-
Sauter vers: