Datetime format in textbox

[Agnes]

I know someone post the solution before, but I didn't keep in mind .
So I am sorry to ask the same question again
I had bind a datatime to the textbox name txtInvoice

I want it displayed in dd-mm-yyyy
I try txtInvoice.txt = Format(txtInvoi ce.txt,"dd-mm-yyyy"), its return
error.
Anyone know to do it ??
Thanks

[Herfried K. Wagner [MVP]]

* "Agnes" <ag***@dynamict ech.com.hk> scripsit:

I had bind a datatime to the textbox name txtInvoice

I want it displayed in dd-mm-yyyy
I try txtInvoice.txt = Format(txtInvoi ce.txt,"dd-mm-yyyy"), its return
error.

\\\
Dim d As Date = Date.Parse(txtI nvoice.Text)
txtInvoice.Text = d.ToString(...)
///

--
Herfried K. Wagner [MVP]
<URL:http://dotnet.mvps.org/>

[Cor Ligthert]

Hi Agnes,

It was still on my clipboard as answer to John,

I hope this helps?

Cor

Private Sub myroutine()
Mybinding = New Binding("Text", ds.Tables(0), "mydatfield ")
textdatfield.Da taBindings.Add( Mybinding)
AddHandler mybinding.Forma t, AddressOf DBdateTextbox
AddHandler mybinding.Parse , AddressOf TextBoxDBdate
End sub
Private Sub DBdateTextbox(B yVal sender As Object, _
ByVal cevent As ConvertEventArg s)
If cevent.Value Is DBNull.Value Then
cevent.Value = ""
Else
Dim datum As Date
datum = CDate(cevent.Va lue)
cevent.Value = datum.ToString( "dd - MM - yyyy")
End If
End Sub
Private Sub TextBoxDBdate(B yVal sender As Object, _
ByVal cevent As ConvertEventArg s)
If cevent.Value.To String = "" Then
cevent.Value = DBNull.Value
End If
End Sub
///

[Agnes]

Dear Cor,
It works BUT as i want to overwrite the date , it won't allow . I over
the date e.g 15-07-2004 to 05-07-2004,after press'tab'
It changed back into '15-07-2004'
Please ~~~
From AGnes
p.s- Your got a cliboard ?? where is it ?

"Cor Ligthert" <no**********@p lanet.nl> ¦b¶l¥ó
news:OC******** ******@TK2MSFTN GP12.phx.gbl ¤¤¼¶¼g...

Hi Agnes,

It was still on my clipboard as answer to John,

I hope this helps?

Cor

Private Sub myroutine()
Mybinding = New Binding("Text", ds.Tables(0), "mydatfield ")
textdatfield.Da taBindings.Add( Mybinding)
AddHandler mybinding.Forma t, AddressOf DBdateTextbox
AddHandler mybinding.Parse , AddressOf TextBoxDBdate
End sub
Private Sub DBdateTextbox(B yVal sender As Object, _
ByVal cevent As ConvertEventArg s)
If cevent.Value Is DBNull.Value Then
cevent.Value = ""
Else
Dim datum As Date
datum = CDate(cevent.Va lue)
cevent.Value = datum.ToString( "dd - MM - yyyy")
End If
End Sub
Private Sub TextBoxDBdate(B yVal sender As Object, _
ByVal cevent As ConvertEventArg s)
If cevent.Value.To String = "" Then
cevent.Value = DBNull.Value
End If
End Sub
///

[Cor Ligthert]

Hi Agnes,

What is the standard time notation in Hongkong?

Cor

ps my clipboard was the place I had copied things.

It works BUT as i want to overwrite the date , it won't allow . I over
the date e.g 15-07-2004 to 05-07-2004,after press'tab'
It changed back into '15-07-2004'
Please ~~~
From AGnes
p.s- Your got a cliboard ?? where is it ?

"Cor Ligthert" <no**********@p lanet.nl> ¦b¶l¥ó
news:OC******** ******@TK2MSFTN GP12.phx.gbl ¤¤¼¶¼g...

