Calcul du jour de la semaine
duarep
Messages postés
35
Statut
Membre
-
eriiic Messages postés 24581 Date d'inscription Statut Contributeur Dernière intervention -
eriiic Messages postés 24581 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour,
Je teste la routine suivante qui fonctionne bien, mais je ne parviens pas à utiliser les infos des variables Jour Mois An pour modifier le champs #3/25/1936# de la fonction dateValue.
Dim Jour As String
Dim Mois As String
Dim An As String
Jour = ComboBox7.Text
Mois = ComboBox8.Text
An = TextBox2.Text
'
Dim dateValue As Date = #3/25/1936#
MsgBox(dateValue.ToString("ddd")) ' Displays Mer
dateValue = #6/11/2008#
MsgBox(dateValue.DayOfWeek) ' Displays 3
Quelqu'un peut-il m'aider?
Merci par avance
Je teste la routine suivante qui fonctionne bien, mais je ne parviens pas à utiliser les infos des variables Jour Mois An pour modifier le champs #3/25/1936# de la fonction dateValue.
Dim Jour As String
Dim Mois As String
Dim An As String
Jour = ComboBox7.Text
Mois = ComboBox8.Text
An = TextBox2.Text
'
Dim dateValue As Date = #3/25/1936#
MsgBox(dateValue.ToString("ddd")) ' Displays Mer
dateValue = #6/11/2008#
MsgBox(dateValue.DayOfWeek) ' Displays 3
Quelqu'un peut-il m'aider?
Merci par avance
4 réponses
-
-
Bonjour,
Je ne comprends pas trop ce que tu cherches à faire.
Une piste peut être :
DateValue = CDate(ComboBox7.Text & "/" & ComboBox8.Text & "/" & TextBox1.Text)
-
Merci pour ta réponse
Je cherche à ajouter à un de mes programme de conversion Date calendrier grégorien en date calendrier révolutionnaire, une information sur le jour de la semaine.
J'ai découvert qu'une fonction VB le faisait
Dim dateValue As Date = #3/25/1936#
MsgBox(dateValue.ToString("ddd")) ' Displays Mer
Mon problème vient du fait que je n'arrive pas à insérer les infos saisies dans
cette routine.
J'avais essayé la méthode que tu me propose mais dans le doute je l'ai de nouveau essayée.sans succès
Voir résultat
http://duarep.free.fr/download/Provisoire/screenshot_02.jpg
Pux tu me dire si j'ai mal utilisé ta suggestion ou et a tu une autre idée?
Merci -
J'ai fini par trouver une solution à mon problème
(Il y a surement une solution + académique mais cela me suffit )
Dim Jour As String
Dim An As String
Dim Data As String
Jour = ComboBox7.Text
An = TextBox2.Text
Data = (An + Mois + Jour)
'MsgBox(Data)
Dim dateValue As Date = DateTime.ParseExact(Data, "yyyyMMdd", Nothing)
' MsgBox(dateValue)
MsgBox(dateValue.ToString("ddd")) ' Displays Mer
MsgBox(dateValue.DayOfWeek) ' Displays 3
