Frodo_Torbins
Silver Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Код: uses DateUtils; //это следующей строкой после implementation
...
var
TmpDate: TDate;
...
begin
...
if ((Buf[ii]=#$00) and (Buf[ii+1]=#$d3)) then
begin
//переводим значения байт в дату
//как я понял, сначала у вас идет месяц, потом год, а потом день
//еще нужно подумать сколько прибавлять к году
TmpDate := EncodeDate(2000 + Ord(Buf[ii+3]), Ord(Buf[ii+2]), Ord(Buf[ii+4]));
//прибавляем 50 дней с учетом разного количества дней в месяцах и високосных годов
TmpDate := IncDay(TmpDate, 50);
//записываем все назад в буфер
Buf[ii+3] := AnsiChar(Chr(YearOf(TmpDate) - 2000));
Buf[ii+2] := AnsiChar(Chr(MonthOf(TmpDate)));
Buf[ii+4] := AnsiChar(Chr(DayOf(TmpDate)));
end;
... |
|
