Anasayfa > Kodlar > Delphi ile GetLocalTime

Delphi ile GetLocalTime


Yerel Saat

Unit
Windows.Pas

Syntax
GetLocalTime(
var lpSystemTime: TSystemTime);

Parameters

TSystemTime = record
wYear: Word;
wMonth: Word;
wDayOfWeek: Word;
wDay: Word;
wHour: Word;
wMinute: Word;
wSecond: Word;
wMilliseconds: Word;
end;

procedure TForm1.Button1Click(Sender: Tobject);
var
CurrentTime : TSystemTime;
begin

GetLocalTime(CurrentTime);
Edit1.Text := IntToStr(CurrentTime.wMonth)+'/'+
IntToStr(CurrentTime.wDay)+'/'+
IntToStr(CurrentTime.wYear);
Edit2.Text := IntToStr(CurrentTime.wDayOfWeek)+' Day of week';

Edit3.Text := IntToStr(CurrentTime.whour)+':'+
IntToStr(CurrentTime.wMinute)+':'+
IntToStr(CurrentTime.wSecond);
end;

procedure TForm1.Button2Click(Sender: TObject);
var
CurrentTime : TSystemTime;
begin

GetLocalTime(CurrentTime);
try
Decodedate(StrToDateTime(Edit1.Text),CurrentTime.wYear,CurrentTime.wMonth,
CurrentTime.wDay);
DecodeTime(StrToTime(Edit3.text),CurrentTime.wHour,CurrentTime.wMinute,
CurrentTime.wSecond,CurrentTime.wMilliseconds);
SetLocalTime(CurrentTime)
except

on E:Exception do ShowMessage('Error setting local time');
end;
end;

Fatih BADUR


TD Software


  1. Henüz yorum yapılmamış.
  1. No trackbacks yet.

Bir Cevap Yazın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Connecting to %s

%d blogcu bunu beğendi: