Discussion :

[duarep]

Bonjour,
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
Je travaille avec Visual Basic 2010 Express
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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
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

[ebastien]

Bonjour,

Si tu cherches à transformer une String en DateTime, regarde du coté de DateTime.ParseExact ou DateTime.TryParseExact :

http://msdn.microsoft.com/fr-fr/libr...v=vs.110).aspx
http://msdn.microsoft.com/fr-fr/library/ms131044(v=vs.110).aspx

[duarep]

Pourrais tu avoir la gentillesse de me montrer comment le programmer dans le code que j'ai indiqué.
(j'ai quelques difficultés a comprendre les explications données dans les url que tu m'a indiqués.)

[duarep]

J'ai fini par trouver une solution à mon problème
(Il y a surement une solution + académique mais cela me suffit )

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 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

Encore merci ebastien por ton aide