0/5 (8 avis)
Vue 8 434 fois - Téléchargée 572 fois
'== MODULE ==' '== formatage complet dates & heures ==' '== ---------------rel.1--------------- ==' '==Nom d'appel de la fonction : fHor() ==' '==Auteur de la fonction : Pekinio ==' '==Date de creation : 16/8/2k1==' '== ___________________________________ ==' '==| ------exemple d'utilisation------ |==' '==| |==' '==| Private Sub Form_Load() |==' '==| Dim LeJour As String |==' '==| Dim LeMois As String |==' '==| LeJour = fHor("JourL") |==' '==| LeMois = fHor("MoisL") |==' '==| MsgBox "Nous sommes un " & LeJour |==' '==| MsgBox "En plein " & LeMois |==' '==| End Sub |==' '==|___________________________________|==' ' Listing des strings 'TItem' ' ' --------- ' ' JourL > renvoie le jour en lettres ' ' JourC > renvoie le jour en chiffres ' ' MoisL > renvoie le mois en lettres ' ' MoisC > renvoie le mois en chiffres ' ' AnnéeL > renvoie l'année à 4 chiffres ' ' AnnéeC > renvoie l'année à 2 chiffres ' ' Heure > renvoie l'heure (hh) ' ' Min > renvoie les minutes (mm) ' ' Sec > renvoie les secondes (ss) ' '-----------------------------------------' Public Function fHor(TItem As String) As String If TItem = "JourL" Then fHor = (Format$(Date, "dddd")) ElseIf TItem = "JourC" Then fHor = (Format$(Date, "dd")) ElseIf TItem = "MoisL" Then fHor = (Format$(Date, "mmmm")) ElseIf TItem = "MoisC" Then fHor = (Format$(Date, "mm")) ElseIf TItem = "AnnéeL" Then fHor = (Format$(Date, "yyyy")) ElseIf TItem = "AnnéeC" Then fHor = (Format$(Date, "yy")) ElseIf TItem = "Heure" Then fHor = (Format$(Time, "hh")) ElseIf TItem = "Min" Then fHor = (Format$(Time, "mm")) ElseIf TItem = "Sec" Then fHor = (Format$(Time, "ss")) End If End Function
16 août 2001 à 02:20
16 août 2001 à 03:09
16 août 2001 à 21:13
mais tu pourrai faire comme ceci :
Enum Hor
JourL = 0
JourC = 1
MoisL = 2
MoisC = 3
AnnéeL = 4
AnnéeC = 5
Heure = 6
Minute = 7
Seconde = 8
End Enum
Public Function fHor(TItem As Hor) As String
Select Case TItem
Case JourL: fHor = Format$(Date, "dddd")
Case JourC: fHor = Format$(Date, "dd")
Case MoisL: fHor = Format$(Date, "mmmm")
Case MoisC: fHor = Format$(Date, "mm")
Case AnnéeL: fHor = Format$(Date, "yyyy")
Case AnnéeC: fHor = Format$(Date, "yy")
Case Heure: fHor = Format$(Date, "hh")
Case Minute: fHor = Format$(Date, "mm")
Case Seconde: fHor = Format$(Date, "ss")
End Select
End Function
18 août 2001 à 04:38
sur un code plus long la difference se ferait surement dans la taille du code c sur
20 août 2001 à 19:49
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.