AfxGetFileCreationAstroTime

[Jim Dunn]

Hey Jose,

First, let me apologize for another "PowerBASIC" question.  Recently I needed to update an old PowerBASIC program for a client who didn't want to go FreeBasic... anyway, I had difficulty comparing AfxAstroDay with AfxGetFileCreationTime and didn't want to spend more time on it (it was a freebie for the client)... so I wrote a quick AfxGetFileCreationAstroTime function:

Code Select Expand

FUNCTION AfxGetFileCreationAstroTime(BYVAL theFile AS WSTRING) AS LONG
LOCAL theFileTime AS QUAD
theFileTime = AfxGetFileCreationTime(theFile)

LOCAL lft AS FileTime, st AS SystemTime
FileTimeToLocalFileTime(BYVAL VARPTR(theFileTime), lft)
FileTimeToSystemTime(lft, st)

FUNCTION = AfxAstroDay(st.wDay,st.wMonth,st.wYear)
END FUNCTION

But, my questions are:

• Is WINAPI_III_107 the last/latest version of the PowerBASIC .inc files, in case I have to do other stuff for this client
• Are you completely FreeBasic now?  (how do you like it?  I've seen the WinFBX stuff, very nice)

Thx!  : )

P.S.  And, again, thanks for all the help you've been over the years!

[José Roca]

If there aren't new versions of PB, I have no incentives to continue working with it. I'm retired, so programming has become a hobby.