Change Date format in List view

[dr223]

Hallo,

I have a date format on my list view which is read from sql server , i.e., the date format is expressed as for example 12/08/2009 12:00:00

I dont want to show the 12:00:00 at the front end level. At runtime the user will only see for example 12/08/2009 ONLY. How can I achieve that with the details shown below. Just need to format the SubItems(2) as it contains the date...


LvwColProc.Items(0).SubItems(2).Text

Thanks in advance.

Regards

[HanneSThEGreaT]

Have you tried using the Format function ¿

[dr223]

nop

I have the followung sub where I need to insert the format function but I dont know the syntax,

Private Sub PopulateListViewColProc()

Me.LvwColProc.Items.Clear()
For Each com As ColProc In mColProc

Dim item As New ListViewItem()
PopulateListViewItemColproc(item, com)

Me.LvwColProc.Items.Add(item)

TxtCurrProcStage.Text = LvwColProc.Items(0).SubItems(1).Text

If (LvwColProc.Items(0).SubItems(2).Text = "01/01/1900") Or (LvwColProc.Items(0).SubItems(2).Text = "01/01/2025") Then
LvwColProc.Items(0).SubItems(2).Text = ""
End If


Next
End Sub

[HanneSThEGreaT]

Here's a nice example :
http://msdn.microsoft.com/en-us/library/59bz1f0h(VS.71).aspx

:)

[dr223]

Thanks, tried the following code it gives an error;
Unable to cast object of type 'ListViewSubItem' to type 'System.IConvertible'.

How can I adjust the code...

Private Sub PopulateListViewColProc()

Me.LvwColProc.Items.Clear()
For Each com As ColProc In mColProc

Dim item As New ListViewItem()
PopulateListViewItemColproc(item, com)

Me.LvwColProc.Items.Add(item)

TxtCurrProcStage.Text = LvwColProc.Items(0).SubItems(1).Text

If (LvwColProc.Items(0).SubItems(2).Text = "01/01/1900") Or (LvwColProc.Items(0).SubItems(2).Text = "01/01/2025") Then
LvwColProc.Items(0).SubItems(2).Text = ""
End If


Dim MyDateTime As Date = #1/27/2001 5:04:23 AM#
Dim MyStr As String
'Also returns current system date in the system-defined long date
' format, using the single letter code for the format.
MyStr = Format(LvwColProc.Items(0).SubItems(2), "d-mm-yyyy")


Next
End Sub

[HanneSThEGreaT]

Try this :
MyStr = Format(LvwColProc.Items(0).SubItems(2).Text, "d-mm-yyyy")