4 petites fonctions ASP pour retourner l'heure ou la date dans le format voulu...
Du déjà vu... mais bon !
Source / Exemple :
'=====================================================================================================================
' Fonction Pour formater l'heure:
'=====================================================================================================================
' 1 = 23 59
' 2 = 23.59
' 3 = 23:59
' 4 = 23
' 5 = 59
' 6 = 23h59
'=====================================================================================================================
Public Function FormaterHeure(InHeure,TypeExt)
hh=Hour(InHeure)
mm=Minute(InHeure)
' mm = 23
If mm < 10 then mm = "0" + Cstr(mm) End If
Select Case TypeExt
Case 1
FormaterHeure = Cstr(hh) + " " + Cstr(mm)
Case 2
FormaterHeure = Cstr(hh) + "." + Cstr(mm)
Case 3
FormaterHeure = Cstr(hh) + ":" + Cstr(mm)
Case 4
FormaterHeure = Cstr(hh)
Case 5
FormaterHeure = Cstr(mm)
Case 6
FormaterHeure = Cstr(hh) + "h" + Cstr(mm)
End Select
End Function
'=====================================================================================================================
' Fonction Pour formater la date:
'=====================================================================================================================
' 1 = 31 12 2001
' 2 = 31.12.2001
' 3 = 31/12/2001
' 4 = 31
' 5 = 12
' 6 = 2001
' 7 = lundi - mardi - mercredi - vendredi - samedi - dimanche
' 8 = janvier - fevrier - mars - avril - mai - juin - juillet - aout - septembre - octobre - novembre - decembre
' 9 = 9 novembre 2001
'=====================================================================================================================
Public Function FormaterDate(InDate,TypeExt)
jj=day(InDate)
mm=month(InDate)
aaaa=year(InDate)
if mm<10 then mm="0"&mm end if
if jj<10 then jj= "0" + Cstr(jj) end if
Select Case TypeExt
Case 1
FormaterDate = jj & " " & mm & " " & aaaa
Case 2
FormaterDate = Cstr(jj) + "." + Cstr(mm) + "." + Cstr(aaaa)
Case 3
FormaterDate = Cstr(jj) + "/" + Cstr(mm) + "/" + Cstr(aaaa)
Case 4
FormaterDate = Cstr(jj)
Case 5
FormaterDate = Cstr(mm)
Case 6
FormaterDate = Cstr(aaaa)
Case 7
Select Case Weekday(Indate)
Case 1
FormaterDate = "Dimanche"
Case 2
FormaterDate = "Lundi"
Case 3
FormaterDate = "Mardi"
Case 4
FormaterDate = "Mercredi"
Case 5
FormaterDate = "Jeudi"
Case 6
FormaterDate = "Vendredi"
Case 7
FormaterDate = "Samedi"
End Select
Case 8
Select Case Month(Indate)
Case 1
FormaterDate = "janvier"
Case 2
FormaterDate = "février"
Case 3
FormaterDate = "mars"
Case 4
FormaterDate = "avril"
Case 5
FormaterDate = "mai"
Case 6
FormaterDate = "juin"
Case 7
FormaterDate = "juillet"
Case 8
FormaterDate = "août"
Case 9
FormaterDate = "septembre"
Case 10
FormaterDate = "octobre"
Case 11
FormaterDate = "novembre"
Case 12
FormaterDate = "décembre"
End Select
Case 9
Select Case Month(Indate)
Case 1
FormaterDate = Cstr(jj) + " janvier " + Cstr(aaaa)
Case 2
FormaterDate = Cstr(jj) + " février " + Cstr(aaaa)
Case 3
FormaterDate = Cstr(jj) + " mars " + Cstr(aaaa)
Case 4
FormaterDate = Cstr(jj) + " avril " + Cstr(aaaa)
Case 5
FormaterDate = Cstr(jj) + " mai " + Cstr(aaaa)
Case 6
FormaterDate = Cstr(jj) + " juin " + Cstr(aaaa)
Case 7
FormaterDate = Cstr(jj) + " juillet " + Cstr(aaaa)
Case 8
FormaterDate = Cstr(jj) + " août " + Cstr(aaaa)
Case 9
FormaterDate = Cstr(jj) + " septembre " + Cstr(aaaa)
Case 10
FormaterDate = Cstr(jj) + " octobre " + Cstr(aaaa)
Case 11
FormaterDate = Cstr(jj) + " novembre " + Cstr(aaaa)
Case 12
FormaterDate = Cstr(jj) + " décembre " + Cstr(aaaa)
End Select
End Select
End Function
'---------------------------------------------------------------------------------------------
' Retourne le mois demandé en format texte
' Input: 12
' Output: Décembre
' Option: 1 Num to Text
' 2 Text to Num
'---------------------------------------------------------------------------------------------
Public Function MoisNumText(DataInput,OptionInput)
If OptionInput = 1 Then
Select Case DataInput
Case 1
MoisNumText = "Janvier"
Case 2
MoisNumText = "Février"
Case 3
MoisNumText = "Mars"
Case 4
MoisNumText = "Avril"
Case 5
MoisNumText = "Mai"
Case 6
MoisNumText = "Juin"
Case 7
MoisNumText = "Juillet"
Case 8
MoisNumText = "Août"
Case 9
MoisNumText = "Septembre"
Case 10
MoisNumText = "Octobre"
Case 11
MoisNumText = "Novembre"
Case 12
MoisNumText = "Décembre"
End Select
Else
Select Case Ucase(DataInput)
Case "JANVIER"
MoisNumText = 1
Case "FEVRIER"
MoisNumText = 2
Case "MARS"
MoisNumText = 3
Case "AVRIL"
MoisNumText = 4
Case "MAI"
MoisNumText = 5
Case "JUIN"
MoisNumText = 6
Case "JUILLET"
MoisNumText = 7
Case "AOUT"
MoisNumText = 8
Case "SEPTEMBRE"
MoisNumText = 9
Case "OCTOBRE"
MoisNumText = 10
Case "NOVEMBRE"
MoisNumText = 11
Case "DECEMBRE"
MoisNumText = 12
End Select
End If
End Function
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.