Saati Geri Alma Ayarı

[SurVefa]

Arkadaşlar benim projem Otel Otomasyonu... Bi form da yabancı ülkelere göre saatler var ve sistem saatini 2 saat geri almak istiyoruz(İngiltere'ye göre) ama sürekli yenilencek geçen zamanı göstericek nesneleri koyup formulün sonuna -2 yazdıktan sonra olmuyor.. Ne yapmalıyım yardım edersiniz sevinirim... Şimdiden Teşekkürler

[ulu coder]

Formunuza bir timer koyun, Timer'la sürekli güncelleyin.
Sistem saatini değiştirmenize gerek yok sanırım.
Geçen zamanı bulma konusu forumda daha önce geçmişti, arama yaparsanız ulaşırsınız.

Saati ileri-geri alma fonksiyonu yazdım, umarım işinize yarar;

Kod: Tümünü seç

function TForm1.SaatDegistir(miktar: Integer): TTime;
var
saat,dk,sn,sl:word;
begin
DecodeTime(Now,saat,dk,sn,sl);

saat:=saat+miktar;
saat:=saat+24;

saat:=saat mod 24;

Result:=EncodeTime(saat,dk,sn,sl);
end;

miktar olarak negatif değer girerseniz geri alır

[mussimsek]

http://www.delphiturkiye.com/index.php? ... tetime.htm

Burayı bir inceleyin, işinize yarar fonksiyonlar bulabilirsiniz. IncHour mesela...

Kolay gelsin.

[SurVefa]

eyvallah dostum. Teşekkürler çok işimize yaradı.. İkinizden ALLAH razı olsun...