Change date format of custom iProperty

[CadUser46]

I need to change the date format of an iProperty.  It gets created as dd/mm/yyyy and i want to change to dd-MMM-yy.

I was trying this but to no avail

oProp.Value = Format(oProp.Value,"dd-MMM-yy")

[CadUser46]

Please note that the input is always a string in dd/mm/yyyy format but it may be interpreted by machines in any locale.

[CadUser46 · Accepted solution]

Couldn't wait any longer so here it is.

Sub Main()

    Dim invApp As Inventor.Application = ThisApplication
    Dim oDoc As Inventor.Document = invApp.ActiveDocument
    Dim oPropSet As PropertySet = oDoc.PropertySets("Inventor User Defined Properties")
    Dim oProp As Inventor.Property
    
    Try
    	oProp = oPropSet("MyProp")
    Catch
        oProp = oPropSet.Add(Now.ToString("dd-MMM-yy"), "MyProp")
    End Try

	Dim d As Date
	Try
		Dim arr() As String = Split(oProp.Value, "/", 3)
		d = DateSerial(arr(2), arr(1), arr(0))
		oProp.Value = Microsoft.VisualBasic.Strings.Format(d,"dd-MMM-yy")
	Catch
	End Try

End Sub