Uloha 11

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
    int m = StrToInt(FormatDateTime("MM", Date()));
    if ( m <= 3 ) {
        Label1->Caption = "Prvý";
    } else if ( m > 3 && m <= 6 ) {
        Label1->Caption = "Druhý";
    } else if ( m > 6 && m <= 9 ) {
        Label1->Caption = "Tretí";
    } else if ( m > 9 && m <= 12 ) {
        Label1->Caption = "Štvrtý";
    }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
    AnsiString m = IntToStr(SpinEdit1->Value);
    if ( m.Length() == 1 ) {
        m = "0"+m;
    }
    TDateTime d(2019, StrToInt(m), 01);
    Label4->Caption = FormatDateTime("MMMM", d);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
    TDateTime d = Date();
    int m[13] = {0, 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31};
    if ( StrToInt(FormatDateTime("YYYY", d)) % 4 == 0 ) {
        m[2] = 29;
    }
    int mm = StrToInt(FormatDateTime("MM", d)),
        dd = StrToint(FormatDateTime("dd", d));
    if ( dd > m[mm] / 2 ) {
        Label2->Caption = "Druhá polovica";
    } else Label2->Caption = "Prvá polovica";
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button4Click(TObject *Sender)
{
    TDateTime calendar = Calendar->Date;
    TDateTime date = Date();
    int ayear  = StrToInt(FormatDateTime("YYYY", date)),
        amonth = StrToInt(FormatDateTime("M", date)),
        aday   = StrToInt(FormatDateTime("d", date)),
        adays  = 0;
    int year  = StrToInt(FormatDateTime("YYYY", calendar)),
        month = StrToInt(FormatDateTime("M", calendar)),
        day   = StrToInt(FormatDateTime("d", calendar)),
        days  = 0;
    int m[13] = {0, 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31};
    if ( year % 4 == 0 ) {
        m[2] = 29;
    } else m[2] = 28;
    for (int i = 1; i <= month; i++) {
        days += m[i];
    }
    days = days - (m[month] - day);
    if ( ayear % 4 == 0 ) {
        m[2] = 29;
    } else m[2] = 28;
    for (int i = 1; i <= amonth; i++) {
        adays += m[i];
    }
    adays = adays - (m[amonth] - aday);
    year = ayear - year;
    if ( adays > days ) {
        Label3->Caption = year;
    } else Label3->Caption = year-1;

}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button5Click(TObject *Sender)
{
    TDateTime calendar = Calendar->Date;
    int month = StrToInt(FormatDateTime("M", calendar)),
        day   = StrToInt(FormatDateTime("d", calendar));
    if ( ( month == 3 && day >= 21 ) && ( month == 4 && day <= 20 ) ) {
        Label5->Caption = "Baran";
    } else if ( ( month == 4 && day >= 21 ) || ( month == 5 && day <= 21 ) ) {
        Label5->Caption = "Býk";
    } else if ( ( month == 5 && day >= 21 ) || ( month == 6 && day <= 21 ) ) {
        Label5->Caption = "Blíženci";
    } else if ( ( month == 6 && day >= 22 ) || ( month == 7 && day <= 22 ) ) {
        Label5->Caption = "Rak";
    } else if ( ( month == 7 && day >= 23 ) || ( month == 8 && day <= 23 ) ) {
        Label5->Caption = "Lev";
    } else if ( ( month == 8 && day >= 24 ) || ( month == 9 && day <= 23 ) ) {
        Label5->Caption = "Panna";
    } else if ( ( month == 9 && day >= 24 ) || ( month == 10 && day <= 23 ) ) {
        Label5->Caption = "Váhy";
    } else if ( ( month == 10 && day >= 24 ) || ( month == 11 && day <= 22 ) ) {
        Label5->Caption = "Škorpión";
    } else if ( ( month == 11 && day >= 23 ) || ( month == 12 && day <= 21 ) ) {
        Label5->Caption = "Strelec";
    } else if ( ( month == 12 && day >= 22 ) || ( month == 1 && day <= 20 ) ) {
        Label5->Caption = "Kozorožec";
    } else if ( ( month == 1 && day >= 21 ) || ( month == 2 && day <= 19 ) ) {
        Label5->Caption = "Vodnár";
    } else if ( ( month == 2 && day >= 20 ) || ( month == 3 && day <= 20 ) ) {
        Label5->Caption = "Ryby";
    }
}
//---------------------------------------------------------------------------