>I need an example for get and change system date by windows api
>

Declare Function SetLocalTime Lib "kernel32" (lpSystemTime As SYSTEMTIME) As Long

Type SYSTEMTIME
   wYear As Integer
   wMonth As Integer
   wDayOfWeek As Integer
   wDay As Integer
   wHour As Integer
   wMinute As Integer
   wSecond As Integer
   wMilliseconds As Integer
End Type

' Set SYSTEMTIME structure with new time
lpSystemTime.wYear = 2000
lpSystemTime.wMonth = 3
lpSystemTime.wDayOfWeek = 1
lpSystemTime.wDay = 5
lpSystemTime.wHour = 16
lpSystemTime.wMinute = 0
lpSystemTime.wSecond = 0
lpSystemTime.wMilliseconds = 0
lReturn = SetLocalTime(lpSystemTime)

Now will give you the current date.

HTH.