Obtaining windows region date format

[hua]

Hi guys,
How to obtain a windows region date format?

TIA

[nageswaragunupudi]

Code: Select all  Expand view

  #ifndef HKEY_CURRENT_USER
      #define  HKEY_CURRENT_USER    0x80000001
   #endif

function test()

   local oReg

   oReg  := TReg32():New( HKEY_CURRENT_USER, "Control Panel\International", .f. )
   ? oReg:Get( "sShortDate" )
   ? oReg:Get( "sLongDate" )
   oReg:Close()

return nil
 

[hua]

Thanks Rao!

[nageswaragunupudi]

If you want to display date values in these formats, you can use

? cValToStr( dDateValue, cFormat )

For displaying the date values in Xbrowse using these formats, you can set oCol:cEditPicture := cFormat

[hua]

Thanks for the tip Rao!