Проблемма с Systemtime

[sergey113]

не могу тип TdateTime перевести в тип Word для использования переменной в функции Setsystemtime.. Может кто подскажет как это сделать ?
Вот с таким кодом вожусь

var
  Form1: TForm1;
  per : TdateTime;
  timer : SYSTEMTIME;
  vTime, vDate : Word;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
per := Now;
ShowMessage(DateToStr(per));

vDate:=Edit1.text; 
SetSystemTime(vDate);

end;

Дату показывает, а вот с ее сменой ничего не выходит из-за типов данных ..

[Neobrat]

вместо vDate используй переменую типа TSystemTime

var
st:TSystemTime;
date:TDateTime;
begin
date:=now();
with st do
begin
   DecodeDate(Date, wYear, wMonth, wDay);
   DecodeTime(Date, wHour, wMinute, wSecond, wMilliseconds);
end;
SetSystemTime(st);
end;

[sergey113]

Сообщение от Neobrat

вместо vDate используй переменую типа TSystemTime

var
st:TSystemTime;
date:TDateTime;
begin
date:=now();
with st do
begin
DecodeDate(Date, wYear, wMonth, wDay);
DecodeTime(Date, wHour, wMinute, wSecond, wMilliseconds);
end;
SetSystemTime(st);
end;

Подобный код я видел в нете .. я его не понимаю..
что такое
DecodeDate(Date, wYear, wMonth, wDay);
DecodeTime(Date, wHour, wMinute, wSecond, wMilliseconds);
что оно делает?.. мне надо чтоб брал дату с Edit1.Text и изменял системное время..

[XuTpbIu]

В хелп. В модуле DateUtils вроде хранятся ф-ции.

[Neobrat]

DecodeDate(Date, wYear, wMonth, wDay);

распарсивает дату на wYear - год wMonth- месяц wDay - день

DecodeTime(Date, wHour, wMinute, wSecond, wMilliseconds);
распарсивает дату на wHour- час wMinute - минуты wSecond - секунды wMilliseconds - милисекунды.

а тип TSystemTime это есть рекорд след типа
_SYSTEMTIME = record
wYear: Word;
wMonth: Word;
wDayOfWeek: Word;
wDay: Word;
wHour: Word;
wMinute: Word;
wSecond: Word;
wMilliseconds: Word;

т.е. DecodeDate и DecodeTime в купе с with st do begin end;

распарсивает дату на элементы и присвоивает значение к рекорду st

"мне надо чтоб брал дату с Edit1.Text и изменял системное время.."
брать время из текста не совсем целесообразно.. так как столкнешься с проблемой коректного ввода данных
по мне так лучше поставить два DateTimePicker-а один задает время другой дату...

ну если тебе именно с текста надо брать дату то используй StrToDate...

DecodeDate(StrToDate(Edit1.Text), wYear, wMonth, wDay);
DecodeTime(now(), wHour, wMinute, wSecond, wMilliseconds); - так как время тоже необходимо задать))

[sergey113]

ЧО ?

Я в хелпе (google) уже несколько дней лажу... толку только нет..

Сообщение от Neobrat

"мне надо чтоб брал дату с Edit1.Text и изменял системное время.."
брать время из текста не совсем целесообразно.. так как столкнешься с проблемой коректного ввода данных
по мне так лучше поставить два DateTimePicker-а один задает время другой дату...

ну если тебе именно с текста надо брать дату то используй StrToDate...

Спасибо .. по листингу понял ..
А с Edit в том и заморочка что не получается впихнуть SetSystemTime данные... Ругается на то что не совместимы типы Word (Systemtime) и TDateTime в который преобразует StrToDate....
DateTimePicker- пробовал он тоже TDateTime потому не катит..

[Neobrat]

Сообщение от sergey113

ЧО ?

Я в хелпе (google) уже несколько дней лажу... толку только нет..

а не пробовал навести курсор на DecodeDate и нажать F1? )) иногда помогает.. вот что там пишут борлодовцы

Returns Year, Month, and Day values for a TDateTime value.

Unit

SysUtils

Category

datetime routines

Delphi syntax:

procedure DecodeDate(Date: TDateTime; var Year, Month, Day: Word);

C++ syntax:

extern PACKAGE void __fastcall DecodeDate(const System::TDateTime DateTime, Word &Year, Word &Month, Word &Day);

Description

The DecodeDate procedure breaks the value specified as the Date parameter into Year, Month, and Day values. If the given TDateTime value has a negative (BC) year, the year, month, and day return parameters are all set to zero.

Сообщение от sergey113

Спасибо .. по листингу понял ..
А с Edit в том и заморочка что не получается впихнуть SetSystemTime данные... Ругается на то что не совместимы типы Word (Systemtime) и TDateTime в который преобразует StrToDate....
DateTimePicker- пробовал он тоже TDateTime потому не катит..

что что???

"типы Word (Systemtime) "

Systemtime в качестве параметра нужно передавать переменую типа TSystemTime..

и с едита а точнее из строки ты сначала юудешь переконверчивать в TdateTime а потом в TSystemTime...

не проше сразу из DateTimePicker-а брать данные типа TDateTime ??

[sergey113]

я тут запутался совсем..
упрощаем..
основная проблема у меня в том, что я устанавливаю время при помощи функции SetSystemTime. И не могу в нее запихнуть данные из edit или DateTimePicker ... Выдается ошибка несоответствия данных.
Вопрос: Как это сделать ?

а чем конвертирут в TSystemTime...

это я и не могу..

[Neobrat]

бр..
нет функции конвертации TdateTime -> TSystemTime
раз ее нет надо ее реализовать..

function DateToSystemTime(Date:TDateTime):TSystemTime;
begin
with result do
 begin
   DecodeDate(date, wYear, wMonth, wDay);
   DecodeTime(date, wHour, wMinute, wSecond, wMilliseconds);
 end;
end;

на входе дата в формате TDateTime на выходе TSystemTime


что еще не понятного?

[sergey113]

Сообщение от Neobrat

бр..
нет функции конвертации TdateTime -> TSystemTime
раз ее нет надо ее реализовать..

function DateToSystemTime(Date:TDateTime):TSystemTime;
begin
with result do
 begin
   DecodeDate(date, wYear, wMonth, wDay);
   DecodeTime(date, wHour, wMinute, wSecond, wMilliseconds);
 end;
end;

на входе дата в формате TDateTime на выходе TSystemTime


что еще не понятного?

теперь понятно .. и проще видимо не бывает .. большое спасибо. Прийду с учебы буду тренироватся.