Windows Date Format

[Jeff Barnes]

Hi,

I've asked this before but never was able to get a solution...

How can I set the date format in my app to match the short date format set in Windows Regional Settings?

[Jeff Barnes]

I figured out a way to do it

For anyone else looking for a solution ... Here is what I came up with:

Code: Select all  Expand view

#define HKEY_CURRENT_USER 2147483649

SET DATE FORMAT TO GetSysDate()
 

Code: Select all  Expand view

Function GetSysDate()
    LOCAL oReg, c := "Control Panel\International"
    oReg := TReg32():New( HKEY_CURRENT_USER ,c , .F.)
    cSysDate := oReg:Get("sShortDate", "" )
    oReg:Close()
Return cSysDate