1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49
| Imports xxx.Web
Partial Public Class testDate
Inherits Page
Public Sub New()
InitializeComponent()
Dim myFR_culture As New Globalization.CultureInfo("fr-FR")
System.Threading.Thread.CurrentThread.CurrentCulture = myFR_culture
System.Threading.Thread.CurrentThread.CurrentUICulture = myFR_culture
FillList()
End Sub
'Executes when the user navigates to this page.
Protected Overrides Sub OnNavigatedTo(ByVal e As System.Windows.Navigation.NavigationEventArgs)
End Sub
Private Sub FillList()
Dim fp As IFormatProvider = New System.Globalization.CultureInfo("fr-FR")
Dim dt As DateTime = DateTime.Parse("9 mars 2005 17:23:15", fp)
Dim myListDate As New List(Of DateTime)
myListDate.Add(dt)
Me.testDataGrid.ItemsSource = myListDate
'ici on stocke cette même date dans la base de données
Dim myRiaDate As New testDateTbl
myRiaDate.testDate = DateTime.Parse("9 mars 2005 17:23:15", fp)
CType(TestDS.DomainContext, xxx_Context).testDateTbls.Add(myRiaDate)
Try
TestDS.SubmitChanges()
'A ce moment, dans ma base de donnée j'ai bien 9/03/2005 17:23:15
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub
End Class |