Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
TaskList timestamp
Message
From
31/01/2018 14:39:53
 
 
To
31/01/2018 06:51:00
General information
Forum:
Visual FoxPro
Category:
Third party products
Environment versions
Visual FoxPro:
VFP 9 SP2
Miscellaneous
Thread ID:
01657610
Message ID:
01657645
Views:
72
Thank you one and all.

After posting, I discovered the source code to TaskList. Also, I discovered that there was a crud object too.

The project is requesting that as special comments are added that a related entry occur in the Task List. The project would scan that source code, and find these comments and record them in the list. It best appears that using the TaskList's methods (AddTask()) is my best approach.

Why is this utility not used much?

>from tasklist.prg from vfp xsource as pointed in my answer above.
>
>
>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
>
>
Greg Reichert
Previous
Reply
Map
View

Click here to load this message in the networking platform