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

Type FILETIME
  dwLowDateTime As Long
  dwHighDateTime As Long
End Type

dllname KERNEL
cdeclare void GetLocalTime(SYSTEMTIME *);
cdeclare void GetSystemTime(SYSTEMTIME *);
cdeclare long SystemTimeToFileTime(SYSTEMTIME *, FILETIME *);
cdeclare long FileTimeToSystemTime(FILETIME *, SYSTEMTIME *);
cdeclare long CompareFileTime(FILETIME *, FILETIME *);

dllname "CalcFiletime.dll"
cdeclare void AddSecond(FILETIME*, long, FILETIME*);
cdeclare void AddMinute(FILETIME*, long, FILETIME*);
cdeclare void AddHour(FILETIME*, long, FILETIME*);
cdeclare void AddDay(FILETIME*, long, FILETIME*);

proc main2
	dim st as SYSTEMTIME
	dim ft as FILETIME
	dim ftYesterday as FILETIME
	dim stYesterday as SYSTEMTIME
	
	GetLocalTime(st)
	SystemTimeToFileTime(st, ft)
	AddDay(ft, -1, ftYesterday)
	FileTimeToSystemTime(ftYesterday, stYesterday)
	print str$(st.wDay) +  " " + str$(stYesterday.wDay)
end proc

proc main
	dim st as SYSTEMTIME
	dim ft as FILETIME
	dim stYesterday as SYSTEMTIME
	
	GetLocalTime(st)
	SystemTimeToFileTime(st, ft)
	AddDay(ft, -1, ft)
	FileTimeToSystemTime(ft, stYesterday)
	print str$(st.wDay) +  " " + str$(stYesterday.wDay)
end proc