Hi Agnes,

It was still on my clipboard as answer to John,

I hope this helps?

Cor

Private Sub myroutine()
Mybinding = New Binding("Text", ds.Tables(0), "mydatfield ")
textdatfield.Da taBindings.Add( Mybinding)
AddHandler mybinding.Forma t, AddressOf DBdateTextbox
AddHandler mybinding.Parse , AddressOf TextBoxDBdate
End sub
Private Sub DBdateTextbox(B yVal sender As Object, _
ByVal cevent As ConvertEventArg s)
If cevent.Value Is DBNull.Value Then
cevent.Value = ""
Else
Dim datum As Date
datum = CDate(cevent.Va lue)
cevent.Value = datum.ToString( "dd - MM - yyyy")
End If
End Sub
Private Sub TextBoxDBdate(B yVal sender As Object, _
ByVal cevent As ConvertEventArg s)
If cevent.Value.To String = "" Then
cevent.Value = DBNull.Value
End If
End Sub
///

[Agnes]

Standard time notation in Hong kong ? normally dd-mm-yyyy
If i used in vfp . it is called italian date format

From Agnes

"Cor Ligthert" <no**********@p lanet.nl> ¦b¶l¥ó
news:OG******** ******@TK2MSFTN GP10.phx.gbl ¤¤¼¶¼g...

Hi Agnes,

What is the standard time notation in Hongkong?

Cor

ps my clipboard was the place I had copied things.

It works BUT as i want to overwrite the date , it won't allow . I over the date e.g 15-07-2004 to 05-07-2004,after press'tab'
It changed back into '15-07-2004'
Please ~~~
From AGnes
p.s- Your got a cliboard ?? where is it ?

"Cor Ligthert" <no**********@p lanet.nl> ¦b¶l¥ó
news:OC******** ******@TK2MSFTN GP12.phx.gbl ¤¤¼¶¼g...

Hi Agnes,

It was still on my clipboard as answer to John,

I hope this helps?

Cor

Private Sub myroutine()
Mybinding = New Binding("Text", ds.Tables(0), "mydatfield ")
textdatfield.Da taBindings.Add( Mybinding)
AddHandler mybinding.Forma t, AddressOf DBdateTextbox
AddHandler mybinding.Parse , AddressOf TextBoxDBdate
End sub
Private Sub DBdateTextbox(B yVal sender As Object, _
ByVal cevent As ConvertEventArg s)
If cevent.Value Is DBNull.Value Then
cevent.Value = ""
Else
Dim datum As Date
datum = CDate(cevent.Va lue)
cevent.Value = datum.ToString( "dd - MM - yyyy")
End If
End Sub
Private Sub TextBoxDBdate(B yVal sender As Object, _
ByVal cevent As ConvertEventArg s)
If cevent.Value.To String = "" Then
cevent.Value = DBNull.Value
End If
End Sub
///

[Cor Ligthert]

Hi Agnes,

Before I wrote this message I tested it completly again, while I have used
it before, however I could not simulate your problem so show some code as
you have implemented it?

Cor

[Agnes]

I just wrote a simple form with 2 textbox , txtDate is binded as following
As form load, it showed my data e.g 19-05-2004, and then i overwrite the
date field into '20-05-2004' ,press tab
it changed back into '19-05-2004'
Anything I done wrong ???
From Agnes

Private Sub Form1_Load(ByVa l sender As Object, ByVal e As
System.EventArg s) Handles MyBase.Load
daTest.Fill(DsT est)
Dim Mybinding As New Binding("Text", DsTest.Tables(0 ), "date")
txtDate.DataBin dings.Add(Mybin ding)
AddHandler txtDate.DataBin dings("Text").F ormat, AddressOf
DBdateTextbox
AddHandler txtDate.DataBin dings("Text").P arse, AddressOf
TextBoxDBdate
End Sub

