RECUPER TOUTES LES INFOS SUR LES DATES ET HEURES, EN CHIFFRES OU LETTRES, SEPARE
pekinio
-
16 août 2001 à 02:20
pfb0506 Messages postés 1 Date d'inscription vendredi 10 novembre 2006 Statut Membre Dernière intervention 15 avril 2008 - 15 avril 2008 à 15:36
pfb0506 Messages postés 1 Date d'inscription vendredi 10 novembre 2006 Statut Membre Dernière intervention 15 avril 2008 - 15 avril 2008 à 15:36
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/1795-recuper-toutes-les-infos-sur-les-dates-et-heures-en-chiffres-ou-lettres-separement
https://codes-sources.commentcamarche.net/source/1795-recuper-toutes-les-infos-sur-les-dates-et-heures-en-chiffres-ou-lettres-separement
15 avril 2008 à 15:36
(Format$(Time, "MM"))
mais
fHor = (Format$(Time, "nn"))
20 janv. 2002 à 08:14
30 oct. 2001 à 02:13
20 août 2001 à 19:49
18 août 2001 à 04:38
sur un code plus long la difference se ferait surement dans la taille du code c sur
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
16 août 2001 à 03:09
16 août 2001 à 02:20