Sorry your browser is not supported!

Type SYSTEMTIME
  wYear As word
  wMonth As word
  wDayOfWeek As word
  wDay As word
  wHour As word
  wMinute As word
  wSecond As word
  wMilliseconds As word
EndType

systime as SYSTEMTIME

load dll "Kernel32.dll",1

if dll exist(1) and dll call exist(1,"GetSystemTime")

  call dll 1, "GetSystemTime", systime
  print systime.wYear
  print systime.wMonth
  print systime.wDayOfWeek
  print systime.wDay
  print systime.wHour
  print systime.wMinute
  print systime.wSecond
  print systime.wMilliseconds

endif

sync : wait key
delete dll 1
end

load dll "Kernel32.dll",1

make memblock 1,16
systime = get memblock ptr(1)

if dll exist(1) and dll call exist(1,"GetSystemTime")

  call dll 1, "GetSystemTime", systime
  year = memblock word(1,0)
  month = memblock word(1,2)
  weekday = memblock word(1,4)
  day = memblock word(1,6)
  hour = memblock word(1,8)
  minute = memblock word(1,10)
  second = memblock word(1,12)

  print "Date: ";day;"/";month;"/";year
  print "Time: ";hour;":";minute;":";second

endif

sync : wait key
delete memblock 1
end