ФБ даты и время на ST

[kondor3000]

Кстати, не понял, а почему мы так делаем

С Днём недели можно, а с годами можно так

 
      year := uiDate / 365;   //Приблизительно определяем год        
      days_to_year := year * 365 + (year + 3)/4 - (year + 99)/100 + (year + 399)/400;     
    if uiDate < days_to_year then
       Year := Year - 1 ;
       days_to_year := year * 365 + (year + 3)/4 - (year + 99)/100 + (year + 399)/400;      
    end_if
     year := year+2000;

Последний вариант универсального ФБ времени, версия 5, выложил тут https://owen.ru/forum/showthread.php...l=1#post444236