Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
TaskList timestamp
Message
De
31/01/2018 14:39:53
 
 
À
31/01/2018 06:51:00
Information générale
Forum:
Visual FoxPro
Catégorie:
Produits tierce partie
Versions des environnements
Visual FoxPro:
VFP 9 SP2
Divers
Thread ID:
01657610
Message ID:
01657645
Vues:
74
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
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform