Imports System.Runtime.InteropServices
Imports System.Globalization
<ComVisible(True)> _
<Guid(DateManager.InterfaceId)> _
Public Interface IDate
Function FormatDate(ByVal DateValue As String, ByVal sFormat As String, Optional ByVal sCultureInfo As String = "th-TH") As String
End Interface
<XXXComVisible(True)> _
<XXXGuid(DateManager.ClassId)> _
<XXXtInterface(GetType(IDate))> _
Public Class DateUnmanageCodeing
Implements IDate
#Region "COM GUIDs"
Public Const ClassId As String = "หอย-D1E5-4d7b-B642-DBC565563B27"
Public Const InterfaceId As String = "หอย-1184-428b-883A-B7F8C7370C8F"
Public Const EventsId As String = "หอย-57FB-427a-90E2-6E8DDCA57E3B"
#End Region
More...
...
...
...