因为DateTime是一个类,对于静态成员函数,你可以通过DateTime去访问。但是对于其他非静态的函数,你指能够通过DateTime的具体实例去访问。也就是说必须订一个DateTime类型的变量(对象),然后才能够访问,如:
Dim d As DateTime
d.xxx <- 这个时候就能见到所有公共的函数了。
Imports System
Imports System.Runtime.InteropServices
<StructLayout(LayoutKind.Sequential)> _
Public Class SystemTime
Public year As Short
Public month As Short
Public dayOfWeek As Short
Public day As Short
Public hour As Short
Public minute As Short
Public second As Short
Public milliseconds As Short
End Class 'SystemTime
Public Class LibWrap
'VOID GetSystemTime(LPSYSTEMTIME lpSystemTime)
Declare Sub GetSystemTime Lib "Kernel32.dll" (<[In](), Out()> ByVal st As SystemTime)
End Class 'LibWrap
然后在你所操作的class中调用就行了!!!
例如:
class sss
Private Function create_id() As String
Dim st As New SystemTime()
LibWrap.GetSystemTime(st)
Dim yy As String = st.year
Dim mm As String = st.month
Dim dd As String = st.day
Dim hh As String = st.hour
Dim m As String = st.minute
Dim ss As String = st.second
Dim ms As String = st.milliseconds
end function
uctTime 获取一个 DateTime,它是以协调通用时间 (UTC) 表示的此计算机上的当前本地日期和时间。
Dim MyDateTime As Date = #1/27/2001 5:04:23 PM#
Dim MyStr As String
MyStr = Format(MyDateTime, "h:m:s") ' Returns "5:4:23".