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

#include <vcl.h>
#pragma hdrstop
#include <Dateutils.hpp>

#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)
{
	TDateTime fromDate,toDate;
	int GI,MI,DI,PK,I;
	double FC;
	String FCStr,ECS,ICS,DIEN;
	double EC,IC;
	int dienasValue,dienasValue30;
	TDateTime TAG;
	String TAG_Str;
	TDateTime DATA;
	String NedD[6];
	TDateTime DNed;
	double Pi = "3.14159265359";

	GI = StrToInt(Edit1->Text);
	MI = StrToInt(Edit2->Text);
	DI = StrToInt(Edit3->Text);

	fromDate = EncodeDateTime(GI,MI,DI, 0,0,0,0);

	toDate = Now();

	NedD[0] = "Pirmdien";
	NedD[1] = "Otrdien";
	NedD[2] = "Tresdien";
	NedD[3] = "Ceturdien";
	NedD[4] = "Piektdien";
	NedD[5] = "Sestdien";
	NedD[6] = "Svetdien";

	DNed = EncodeDate(GI,MI,DI);

	//Str (DaysBetween(toDate, fromDate), DIEN);

	Label1->Caption = "Nodzivotas dienas: " + DIEN + SLineBreak + "Dzimsanas diena ir " + NedD[DayOfTheWeek(DNed) ] + SLineBreak;

	dienasValue = StrToInt(DIEN);
	Label2->Caption = " ";
	dienasValue30 = dienasValue + 30;

	DATA = Now();

	I = 0;

	Label5->Caption = "Data" + SLineBreak;
		 do{
			Label5->Caption = Label5->Caption + DateToStr(DATA) + SLineBreak;
			DATA = DATA +1;
			I = I + 1;
		 }while( I = 30);

	Label2->Caption = "Fiziskais" + SLineBreak;
		do{
			FC = Sin((2*Pi*dienasValue)/23);

			Str (FC:5:2, FCStr);
			Label2->Caption = Label2->Caption + FCStr + SLineBreak;

		}while(dienasValue = dienasValue30);

		dienasValue = 0;

		dienasValue = StrToInt(DIEN);

		Label4->Caption = " ";
		dienasValue30 = dienasValue + 30;

		Label4->Caption = "Intelektualais " + SLineBreak;
			do{
			   IC = Sin((2*Pi*dienasValue)/33);

			   Str(IC:5:2, ICS);
			   Label4->Caption = Label4.Caption + ICS + SLineBreak;

			   dienasValue = dienasValue + 1;
			}while(dienasValue = dineasValue30);

		 end;

		 end.


}
//---------------------------------------------------------------------------