+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف حساب الفرق بين تاريخين و النتيجة تكون عدد السنوات و الشهور و الايام (/showthread.php?tid=4930)
كيف حساب الفرق بين تاريخين و النتيجة تكون عدد السنوات و الشهور و الايام - makhlouf - 19-02-2013
السلام عليكم و رحمة الله تعالى و بركاته:
كيف يمكنني حساب الفرق بين تاريخين و النتيجة تكون عدد السنوات و الشهور و الايام مثال:
19/02/2013 و 04/09/2011 و تكون النتيجة: 1 عام و 5 أشهر و 15 يوما
بارك الله فيكم و جزاكم بكل خير
كيف حساب الفرق بين تاريخين و النتيجة تكون عدد السنوات و الشهور و الايام - iNjECTOR - 19-02-2013
هذا هو بداية الطريق
PHP كود :
unit Unit1;
interface
uses
DateUtils, // Unit containing the IncYear command
SysUtils,
Forms, Dialogs;
type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
end;
var
Form1: TForm1;
implementation
{$R *.dfm} // Include form definitions
procedure TForm1.FormCreate(Sender: TObject);
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;
end.
أيضا يمكنك إستخدام هذه الاوامر
PHP كود :
IncDay Increments a TDateTime variable by + or - number of days
IncMinute Increments a TDateTime variable by + or - number of minutes
IncMonth Increments a TDateTime variable by a number of months
IncSecond Increments a TDateTime variable by + or - number of seconds
IncMillisecond Increments a TDateTime variable by + or - number of milliseconds
كيف حساب الفرق بين تاريخين و النتيجة تكون عدد السنوات و الشهور و الايام - makhlouf - 20-02-2013
بارك الله فيك أخي و جزاك الله بكل خير و جعله في ميزان حسناتك