PlanetSquires Forums

Please login or register.

Login with username, password and session length
Advanced search  

Author Topic: AfxGetFileCreationAstroTime  (Read 101 times)

Jim Dunn

  • Junior Member
  • **
  • Posts: 111
  • Jim Dunn
AfxGetFileCreationAstroTime
« on: May 11, 2019, 11:57:43 AM »

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]
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!
Logged
3.14159265358979323846264338327950
"Ok, yes... I like pie... um, I meant, pi."

Josť Roca

  • Guru Member
  • *****
  • Posts: 3171
Re: AfxGetFileCreationAstroTime
« Reply #1 on: May 11, 2019, 04:56:20 PM »

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.