[viv]

تعطيك ايام في شهر معين

كود :

var
 myDate : TDateTime;

begin
 myDate := EncodeDate(2002, 12, 31);
 ShowMessage('The day of the month = '+IntToStr(DayOfTheMonth(myDate)));
end;

النتيجة  31 


تعطيك يوم الاسبوع

كود :

var
 myDate : TDateTime;
 day    : array[1..7] of string;

begin
 // We cannot use LongDayNames - they start on Sunday
 day[1] := 'Monday';
 day[2] := 'Tuesday';
 day[3] := 'Wednesday';
 day[4] := 'Thursday';
 day[5] := 'Friday';
 day[6] := 'Saturday';
 day[7] := 'Sunday';

 myDate := EncodeDate(2002, 12, 25);

 ShowMessage('Christmas day 2002 is on a '+day[DayOfTheWeek(myDate)]);
end;

النتيجة  الاربعاء




تعطيك الايام في سنة

كود :

var
 myDate : TDateTime;

begin
 myDate := EncodeDate(2002, 10, 29);
 ShowMessage('20/10/2002 day of year  = '+
             IntToStr(DayOfTheYear(myDate)));
end;

النتيجة  302


تعطيك الايام بين تاريخين

كود :

var
 fromdate, toDate : TDateTime;

begin
 // Set up our date variables
 fromDate := EncodeDateTime(2000, 02, 26, 10, 0, 0, 0);
 toDate   := EncodeDateTime(2000, 02, 29,  9, 0, 0, 0);

 // Display these dates and the days between them
 ShowMessage('From date = '+DateTimeToStr(fromDate));
 ShowMessage('To   date = '+DateTimeToStr(toDate));
 ShowMessage('Whole days difference = '+
             IntToStr(DaysBetween(toDate, fromDate))+' days');
end;

النتيجة  2



تعيد لك الايام في شهر

كود :

// How many days in February 2000 ?
 ShowMessage('Days in February 2000 = '+
             IntToStr(DaysInAMonth(2000, 2)));

النتيجة  29



تعيد لك الايام في سنة

كود :

// How many days in the leap year 2000?
 ShowMessage('Days in 2000 = '+
             IntToStr(DaysInAYear(2000)));

العدد الكسري للايام بين تاريخين

كود :

var
 fromdate, toDate : TDateTime;

begin
 // Set up our date variables
 fromDate := EncodeDateTime(2000, 01, 01, 0, 0, 0, 0);
 toDate   := EncodeDateTime(2000, 01, 02, 12, 0, 0, 0);

 // Display these dates and the days between them
 ShowMessage('From date = '+DateTimeToStr(fromDate));
 ShowMessage('To   date = '+DateTimeToStr(toDate));
 ShowMessage('Fractional days difference = '+
             FloatToStr(DaySpan(toDate, fromDate))+' days');
end;

النتيجة  1.5


لتجزئة التاريخ الى اجزاء

كود :

var
 myDate : TDateTime;
 myYear, myMonth, myDay : Word;
 myHour, myMin, mySec, myMilli : Word;

begin
 // Set up the myDate variable to have a December 2000 value
 myDate := StrToDateTime('29/12/2000 12:45:12.34');

 // Now add a month to this value
 myDate := IncMonth(myDate);

 // And let us see what we get
 DecodeDateTime(myDate, myYear, myMonth, myDay,
                myHour, myMin, mySec, myMilli);
 ShowMessage('myDate now = '+DateToStr(myDate));
 ShowMessage('myHour     = '+IntToStr(myHour));
 ShowMessage('myMin      = '+IntToStr(myMin));
 ShowMessage('mySec      = '+IntToStr(mySec));
 ShowMessage('myMilli    = '+IntToStr(myMilli));
 ShowMessage('myDay      = '+IntToStr(myDay));
 ShowMessage('myMonth    = '+IntToStr(myMonth));
 ShowMessage('myYear     = '+IntToStr(myYear));
end;

النتيجة 
myDate now = 29/01/2001
   myHour     = 12
   myMin      = 45
   mySec      = 12
   myMilli    = 34
   myDay      = 29
   myMonth    = 1
   myYear     = 2001




لبناء قيمة للوقت من مجموعة قيم

كود :

var
 myDate : TDateTime;

begin
 // Set my date variable using the EncodeDateTime function
 myDate := EncodeDateTime(2000, 02, 29, 12, 34, 56, 789);

 LongTimeFormat := 'hh:mm:ss.z';  // Ensure that MSecs are shown

 ShowMessage('Date set to '+DateToStr(myDate));
 ShowMessage('Time set to '+TimeToStr(myDate));
