> >messagebox[getTimeStamp(dateTime())] > >*-- Returns a timestamp >Function getTimeStamp >Lparameters tdDate, ttTime > > Private All Except g* > DECLARE GetSystemTime IN Win32API String @ lsSystemTime > DECLARE integer SystemTimeToFileTime IN Win32API string @ lsSystemTime, string @ lsFileTime > DECLARE integer FileTimeToLocalFileTime IN Win32API string @ lsFileTime, string @ lsLocalFileTime > DECLARE integer FileTimeToDosDateTime IN Win32API string @ lsLocalFileTime, string @ lsDate, string @ lsTime > > *-- Create the structures > lsSystemTime = SPACE(16) > lsFileTime = SPACE(8) > lsLocalFileTime = SPACE(8) > lsDate = SPACE(2) > lsTime = SPACE(2) > GetSystemTime(@lsSystemTime) > liRet = SystemTimeToFileTime(@lsSystemTime, @lsFileTime) > liRet = FileTimeToLocalFileTime(@lsFileTime, @lsLocalFileTime) > liRet = FileTimeToDosDateTime(@lsLocalFileTime, @lsDate, @lsTime) > > *-- Unpack the structures > liDate = StrToWord(lsDate) > liTime = StrToWord(lsTime) > RETURN BITLSHIFT(liDate, 16) + liTime >EndFunc > >FUNCTION StrToWord >PARAMETERS m.wordstr >PRIVATE i, m.retval >m.retval = 0 >FOR i = 0 TO 8 STEP 8 >m.retval = m.retval + (ASC(m.wordstr) * (2^i)) >m.wordstr = RIGHT(m.wordstr, LEN(m.wordstr) - 1) >NEXT >RETURN m.retval >ENDFUNC > >