Soyez le premier à donner votre avis sur cette source.
Vue 8 034 fois - Téléchargée 558 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
(Format$(Time, "MM"))
mais
fHor = (Format$(Time, "nn"))
sur un code plus long la difference se ferait surement dans la taille du code c sur
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.