Inputbox

[CED76]

Bonjour,Je souhaite contrôler la saisie dans un inputbox en LotusScript.Je souhaite que les utilisateurs saisissent une date selon le format jj/mm/aaaa.Je réussi bien à récupérer les données selon la forme suivante :Separateur1 = Mid$ ( rech, 3, 1 )Separateur2 = Mid$ ( rech, 6, 1 )JourRech = Left ( rech , 2 )MoisRech = Mid$ ( rech, 4, 2 )AnneeRech = Right ( rech , 4) Il ne me reste plus qu'à contrôler si JourRech, MoisRech et AnneeRech sont bien des donnés numériques... et que MoisRech doit être compris entre 01 et 12....Comment puis-je controler ceci.

[Raziel]

Salut,Petite question : pourquoi ne le fait tu pas dirrectement au niveau du champ.Dans ton champ de type date, dans les options (onglet2) tu spécifie le format de ta date.Ensuite, dans l'évènement "Validation d'entrée" tu met un truc du genre :@if(@istime(TonChampDate); @success; @Failure("erreur de saisie"))

[CED76]

C'est un inputbox en LotusScript....

[Droad]

Par exemple:Dim dt As Variantdt = Trim(Inputbox("Date"))If Isdate(dt) Then Dim dd As Variant dd = Cdat(dt) Msgbox "Date OK: Jour = " & Day(dd) & ", Mois= " & Month(dd) & ", Année" & Year(dd)Else Msgbox "Date pas Ok"End IfDans ce bout de script, la conversion en date par Cdat est pour la forme(les fonction Day, Month et Year peuvent prendre une chaine en paramètre).L'intérêt de IsDate, c'est qu'il vérife aussi la euh "réalité" de la date(ex: 32/01/2003 = pas bon, 13/15/2000 = pas bon, 29/02/2003 pas bon...)[%sig%]

[CED76]

Merci mais bon je me compliquait un peu la vie......En plus j'utilise souvent cette propriété..... Vivement ce soir...