Calcul du jour de la semaine

Fermé
duarep Messages postés 34 Date d'inscription samedi 30 mars 2013 Statut Membre Dernière intervention 22 février 2014 - 21 févr. 2014 à 17:05
eriiic Messages postés 24603 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 15 décembre 2024 - 23 févr. 2014 à 11:48
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
A voir également:

4 réponses

duarep Messages postés 34 Date d'inscription samedi 30 mars 2013 Statut Membre Dernière intervention 22 février 2014
21 févr. 2014 à 18:22
Précision : Visual Basic Express 10
0
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
21 févr. 2014 à 21:04
Bonjour,

Je ne comprends pas trop ce que tu cherches à faire.

Une piste peut être :

DateValue = CDate(ComboBox7.Text & "/" & ComboBox8.Text & "/" & TextBox1.Text) 

0
duarep Messages postés 34 Date d'inscription samedi 30 mars 2013 Statut Membre Dernière intervention 22 février 2014
22 févr. 2014 à 07:21
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
0
duarep Messages postés 34 Date d'inscription samedi 30 mars 2013 Statut Membre Dernière intervention 22 février 2014
22 févr. 2014 à 17:26
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
0
eriiic Messages postés 24603 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 15 décembre 2024 7 254
Modifié par eriiic le 23/02/2014 à 11:49
Bonjour,

La fonction pour avoir le jour de semaine est Weekday().

Au passage, dateValue étant une fonction, c'est une très mauvaise idée que de nommer une variable ainsi...

eric
0