delphi4arab منتديات دلفي للعرب

السلام عليكم
كيف أ ستخرج تاريخ الويندوز وأضعه في edit1 مثال (07/01/2012) .
وفي Edit2 التاريخ الخاص بي مثال(23/08/2003) و أحسب الفرق بين هاذين التاريخين

و عليكم السلام و رحمة الله

كود :
كيف أ ستخرج تاريخ الويندوز وأضعه في edit1

PHP كود :
edt1.Text := DateToStr(Now); 

بالنسبة للطرح .. تطرح عادى مثلا

كود :
MyDate :=  FirstDate - LastDate;

للاستزادة http://www.delphi4arab.net/forum/showthread.php?tid=867

[INDENT]
وعليكم السلام ورحمة الله وبركاته،
و أيضا يمكنك الاستفادة من هذا الموضوع :
التعامل مع التواريخ (الدالة التي يغفل عنها الكثير)

بالتوفيق إن شاء الله.
[/INDENT]

كود :
uses DateUtils;
{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var DateNow, AliasDateNow, MyDateUser : TDateTime;
DifferenceBetween : Integer;

begin

{two functions take two parameters constant,
as you see they have the circuit parameters for variabilize it,
otherwise we expected to erroneous results.}
AliasDateNow := TDateTime(Now);
ShowMessage(DateToStr(AliasDateNow));
MyDateUser := StrToDate('06/01/2012'); // For example
if CompareDate(AliasDateNow, MyDateUser)>= 0 then
DifferenceBetween := DaysBetween(AliasDateNow, MyDateUser) else
{if not we change the two variables}
DifferenceBetween := DaysBetween(MyDateUser, AliasDateNow);
ShowMessage(IntToStr(DifferenceBetween));

end;

السلام عليكم
مثال بسيط
ان شاء الله يفيد ..

حميد الأمازيغي

hanipino

أبو معاذ

mr_salem

Mr.DOS