"Cor Ligthert" <no**********@p lanet.nl> ¦b¶l¥ó
news:e3******** ******@tk2msftn gp13.phx.gbl ¤¤¼¶¼g...

Hi Agnes,

Before I wrote this message I tested it completly again, while I have used
it before, however I could not simulate your problem so show some code as
you have implemented it?

Cor

[Cor Ligthert]

Hi Agnes,

Can you try this sample, it needs one textbox and one button on a form.

I hope this helps?

Cor

\\\
Dim dt As New DataTable
Private Sub Form4_Load(ByVa l sender As Object, _
ByVal e As System.EventArg s) Handles MyBase.Load
dt.Columns.Add( New DataColumn("myd ate", GetType(System. DateTime)))
dt.Rows.Add(dt. NewRow)
Dim Mybinding As New Binding("Text", dt, "mydate")
TextBox1.DataBi ndings.Add(Mybi nding)
AddHandler Mybinding.Forma t, AddressOf DBdateTextbox
AddHandler Mybinding.Parse , AddressOf TextBoxDBdate
dt.Rows(0)("myd ate") = New Date(2004, 7, 15)
End Sub
Private Sub DBdateTextbox(B yVal sender As Object, _
ByVal cevent As ConvertEventArg s)
If cevent.Value Is DBNull.Value Then
cevent.Value = ""
Else
Dim datum As Date
datum = CDate(cevent.Va lue)
cevent.Value = datum.ToString( "dd - MM - yyyy")
End If
End Sub
Private Sub TextBoxDBdate(B yVal sender As Object, _
ByVal cevent As ConvertEventArg s)
If cevent.Value.To String = "" Then
cevent.Value = DBNull.Value
End If
End Sub
Private Sub Button1_Click(B yVal sender As System.Object, _
ByVal e As System.EventArg s) Handles Button1.Click
BindingContext( dt).EndCurrentE dit()
MessageBox.Show (dt.Rows(0)(0). ToString)
End Sub
///

[Agnes]

Dear Cor,
I just try it.. [I overwrite the date to 16-07-2004 ,after press button
, it changed back >_< ]
Anyway, thanks for your kind help and coding.
I will try my best to search thr internet and seek the solution.
Thanks in advance
From Agnes

"Cor Ligthert" <no**********@p lanet.nl> ¦b¶l¥ó
news:%2******** ********@tk2msf tngp13.phx.gbl ¤¤¼¶¼g...

Hi Agnes,

Can you try this sample, it needs one textbox and one button on a form.

I hope this helps?

Cor

\\\
Dim dt As New DataTable
Private Sub Form4_Load(ByVa l sender As Object, _
ByVal e As System.EventArg s) Handles MyBase.Load
dt.Columns.Add( New DataColumn("myd ate", GetType(System. DateTime)))
dt.Rows.Add(dt. NewRow)
Dim Mybinding As New Binding("Text", dt, "mydate")
TextBox1.DataBi ndings.Add(Mybi nding)
AddHandler Mybinding.Forma t, AddressOf DBdateTextbox
AddHandler Mybinding.Parse , AddressOf TextBoxDBdate
dt.Rows(0)("myd ate") = New Date(2004, 7, 15)
End Sub
Private Sub DBdateTextbox(B yVal sender As Object, _
ByVal cevent As ConvertEventArg s)
If cevent.Value Is DBNull.Value Then
cevent.Value = ""
Else
Dim datum As Date
datum = CDate(cevent.Va lue)
cevent.Value = datum.ToString( "dd - MM - yyyy")
End If
End Sub
Private Sub TextBoxDBdate(B yVal sender As Object, _
ByVal cevent As ConvertEventArg s)
If cevent.Value.To String = "" Then
cevent.Value = DBNull.Value
End If
End Sub
Private Sub Button1_Click(B yVal sender As System.Object, _
ByVal e As System.EventArg s) Handles Button1.Click
BindingContext( dt).EndCurrentE dit()
MessageBox.Show (dt.Rows(0)(0). ToString)
End Sub
///