Sergey_Demchuk
Silver Member | Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Frodo_Torbins
Нет, не путаю.
Было в реестре .. AD 0A 97 .. что означает 23/04/2009 (день-месяц-год, такая посл. в реестре)
Далее открываю ексель-файл, который выщитывает по формуле, которую я описывал выше.
Он выдает значения, которые я должен занести в реестр, т.е. дату 05/04/11 (50 дней считая от сегодня). Это должны быть значения ....FF FE 95...
Теперь пробуем программой. Результат: в реестре значения ...05 04 0B..., т.е. совсем не те, которые надо...
Я эти значения нахожу вот так.
Код: DateSeparator := '.';
Temp:=DateToStr(Date+50);
AktDay:= Copy (Temp, 1, Pos('.',Temp)-1);
Temp:= StringReplace (Temp, AktDay + '.','',[rfIgnoreCase]);
AktMonth:= Copy (Temp, 1, Pos('.',Temp)-1);
Temp:= StringReplace (Temp, AktMonth + '.','',[rfIgnoreCase]);
AktYear:= Temp;
IntDay:=IntToBin(StrToInt(AktDay),8);
IntMonth:=IntToBin(StrToInt(AktMonth),8);
IntYear:=IntToBin(StrToInt(AktYear)-1900,8);
Maska:=IntToBin(250,8);
for ii:=1 to 8 do begin
OneDay:= Copy (IntDay,ii,1);
TwoDay:= Copy (Maska,ii,1);
OneMonth:= Copy (IntMonth,ii,1);
TwoMonth:= Copy (Maska,ii,1);
OneYear:= Copy (IntYear,ii,1);
TwoYear:= Copy (Maska,ii,1);
if OneDay = TwoDay
Then
begin
ThreeDay:='0';
FroeDay:= FroeDay + ThreeDay;
end
else
begin
ThreeDay:='1';
FroeDay:= FroeDay + ThreeDay;
end;
if OneMonth = TwoMonth
Then
begin
ThreeMonth:='0';
FroeMonth:= FroeMonth + ThreeMonth;
end
else
begin
ThreeMonth:='1';
FroeMonth:= FroeMonth + ThreeMonth;
end;
if OneYear = TwoYear
Then
begin
ThreeYear:='0';
FroeYear:= FroeYear + ThreeYear;
end
else
begin
ThreeYear:='1';
FroeYear:= FroeYear + ThreeYear;
end;
end;
HexDataDay:= BinToHex (FroeDay);
HexDataMonth:= BinToHex (FroeMonth);
HexDataYear:= BinToHex (FroeYear); |
И они такие как надо выщитываются, т.е. HexDataDay=FF, HexDataMonth=FE, HexDataYear=95
Но они в текстовом формате и занести их в реестр в бинарном виде не соображу как. |
) 
