Ostatnia niedziela miesiąca czas zimowy i letni Algorytm

W tym post-cie opiszę jak napisać algorytm i program dla platformy NET Framework w Delphi PRISM i platformy WinAPI w DELPHI RAD STUDIO, który umożliwia pobranie ostatniej niedzieli miesiąca dla wybranej daty oraz który umożliwia określenie czy data jest w czasie zimowym czy letnim.
Program i algorytm wykonany jest w języku: Delphi PRISM dla platformy NET Framework, oraz w DELPHI RAD STUDIO dla platformy WinAPI.

KOD ŹRÓDŁOWY DELPHI PRISM:

Opis:

1. method MainForm.OstatniaNiedzielaMiesiaca(rok,miesiac:string):string; - ALGORYTM;
2. method MainForm.button1_Click(sender: System.Object; e: System.EventArgs); - PRZYCISK OBSŁUGI ALGORYTMU;
3. method MainForm.button2_Click(sender: System.Object; e: System.EventArgs); - PRZYCISK OBSŁUGI ALGORYTMU CZAS ZIMOWY & CZAS LETNI I SAM ALGORYTM Z UŻYCIEM ALGORYTMU OSTATNIA NIEDZIELA MIESIĄCA.



KOD ŹRÓDŁOWY DELPHI RAD STUDIO:

Opis:

1. function OstatniaNiedzielaMiesiaca(rok, miesiac:string):string; - ALGORYTM;
2. procedure TForm1.Button1Click(Sender: TObject); - PRZYCISK OBSŁUGI ALGORYTMU;
3. procedure TForm1.Button2Click(Sender: TObject); - PRZYCISK OBSŁUGI ALGORYTMU CZAS ZIMOWY & CZAS LETNI I SAM ALGORYTM Z UŻYCIEM ALGORYTMU OSTATNIA NIEDZIELA MIESIĄCA.

Pliki do pobrania:
1. Źródła - Delphi PRISM (kody źródłowe algorytmu)
-pobierz
2. Źródła i exe - Delphi PRISM (exe i kody źródłowe algorytmu i programu demo)
-pobierz
3. Źródła - DELPHI RAD STUDIO (kody źródłowe algorytmu)
-pobierz
4. Źródła i exe - DELPHI RAD STUDIO (exe i kody źródłowe algorytmu i programu demo)
-pobierz

A tutaj podaje link do ciekawego internetowego kalendarza, abyście mogli sprawdzić działanie mojego algorytmu:
Patrz tutaj

Miłej zabawy!