Zegar światowy

0

Witajcie,

Problem polega na tym, że muszę napisać program delphi, który będzie wyświetlał czas w wybranej strefie czasowej.

Zrobienie zwykłego cyfrowego zegarka nie jest problemem, ale manipulowanie godziną w zależności od wybranej strefy czasowej stało się dla mnie kłopotem. Proszę o pomoc.

0

Tyle to wiem lol...

Chodzi o to, jak podpiąc pod np pozycje w comboboxie zmienione godziny w zależności od wybranej strefy czasowej w comboboxie? Jak wrzucam Timer to wszystkie instrukcje muszę podpiąc pod timer, a nie pod pozycje w comboboxie. Bez timera zegar mi nie "tyka" (tj wyśtwietlają się godziny ale stoją w miejscu).

Pomoże ktoś?

0

w procedurze OnChange ComboBoxa zrób tak:

 if ComboBox1.ItemIndex = 0 then
   begin
     { ustalanie godziny z pierwszej opcji }
   end;

 if ComboBox1.ItemIndex = 1 then
   begin
     { ustalanie godziny z drugiej opcji }
   end;

itd.

0

No pewnie że bez timera nie bedzie ci tykac, tak samo samochod z silnikiem spalinowym nie pojedzie bez benzyny......

0

Wbrew pozorom to banalna sprawa. Jeśli ktoś chce zobaczyć jeden ze sposobów:

procedure TForm1.Timer1Timer (Sender: TObject);
var
UTC: TSystemTime;
begin
GetSystemTime(UTC);
begin
Label1.Caption:=IntToStr(UTC.wYear)+'-'+IntToStr(UTC.wMonth)+'-'+IntToStr(UTC.wDay)+' '+IntToStr(UTC.wHour)+':'+IntToStr(UTC.wMinute)+':'+IntToStr(UTC.wSecond);
end;
end;

Masz czas UTC, później możesz dodawać godziny i minuty i manipulować.

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0