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

Commenter

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

S'inscrire maintenant

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.

Du même auteur (TowelBoy)