Debutant aide!!!!!!!!!!!!
Debutant
-
17 mai 2001 à 06:58
ray2112 Messages postés 13 Date d'inscription mercredi 2 juillet 2003 Statut Membre Dernière intervention 18 juillet 2012 - 31 oct. 2004 à 16:40
ray2112 Messages postés 13 Date d'inscription mercredi 2 juillet 2003 Statut Membre Dernière intervention 18 juillet 2012 - 31 oct. 2004 à 16:40
A voir également:
- Debutant aide!!!!!!!!!!!!
- Projet c++ débutant - Forum C++ & C++ .NET
- Debutant: Comment creer un projet ✓ - Forum C / C++ / C++.NET
- Php debutant ✓ - Forum PHP
- Mini Projet - Forum C
- Projet : gestion client - Forum C / C++ / C++.NET
4 réponses
salut
voici le code pour récupérer le jour:
Label1.Caption = WeekdayName(Weekday(Date), , vbSunday)
mais attention les réglages de ton poste le feront peut-être commencé la semaine le dimanche (on est donc le 5ème jour de la semaine pour lui) et vb commence peut-être à compter à partir de lundi, donc pour vb on sera vendredi alors qu'on est jeudi
d'où le dernier paramètre: vbsunday pour lui spécifier de commencer à compter la semaine le dimanche, comme le poste.
voici le code pour récupérer le jour:
Label1.Caption = WeekdayName(Weekday(Date), , vbSunday)
mais attention les réglages de ton poste le feront peut-être commencé la semaine le dimanche (on est donc le 5ème jour de la semaine pour lui) et vb commence peut-être à compter à partir de lundi, donc pour vb on sera vendredi alors qu'on est jeudi
d'où le dernier paramètre: vbsunday pour lui spécifier de commencer à compter la semaine le dimanche, comme le poste.
Voici une fonction qui apportera réponse à ta question.
Public Function GetCurrentDay(MyDate As Date) As String
Dim TabJour(1 To 7) As String
TabJour(1) = "dimanche"
TabJour(2) = "lundi"
TabJour(3) = "mardi"
TabJour(4) = "mercredi"
TabJour(5) = "jeudi"
TabJour(6) = "vendredi"
TabJour(7) = "samedi"
GetCurrentDay = TabJour(Weekday(Date))
End Function
Pour tester:
MsgBox GetCurrentDay(Date)
Tchao
Néo.Balastik
Public Function GetCurrentDay(MyDate As Date) As String
Dim TabJour(1 To 7) As String
TabJour(1) = "dimanche"
TabJour(2) = "lundi"
TabJour(3) = "mardi"
TabJour(4) = "mercredi"
TabJour(5) = "jeudi"
TabJour(6) = "vendredi"
TabJour(7) = "samedi"
GetCurrentDay = TabJour(Weekday(Date))
End Function
Pour tester:
MsgBox GetCurrentDay(Date)
Tchao
Néo.Balastik
ray2112
Messages postés
13
Date d'inscription
mercredi 2 juillet 2003
Statut
Membre
Dernière intervention
18 juillet 2012
31 oct. 2004 à 16:40
31 oct. 2004 à 16:40
Ray
Utilise la fonction WeekdayName(d, False, 0)
dans une boucle en changeant "d" qui est le numéros du jour dans la semaine !!
Utilise la fonction WeekdayName(d, False, 0)
dans une boucle en changeant "d" qui est le numéros du jour dans la semaine !!
