 ::  |
| Autor |
Poruka |
himzo
Banovan!
Odomaćeni član
 |
Godine: 41
Datum registracije: 24 Okt 2005
Poruke: 1390
Mesto: Vojvoda Stepa
|
|
Ova kratka i nadasve jednostavna funkcija služi za određivanje vremenske zone u kojoj se nalazite (ona koja je postavljena na računaru). Dakle, određuje koliko je časovnik pomeren unapred/unazad u zemlji u kojoj živite u odnosu na GMT.
| Code: | function GetTimeZone: string;
var
TimeZone: TTimeZoneInformation;
s: String;
i: Integer;
begin
GetTimeZoneInformation(TimeZone);
i := TimeZone.Bias div -60;
If i > 0 Then s := '+'
Else If i < 0 Then s := '-' Else s := '';
Result := 'GMT ' + s + IntToStr(i);
end; |
Postavite jedno dugme na formu (default: Button1: TButton) i u njegovom OnClick event-u pozovite funkciju GetTimeZone. Rezultat funkcije će se prikazati u nazivu prozora (Window Caption). Za Srbiju i Crnu Goru rezultat funkcije je GMT +1.
| Code: | procedure TForm1.Button1Click(Sender: TObject);
begin
Caption := GetTimeZone;
end; |
|
|
|
| |
|
 |
|
|
Vi ne možete otvarati nove teme u ovom forumu
Vi ne možete odgovarati na teme u ovom forumu
Vi ne možete menjati Vaše poruke u ovom forumu
Vi ne možete brisati Vaše poruke u ovom forumu
Vi ne možete glasati u anketama u ovom forumu
Vi ne možete postavljati fajlove u ovom forumu
Vi ne možete preuzeti fajlove sa ovog foruma
|
|
