(asp) formate dates et heures

Soyez le premier à donner votre avis sur cette source.

Vue 13 378 fois - Téléchargée 447 fois

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

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

cs_era
Messages postés
77
Date d'inscription
lundi 6 mai 2002
Statut
Membre
Dernière intervention
4 mai 2011
-
Je pense qu'en utilisant un tableau qui contiendrai les mois et un autre pour les jours
on gagnerai du temps
et ce qui permettrai de faire de la traduction aussi si besoin est.
voila c'est ce que je pensais de ce petit bout de code
Mais n'ayant rien déposé , je dis c'est bien de mettre quelque chose
cs_mophius
Messages postés
4
Date d'inscription
vendredi 3 mai 2002
Statut
Membre
Dernière intervention
13 décembre 2005
-
en effet un tableau facileterait la manipulation des données...

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.