end;

النتيجة 
Date set to 29/02/2000
   Time set to 12:34:56.789


استخدام + وكذلك  - للتحكم وزيادة التاريخ والوقت او انقاصه

كود :

var
 myDate : TDateTime;
begin
 // Set up our date just before the end of the year 2000
 myDate := EncodeDate(2000, 12, 30);
 ShowMessage('myDate = '+DateToStr(myDate));

 // Add 10 days to this date
 myDate := IncDay(myDate, 10);
 ShowMessage('myDate + 10 days = '+DateToStr(myDate));

 // Subtract 12 days from this date
 myDate := IncDay(myDate, -12);
 ShowMessage('myDate - 12 days = '+DateToStr(myDate));
end;

النتيجة 
myDate = 30/12/2000
   myDate + 10 days = 09/01/2001
   myDate - 12 days = 29/12/2000




انقاص وزيادة بالدقائق

كود :

var
 myDate : TDateTime;
begin
 // Set up our date just before the end of the year 2000
 myDate := EncodeDateTime(2000, 12, 31, 23, 0, 0, 0);
 ShowMessage('myDate = '+DateTimeToStr(myDate));

 // Add 100 minutes to this date
 myDate := IncMinute(myDate, 100);
 ShowMessage('myDate + 100 minutes = '+DateTimeToStr(myDate));

 // Subtract 40 minutes from this date
 myDate := IncMinute(myDate, -40);
 ShowMessage('myDate -  40 minutes = '+DateTimeToStr(myDate));
end;

النتيجة 
myDate = 31/12/2000 23:00:00

   myDate + 100 minutes = 01/01/2001 00:40:00
   myDate -  40 minutes = 01/01/2001



انقاص وزيادة بالثواني

كود :

var
 myDate : TDateTime;
begin
 // Set up our date just before the end of the year 2005
 myDate := EncodeDateTime(2005, 12, 31, 23, 59, 0, 0);
 ShowMessage('myDate = '+DateTimeToStr(myDate));

 // Add 60 seconds to this date
 myDate := IncSecond(myDate, 60);
 ShowMessage('myDate +  60 seconds = '+DateTimeToStr(myDate));

 // Subtract 120 seconds from this date
 myDate := IncSecond(myDate, -120);
 ShowMessage('myDate - 120 seconds = '+DateTimeToStr(myDate));
end;

النتيجة 
myDate = 31/12/2005 23:59:00

   myDate +  60 seconds = 01/01/2006
   myDate - 120 seconds = 31/12/2005 23:58:00



انقاص وزيادة بالسنين

كود :

var
 myDate : TDateTime;
begin
 // Set up our date to a leap year special day
 myDate := EncodeDate(2000, 02, 29);
 ShowMessage('myDate = '+DateToStr(myDate));

 // Add 2 years to this date
 myDate := IncYear(myDate, 2);
 ShowMessage('myDate + 2 years = '+DateToStr(myDate));

 // Subtract 2 years from this date
 myDate := IncYear(myDate, -2);
 ShowMessage('myDate - 2 years = '+DateToStr(myDate));
end;

النتيجة 
myDate = 29/02/2000
   myDate + 2 years = 28/02/2002
   myDate - 2 years = 28/02/2000



تعيد لك الشهر بالسنة

كود :

var
 myDate : TDateTime;

begin
 myDate := EncodeDate(2002, 10, 29);
 ShowMessage('The month of the year  = '+
             IntToStr(MonthOfTheYear(myDate)));
end;

النتيجة 10


تعطيك ماهو يوم الغد

كود :

ShowMessage('Yesterday = '+DateToStr(Yesterday));
 ShowMessage('Today     = '+DateToStr(Date));
 ShowMessage('Tomorrow  = '+DateToStr(Tomorrow));

 ShowMessage('Tommorow''s time = '+TimeToStr(Tomorrow));

النتيجة
Yesterday = 28/10/2002
   Today     = 29/10/2002
   Tomorrow  = 30/10/2002
   Tomorrow's time = 00:00:00




تعطيك ماهو اليوم

كود :

egin
 ShowMessage('Yesterday = '+DateToStr(Yesterday));
 ShowMessage('Today     = '+DateToStr(Date));
 ShowMessage('Tomorrow  = '+DateToStr(tomorrow));

 ShowMessage('Yesterday''s time = '+TimeToStr(Yesterday));

النتيجة
Yesterday = 28/10/2002
   Today     = 29/10/2002
   Tomorrow  = 30/10/2002
   Yesterday's time = 00:00:00
 

ولازال يتبع بعد الدوال والوظائف