CONVERTIR UNE DATE DU FORMAT FRANÇAIS AU FORMAT AMÉRICAIN

<%
'----------------------------------------------------------------
' 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>"%>