// "Mon, 15 Mar 2021 12:56:41 GMT" 
 FUNCTION DTimeToTS(cFull, cLang)  
    LOCAL m := GET_MONTHS(cLang) 
    LOCAL cMonth 
    LOCAL aDateTime 
  
    aDateTime := hb_ATokens(hb_defaultValue(cFull, "")," ") 
  
    IF LEN(aDateTime) >= 5  
       cMonth := StrZero(AScan(m, aDateTime[3]), 2)  
  
       RETURN hb_StrToTS(hb_strFormat("%s-%s-%s %s", aDateTime[4], cMonth, aDateTime[2], aDateTime[5])) 
    ENDIF  
  
    RETURN hb_StrToTS("") 
  
 STATIC FUNCTION GET_MONTHS(cL) 
    LOCAL cLang 
    LOCAL i, n, aMonths[12], dt := Date() 
  
    dt -= Day(dt) - 1 
  
    cLang := hb_langSelect(cL) 
    FOR i := 1 TO 12 
       n := Month( dt ) 
       aMonths[ n ] := Left(CMonth(dt), 3) 
       dt += 31 
       dt -= Day(dt) - 1 
    NEXT 
    hb_langSelect(cLang) 
  
    RETURN aMonths

 
 //C:\MiniGUI\SAMPLES\MySamples\DateTime\demo.prg 
  
 REQUEST HB_LANG_RU 
 REQUEST HB_CODEPAGE_RU1251 
 REQUEST HB_CODEPAGE_RU866 
  
 FUNCTION main() 
  
    hb_cdpSelect( "RU1251" ) 
    hb_langSelect("RU") 
    hb_setTermCP( "RU866", "RU1251" ) 
  
    ?? CMonth(hb_DateTime()) 
    ? 
    ? hb_DateTime() 
    ? DTimeToTS("Mon, 15 Mar 2021 12:56:41 GMT", "en") 
    ? hb_DateTime() > DTimeToTS("Mon, 15 Mar 2021 12:56:41 GMT", "en") 
  
    RETURN 0 
 

 
   #define _DIR_BIN_ (hb_DirBase() + "utils") 
 .. 
    LOCAL cArgs 
    LOCAL cCurlOpt := "--no-progress-meter -k" 
    LOCAL cLogin  := "illya@kleeblatt.com" 
    LOCAL cPwd    := "**********" 
    LOCAL cCalDav := "https://webmail.kleeblatt.com" 
    LOCAL cHRef   := "rpc.php/calendars/illya@kleeblatt.com/calendar~GhGVum1xWexaffEfhiVkNN7" 
 ... 
    // Формируем строку вызова 
    cArgs := hb_StrFormat(; 
       '%s\curl %s -u%s:%s -X PROPFIND "%s%s"', _DIR_BIN_, cCurlOpt, cLogin, cPwd, cCalDav, cHRef) 
    ? cArgs