Convertir une date du format français au format américain

Soyez le premier à donner votre avis sur cette source.

Snippet vu 26 829 fois - Téléchargée 36 fois

Contenu du snippet

Ce code convertit un date entrée au format JJ/MM/AAAA en une date du format MM/JJ/AAAA en utilisant la fonction INSTR()

Source / Exemple :


<%
'----------------------------------------------------------------
' Rôle: convertir une date du format français au format américain
'       en utilisant la fonction INSTR() 
' Paramètre entrant: une date du type (J)J/(M)M/(AA)AA
' Retour : une date au format (M)M/(J)J/(AA)AA
'----------------------------------------------------------------
Function FrToUsDate(DateIn)
 
 intCpt = 1  'indice de la chaîne DateIn

 Dim tabposition (2) ' sauve les position des caractères '/'
 i=1 ' indice du tableau tabposition qui est incrémenté à chaque rencontre du caract. '/'
  
 intPos = -1 'initialiser la position de l'élément à rechercher
 
 While ( intPos <> 0 ) ' tant que pas fin de chaîne
  intPos=INSTR(intCpt, DateIn, "/")
  
  if intpos <> 0 then
   tabposition(i) = intPos
   intCpt = intPos + 1 'pour ne pas faire de boucle infinie 
  end if 
  
  i = i + 1
 Wend

 JJ   = Left(DateIn,tabposition(1)-1)
 MM   = Mid(DateIn,tabposition(1)+1,(tabposition(2)-tabposition(1))-1)
 AAAA = Mid(DateIn,tabposition(2)+1,4)

 DateOut = MM & "/" & JJ & "/" & AAAA ' on formate la chaîne de sortie

 FrToUsDate = DateOut

End Function
%>

Exemple 1: <BR>

<% Mydate = "1/2/2002" %>
<%="La date au format français est le " & MyDate & "<BR>"%>
<%="La même date au format américain est le " & FrToUsDate(MyDate) & "<BR><BR>"%>

Exemple 2: <BR>

<% Mydate = "31/12/2002" %>
<%="La date au format français est le " & MyDate & "<BR>"%>
<%="La même date au format américain est le " & FrToUsDate(MyDate) & "<BR><BR>"%>

A voir également

Ajouter un commentaire

Commentaire

cs_Mercury
Messages postés
329
Date d'inscription
jeudi 3 janvier 2002
Statut
Membre
Dernière intervention
7 octobre 2005
-
Pas mal, mais il y a beaucoup plus simple ;-)

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.