(asp) formate dates et heures

Télécharger le projet
Commenter

Description

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
Télécharger le projet

Codes Sources

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 (cs_Danette)