Recuper toutes les infos sur les dates et heures, en chiffres ou lettres, separement.
Soyez le premier à donner votre avis sur cette source.
Vue 8 105 fois - Téléchargée 563 fois
Description
Alooors. Voici un petit module sans prétention aucune, et qui renvoie sous forme de chaine l'info choisie sur l'heure ou la date. Il est possible d'avoir :
Placez ce qui suit dans un module...
Voila, donc, comme vous avez pu le constater, y'a absolument rien de bien méchant la dedans, et puis je pense que ca pourrait aider pas mal de debutants... Vous savez bien qu'on est tous d'eternels débutants...
- le jour (en chiffres ou en lettres)
- le mois (en chiffres ou en lettres)
- l'année (en mode 2 ou 4 chiffres)
- les heures (2 chiffres : hh)
- les minutes (2 chiffres : mm)
- les secondes (2 chiffres : ss)
Placez ce qui suit dans un module...
Source / Exemple :
'== 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
Conclusion :
Voila, donc, comme vous avez pu le constater, y'a absolument rien de bien méchant la dedans, et puis je pense que ca pourrait aider pas mal de debutants... Vous savez bien qu'on est tous d'eternels débutants...
Codes Sources
A voir également
- Recuper toutes les infos sur les dates et heures, en chiffres ou lettres, separement.
- Javascript : Fonction qui affiche la date, l'heure, en chiffres, en lettres, totalement personnalisa - Guide
- Visual Basic / VB.NET : (asp) formate dates et heures - CodeS SourceS - Guide
- Date et heure - Codes sources - Visual Basic / VB.NET (Date & Heure)
- Visual Basic / VB.NET : Manipuler les dates et heures (addition et soustraction) - CodeS SourceS - Guide
- Visual Basic / VB.NET : Date et heure(dans me.caption) - CodeS SourceS - Guide
(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.