[Delphi] Aktualizacja daty przy użyciu "TDateTime"

[ramberg]

Zadanie ze szkoły. Robimy aplikację typu wieczny kalendarz, w której wpisujemy dowolną datę i widzimy jaki to dzień tygodnia.

 

 

Wszystko zrobiliśmy oprócz ostatniego punktu który brzmi:

 

Więc my, jako niezbyt znający się na programowaniu na tym punkcie polegliśmy. Proszę o jakieś łopatologiczne wytłumaczenie co i jak zrobić żeby to działało.

[olesio]

Ech, przecież wszystko masz napisane co masz zrobić. Trzeba się było uczyć albo nie wybierać w

ogóle uczelni/szkoły/studium, na którym masz mieć do czynienia z programowaniem. Ech, masz

kod poniżej i tak się nic nie nauczysz. A i widzę, że sezon zaliczen "dopadł" rownież to forum ;/

procedure TForm1.FormCreate(Sender: TObject);
var
 Rok, Miesiac, Dzien : Word;
begin
 DecodeDate(Date, Rok, Miesiac, Dzien);
 RokEdit.Text := IntToStr(Rok);
 MiesiacEdit.Text := IntToStr(Miesiac);
 DzienEdit.Text := IntToStr(Dzien);
end;

[Jason]

Teraz jeszcze usunęli treść zadania, żeby nauczyciel tego nie wyszukał

 

olesio: jestem ciekaw, jak oni zrobili tą aplikację, skoro nie potrafili tego wykonać z tak dokładnym opisem. A że sezon zaliczeń dotyka fora to normalka, wszędzie tak jest