Hola Jose,
Not sure if this has been said before...
In any case, here it is...
' ========================================================================================
' Converts a time stored in a QUAD into a string.
' ========================================================================================
FUNCTION AfxQuadTimeToStr (BYVAL qTime AS QUAD) AS WSTRING
IF qTime = 0 THEN EXIT FUNCTION
'LOCAL ST AS SYSTEMTIME, FT AS FILETIME, bstrDateSep AS WSTRING
'bstrDateSep = AfxGetLocaleDateSeparator
'FT.qDateTime = qTime
'FileTimeToSystemTime(FT, ST)
'FUNCTION = FORMAT$(ST.wDay,"00") & bstrDateSep & _
' FORMAT$(ST.wMonth,"00") & bstrDateSep & _
' FORMAT$(ST.wYear,"00")
'Changed bstrDateSep to bstrTimeSep and AfxGetLocaleDateSeparator to AfxGetLocaleTimeSeparator.
LOCAL ST AS SYSTEMTIME, FT AS FILETIME, bstrTimeSep AS WSTRING
bstrTimeSep = AfxGetLocaleTimeSeparator 'https://forum.powerbasic.com/forum/jose-s-corner/downloads/61213-windows-api-headers-iii-v-1-07?p=802868#post802868
FT.qDateTime = qTime
FileTimeToSystemTime(FT, ST)
FUNCTION = FORMAT$(ST.wDay,"00") & bstrTimeSep & _
FORMAT$(ST.wMonth,"00") & bstrTimeSep & _
FORMAT$(ST.wYear,"00")
END FUNCTION
' ========================================================================================
