//=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
// Confidential Trade Secret.
// Copyright 1987-2001 Data Access Corporation, Miami FL, USA
// All Rights reserved
// DataFlex is a registered trademark of Data Access Corporation.
//
// Module:
//      GetCalendarInfo.Pkg
//
// Purpose:
//      Defines interface to WinAPI function GetCalendarInfo
//
// Author:
//      Vincent Oorsprong
//
// Date:
//      2001, July, 7th
//
//=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
#IFNDEF GET_GetCalendarInfo
External_Function WinAPI_GetCalendarInfo "GetCalendarInfoA" Kernel32.Dll Integer iLocale Integer iCalendar Integer iCaltype Pointer lpCalData Integer cchData Pointer lpValue Returns Integer

Define CAL_ITWODIGITYEARMAX For |CI$00000030  // two digit year max

Function GetCalendarInfo Desktop Integer iLocale Integer iCalendar Integer iCaltype Returns String
    Integer iRetval
    String sCalData
    
    ZeroString 255 To sCalData
    
    Move (WinAPI_GetCalendarInfo (iLocale, iCalendar, iCaltype, AddressOf (sCalData), 255, 0)) To iRetval
    
    Function_Return (CString (sCalData))
End_Function // GetCalendarInfo
#ENDIF