ПОМОГИТЕ!!! Все нервы уже извел с установкой даты ...
Напишите, кто может процедурку, чтобы меняла дату TDate без учета времени ... Или с учетом, но чтобы небуло косяков: Например в этой процеДУРЕ если установить дату, которая находится не в данном часовом поясе (лето - зима), то она неправильно выставляет время:
Если у вас стоит допустим 17 ноября, то если воспользоваться этой процедурой напишем дату 9.10.2004 (так как она требует еще и время, вставим текущее (decode(time и тд))).
Дата выставиться правильно, а время прибавиться на один час! (хотя вроде должно убавляться). А если сделать наоборот тоесть у вас 9.10.2004, а нужно поставить 17.11.2004, то дата меняется, а время остается прежним, хотя должно прибавляться ...

Код

function SetPCSystemTime(tDati: TDateTime): Boolean; var tSetDati: TDateTime; vDatiBias: Variant; tTZI: TTimeZoneInformation;   tST: TSystemTime;   begin GetTimeZoneInformation(tTZI); vDatiBias := tTZI.Bias / 1440; tSetDati := tDati + vDatiBias;   with tST do   begin   wYear := StrToInt(FormatDateTime('yyyy', tSetDati));   wMonth := StrToInt(FormatDateTime('mm', tSetDati)); wDay := StrToInt(FormatDateTime('dd', tSetDati)); wHour := StrToInt(FormatDateTime('hh', tSetDati)); wMinute := StrToInt(FormatDateTime('nn', tSetDati)); wSecond := StrToInt(FormatDateTime('ss', tSetDati)); wMilliseconds := 0;   end;   SetPCSystemTime := SetSystemTime(tST);     end;

Тоже самое и с этой процедурой:

Код

procedure TfmTime.btnTimeClick(Sender: TObject);   var vsys : _SYSTEMTIME;   vYear, vMonth, vDay, vHour, vMin, vSec, vMm : Word;   begin   DecodeDate( Trunc(dtpDate.Date), vYear, vMonth, vDay ); DecodeTime( dtpTime.Time, vHour, vMin, vSec, vMm );   vMm := 0;   vsys.wYear := vYear;   vsys.wMonth := vMonth;   vsys.wDay := vDay;   vsys.wHour := ( vHour - 5 );   // разница с гринвичем vsys.wMinute := vMin;   vsys.wSecond := vSec;   vsys.wMilliseconds := vMm;   vsys.wDayOfWeek := DayOfWeek( Trunc(dtpDate.Date) );   SetSystemTime( vsys );     end;

А вот эта процедура мне очень подходит, но она в последней срочке почемуто выдает ошибку:

Код

Procedure setdate(Year : word; Month, Day : byte); assembler; asm mov cx, year   mov dh, month   mov dl, day   mov ah, $2b   int $21   // вот в этой строчке происходит ошибка end;

Дак кто нибудь знает правильную процедуру?

А ты не пробовал поменять типа вместо DateTime поставить Date? по идее должно работать и получится у тебя чтото вроде этого:

Код

function SetPCSystemTime(tDati: TDate): Boolean; var tSetDati: TDate; vDatiBias: Variant; tTZI: TTimeZoneInformation;   tST: TSystemTime;   begin GetTimeZoneInformation(tTZI); vDatiBias := tTZI.Bias / 1440; tSetDati := tDati + vDatiBias;   with tST do   begin   wYear := StrToInt(FormatDateTime('yyyy', tSetDati));   wMonth := StrToInt(FormatDateTime('mm', tSetDati)); wDay := StrToInt(FormatDateTime('dd', tSetDati)); wHour := StrToInt(FormatDateTime('hh', tSetDati)); wMinute := StrToInt(FormatDateTime('nn', tSetDati)); wSecond := StrToInt(FormatDateTime('ss', tSetDati)); wMilliseconds := 0;   end;   SetPCSystemTime := SetSystemTime(tST);   end;

Держи самый простой из способов:

Код

Label1.Caption:=DateToStr(time);  //Выдаст тебе дату Label2.Caption:=TimeToStr(time);  //Навсякий пожарный, для времени Label3.Caption:=DateTimeToStr(time);  //Всё вместе

Если воткнёш эти штуки, в компонент Timer с интервалом в 1000, то постоянно будет отображатся время.

А если хочешь менять дату, то

Код

Label1.Caption:=DateToStr(time+2);  //Выдаст тебе текущую дату +2 дня Label2.Caption:=TimeToStr(time+strtotime('1:02'));  //на 1 час и 2 менуты больше

Это сообщение отредактировал(а) Zero - 17.11.2004, 23:30

Цитата

Guest  Дата 17.11.2004, 21:36 Unregistered А ты не пробовал поменять типа вместо DateTime поставить Date? по идее должно работать и получится у тебя чтото вроде этого:

Нет, так не работает! время обнуляется ...

Цитата

Zero Дата 17.11.2004, 23:19   Держи самый простой из способов:

Все это я знаю, ты меня паходу не понял ... (читай мой первый вопрос ...)

А если ты мне хотел сказать, как время прибавлять, я это тоже умею ... Только вот когда и сколько? Я хочу чтобы работало в общем случае с любыми TimeZone ...

Ну? так кто нибудь знает как это делается???

Хотябы обьясните, почему делается ошибка:

Код

Procedure setdate(Year : word; Month, Day : byte); assembler; asm mov cx, year   mov dh, month   mov dl, day   mov ah, $2b   int $21   // вот в этой строчке происходит ошибка end;

Жду и надеюсь ...

Ладно, раз как правильно дату меянять никто не знает, тогда хоть скажите, как можно включать/отключать автоматический переход на летнее и зимнее время - ведь вся эта бадяга из-за него ...

Цитата

тогда хоть скажите, как можно включать/отключать автоматический переход на летнее и зимнее время

Нажми: Панель управления\Дата и время\Часовой пояс (Вкладка)\Сними галку (переход на летнее время)

Это сообщение отредактировал(а) Zero - 18.11.2004, 18:20

прикалол ...
А из Delphi как?

Х.З.

Раздел в реестре HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\TimeZoneInformation

Если есть ключ "DisableAutoDaylightTimeSet"=dword:00000001, то переход отменен.