home *** CD-ROM | disk | FTP | other *** search
/ PC Pro 2005 June (DVD) / DPPRO0605DVD.iso / dotNETSDK / SETUP.EXE / netfxsd1.cab / FL_SysTime_vb________.3643236F_FC70_11D3_A536_0090278A1BB8 < prev    next >
Encoding:
Text File  |  2001-08-27  |  1.2 KB  |  57 lines
  1. ' Copyright
  2. ' Microsoft Corporation
  3. ' All rights reserved
  4.  
  5. ' SysTime.vb
  6.  
  7. Imports System
  8. Imports System.Runtime.InteropServices
  9.  
  10. 'typedef struct _SYSTEMTIME { 
  11. '    WORD wYear; 
  12. '    WORD wMonth; 
  13. '    WORD wDayOfWeek; 
  14. '    WORD wDay; 
  15. '    WORD wHour; 
  16. '    WORD wMinute; 
  17. '    WORD wSecond; 
  18. '    WORD wMilliseconds; 
  19. '} SYSTEMTIME, *PSYSTEMTIME; 
  20.  
  21. < StructLayout(LayoutKind.Sequential )> _
  22. Public Class SystemTime
  23.  
  24.    Public year As Short
  25.    Public month As Short 
  26.    Public dayOfWeek As Short 
  27.    Public day As Short 
  28.    Public hour As Short 
  29.    Public minute As Short 
  30.    Public second As Short 
  31.    Public milliseconds As Short 
  32.    
  33. End Class 'SystemTime
  34.  
  35.  
  36. Public Class LibWrap
  37.    
  38.     'VOID GetSystemTime(LPSYSTEMTIME lpSystemTime)
  39.     
  40.     Declare Sub GetSystemTime Lib "Kernel32.dll" (<[In], Out> ByVal st As SystemTime )
  41.     
  42. End Class 'LibWrap
  43.  
  44. Public Class App
  45.     Public Shared Sub Main()
  46.     
  47.         Dim st As New SystemTime()
  48.         
  49.         LibWrap.GetSystemTime( st )
  50.         
  51.         Console.Write( "The Date and Time is: " )
  52.         Console.Write( "{0:00}/{1:00}/{2} at ", st.month, st.day, st.year )
  53.         Console.WriteLine( "{0:00}:{1:00}:{2:00}", st.hour, st.minute, st.second )
  54.     
  55.     End Sub 'Main
  56. End Class 'App
  57.