Format date
cs_Antho34
Messages postés
4
Date d'inscription
vendredi 12 novembre 2004
Statut
Membre
Dernière intervention
8 décembre 2004
-
16 nov. 2004 à 13:39
jrivet Messages postés 7392 Date d'inscription mercredi 23 avril 2003 Statut Membre Dernière intervention 6 avril 2012 - 16 nov. 2004 à 14:24
jrivet Messages postés 7392 Date d'inscription mercredi 23 avril 2003 Statut Membre Dernière intervention 6 avril 2012 - 16 nov. 2004 à 14:24
3 réponses
Utilisateur anonyme
16 nov. 2004 à 13:49
16 nov. 2004 à 13:49
Salut, as tu éssayé :
Dim MaDate as date
MaDate = Date
Jour = val(left(Madate, 2))
Mois = val(mid(Madate, 4,2))
Annee = val (right (MaDate, 4))
'Suivant le format date standart dans windows
JourSemaine = Weekday(MaDate)If JourSemaine 1 Then JourSemaine "DIMANCHE"If JourSemaine 2 Then JourSemaine "LUNDI"If JourSemaine 3 Then JourSemaine "MARDI"If JourSemaine 4 Then JourSemaine "MERCREDI"If JourSemaine 5 Then JourSemaine "JEUDI"If JourSemaine 6 Then JourSemaine "VENDREDI"If JourSemaine 7 Then JourSemaine "SAMEDI"
A+
Dim MaDate as date
MaDate = Date
Jour = val(left(Madate, 2))
Mois = val(mid(Madate, 4,2))
Annee = val (right (MaDate, 4))
'Suivant le format date standart dans windows
JourSemaine = Weekday(MaDate)If JourSemaine 1 Then JourSemaine "DIMANCHE"If JourSemaine 2 Then JourSemaine "LUNDI"If JourSemaine 3 Then JourSemaine "MARDI"If JourSemaine 4 Then JourSemaine "MERCREDI"If JourSemaine 5 Then JourSemaine "JEUDI"If JourSemaine 6 Then JourSemaine "VENDREDI"If JourSemaine 7 Then JourSemaine "SAMEDI"
A+
crenaud76
Messages postés
4172
Date d'inscription
mercredi 30 juillet 2003
Statut
Membre
Dernière intervention
9 juin 2006
28
16 nov. 2004 à 14:05
16 nov. 2004 à 14:05
Acive < Plutot que ta série de If ... je préfère la fonction WeekDayName() pour avoir le nom du jour de la semaine.
Christophe R.
Christophe R.
jrivet
Messages postés
7392
Date d'inscription
mercredi 23 avril 2003
Statut
Membre
Dernière intervention
6 avril 2012
60
16 nov. 2004 à 14:24
16 nov. 2004 à 14:24
Salut,
Et pour remplacer les val(left....)
On peut utiliser les fonction DAY() MONTH() YEAR().
@+
Julien
-----------------------------------------------------------
:big) Essai ca sinon on trouvera autre chose ;)
-----------------------------------------------------------
Et pour remplacer les val(left....)
On peut utiliser les fonction DAY() MONTH() YEAR().
@+
Julien
-----------------------------------------------------------
:big) Essai ca sinon on trouvera autre chose ;)
-----------------------------------------------------------