Michael,
Actually this would not be hard at all. AVCXCLASSES() will give you a list of
the classes
and some other details. One of the details missing is the datetime stamp. You
could then
open the VCX and locate the records and pull in the date time stamp for each of
the
classes and store this into a new column you add to the array returned by
AVCXCLASSES().
Here is the code to decode the timestamp column although I think you could just
sort the
list on the timestamp if you do not need the readable version:
LPARAMETER tnTimeStamp, tcStyle
LOCAL lcRetVal && Requested data returned from
procedure
IF TYPE('tnTimeStamp') != "N" && Timestamp must be numeric
WAIT WINDOW "Time stamp passed is not numeric"
RETURN ""
ENDIF
IF tnTimeStamp = 0 && Timestamp is zero until built in
project
RETURN "Not built into App"
ENDIF
IF TYPE('tcStyle') != "C" && Default return style to both date
and time
tcStyle = "DATETIME"
ENDIF
IF !INLIST(UPPER(tcStyle), "DATE", "TIME", "DATETIME")
WAIT WINDOW "Style parameter must be DATE, TIME, or DATETIME"
RETURN ""
ENDIF
lnYear = ((tnTimeStamp/(2**25) + 1980))
lnMonth = ((lnYear-INT(lnYear) )*(2**25))/(2**21)
lnDay = ((lnMonth-INT(lnMonth) )*(2**21))/(2**16)
lnHour = ((lnDay-INT(lnDay) )*(2**16))/(2**11)
lnMinute = ((lnHour-INT(lnHour) )*(2**11))/(2**05)
lnSecond = ((lnMinute-INT(lnMinute))*(2**05))*2 && Multiply by two to
correct
&& truncation problem
built in
&& to the creation
algorithm
&& (Source: Microsoft
Tech Support)
lcRetVal = ""
IF "DATE" $ UPPER(tcStyle)
lcRetVal = lcRetVal + RIGHT("0"+ALLTRIM(STR(INT(lnMonth))),2) + "/" + ;
RIGHT("0"+ALLTRIM(STR(INT(lnDay))),2) + "/" + ;
RIGHT("0"+ALLTRIM(STR(INT(lnYear))),2)
ENDIF
IF "TIME" $ UPPER(tcStyle)
lcRetVal = lcRetVal + IIF("DATE" $ UPPER(tcStyle), " ", "")
lcRetVal = lcRetVal + RIGHT("0"+ALLTRIM(STR(INT(lnHour))),2) + ":" + ;
RIGHT("0"+ALLTRIM(STR(INT(lnMinute))),2) + ":" + ;
RIGHT("0"+ALLTRIM(STR(INT(lnSecond))),2)
ENDIF
RETURN lcRetVal
*: EOF :*
Let me know when you get this ready for beta testing <bg>.
Rick
White Light Computing, Inc.
www.whitelightcomputing.com
www.rickschummer.com
586.254.2530 - office
586.254.2539 - fax
-----Original Message-----
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of MB
Software Solutions
Sent: Tuesday, June 20, 2006 04:59 PM
To: [EMAIL PROTECTED]
Subject: Ever wish this for VFP? Last modified class in VCX library
It'd be nice to see the classes listed in last modified date order, so that I
could easily
see what I worked on last. As it stands, it lists the classes in the VCX lib
in alpha
order.
Simple request, right? <g>
--
Michael J. Babcock, MCP
MB Software Solutions, LLC
http://mbsoftwaresolutions.com
http://fabmate.com
"Work smarter, not harder, with MBSS custom software solutions!"
_______________________________________________
Post Messages to: [email protected]
Subscription Maintenance: http://leafe.com/mailman/listinfo/profox
OT-free version of this list: http://leafe.com/mailman/listinfo/profoxtech
** All postings, unless explicitly stated otherwise, are the opinions of the
author, and do not constitute legal or medical advice. This statement is added
to the messages for those lawyers who are too stupid to see the obvious.
