دخول

حميد الأمازيغي · 07-01-2012, 10:59 AM

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

**hanipino** · 07-01-2012, 06:44 PM

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

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

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

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

كود :
MyDate :=  FirstDate - LastDate;

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

**أبو معاذ** · 08-01-2012, 07:56 AM

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

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

mr_salem

كود :
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;

Mr.DOS · 13-01-2012, 12:50 PM

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

دخول
اسم المستخدم/البريد الالكتروني :
كلمة المرور :	فقدت كلمة المرور ؟
	تذكرني بالمرة القادمة