Баг… не переводит когда 0 часов....
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Button3: TButton;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Button4: TButton;
Edit4: TEdit;
Timer1: TTimer;
Label4: TLabel;
Button5: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure Button5Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
SDT : _SYSTEMTIME;
begin
GetSystemTime(SDT); // считываем текущую дату
// устанавливаем значения (пример: 01.01.2008, 00.00)
//SDT.wYear :=2008;
//SDT.wMonth :=01 ;
//SDT.wDay :=01 ;
//SDT.wHour := 8; // Установка SDT.wHour := 8; дает системное время 12 ч.
SDT.wMinute :=SDT.wMinute-2 ;
//SDT.wSecond :=00 ;
SetSystemTime(SDT); //установка системных даты и времени
end;
procedure TForm1.Button2Click(Sender: TObject);
var
SDT : _SYSTEMTIME;
begin
GetSystemTime(SDT); // считываем текущую дату
// устанавливаем значения (пример: 01.01.2008, 00.00)
//SDT.wYear :=2008;
//SDT.wMonth :=01 ;
//SDT.wDay :=01 ;
//SDT.wHour := 8; // Установка SDT.wHour := 8; дает системное время 12 ч.
SDT.wMinute :=SDT.wMinute+2 ;
//SDT.wSecond :=00 ;
SetSystemTime(SDT); //установка системных даты и времени
end;
procedure TForm1.Button3Click(Sender: TObject);
var
SDT : _SYSTEMTIME;
begin
GetSystemTime(SDT); // считываем текущую дату
// устанавливаем значения (пример: 01.01.2008, 00.00)
//SDT.wYear :=2008;
//SDT.wMonth :=01 ;
//SDT.wDay :=01 ;
SDT.wHour := (strtoint(edit1.text)-strtoint(edit4.text));
SDT.wMinute :=strtoint(edit2.text);
SDT.wSecond :=strtoint(edit3.text);
SetSystemTime(SDT); //установка системных даты и времени
end;
procedure TForm1.Button4Click(Sender: TObject);
var
SDT : _SYSTEMTIME;
begin
GetSystemTime(SDT); // считываем текущую дату
// устанавливаем значения (пример: 01.01.2008, 00.00)
//SDT.wYear :=2008;
//SDT.wMonth :=01 ;
//SDT.wDay :=01 ;
//SDT.wHour := 8; // Установка SDT.wHour := 8; дает системное время 12 ч.
//SDT.wMinute :=SDT.wMinute+2 ;
SDT.wSecond :=SDT.wSecond-9 ;
SetSystemTime(SDT); //установка системных даты и времени
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Label4.Caption := DateTimeToStr(Now)
end;
procedure TForm1.Button5Click(Sender: TObject);
var
SDT : _SYSTEMTIME;
begin
GetSystemTime(SDT); // считываем текущую дату
// устанавливаем значения (пример: 01.01.2008, 00.00)
//SDT.wYear :=2008;
//SDT.wMonth :=01 ;
//SDT.wDay :=01 ;
//SDT.wHour := 8; // Установка SDT.wHour := 8; дает системное время 12 ч.
//SDT.wMinute :=SDT.wMinute+2 ;
SDT.wSecond :=SDT.wSecond+9 ;
SetSystemTime(SDT); //установка системных даты и времени
end;
end.
