+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف إستخراج التاريخ وحسابه (/showthread.php?tid=3760)
كيف إستخراج التاريخ وحسابه - حميد الأمازيغي - 07-01-2012
السلام عليكم
كيف أ ستخرج تاريخ الويندوز وأضعه في edit1 مثال (07/01/2012) .
وفي Edit2 التاريخ الخاص بي مثال(23/08/2003) و أحسب الفرق بين هاذين التاريخين
كيف إستخراج التاريخ وحسابه - hanipino - 07-01-2012
و عليكم السلام و رحمة الله
كود :
كيف أ ستخرج تاريخ الويندوز وأضعه في edit1PHP كود :
edt1.Text := DateToStr(Now);
بالنسبة للطرح .. تطرح عادى مثلا
كود :
MyDate := FirstDate - LastDate;للاستزادة http://www.delphi4arab.net/forum/showthread.php?tid=867
كيف إستخراج التاريخ وحسابه - أبو معاذ - 08-01-2012
[INDENT]
وعليكم السلام ورحمة الله وبركاته،
و أيضا يمكنك الاستفادة من هذا الموضوع :
التعامل مع التواريخ (الدالة التي يغفل عنها الكثير)
بالتوفيق إن شاء الله.
[/INDENT]
كيف إستخراج التاريخ وحسابه - mr_salem - 08-01-2012
كود :
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
السلام عليكم
مثال بسيط
ان شاء الله يفيد ..