+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : وضع الشهر فقط في مربع النص؟ (/showthread.php?tid=10839)
وضع الشهر فقط في مربع النص؟ - ALG2009 - 20-05-2020
السلام عليكم
تقبل الله صيام الجميع
ما سبب عدم ظهور الشهر في مربع النص وظهور التاريخ بهذه الصوره 04/01/1900
ماهي أفضل طريقة لوضع الشهر فقط في مربع النص Edit1.Text
RE: وضع الشهر فقط في مربع النص؟ - bouh25 - 20-05-2020
استعمل الدالة DecodeDateTime
كمثال
var
myDate : TDateTime;
myYear, myMonth, myDay : Word;
begin
myDate := StrToDate('29/12/2000');
myDate := IncMonth(myDate);
DecodeDate(myDate, myYear, myMonth, myDay);
ShowMessage('myDate now = '+DateToStr(myDate));
ShowMessage('myDay = '+IntToStr(myDay));
ShowMessage('myMonth = '+IntToStr(myMonth));
ShowMessage('myYear = '+IntToStr(myYear));
end;
RE: وضع الشهر فقط في مربع النص؟ - ALG2009 - 20-05-2020
عذر لم أضع الكود الذي به الخطأ
كود :
decodeDAte(date,Year,Month,day);
(Edit1.text:=datetostr(Month);يظهر التاريخ كاملا وقديم01/04/1900
أريد إظهار الشهر الحالي
لم تعمل DecodeDateTime
عذر لم أضع الكود الذي به الخطأ
كود :
decodeDAte(date,Year,Month,day);
(Edit1.text:=datetostr(Month);يظهر التاريخ كاملا وقديم01/04/1900
أريد إظهار الشهر الحالي
لم تعمل DecodeDateTime
RE: وضع الشهر فقط في مربع النص؟ - ALG2009 - 20-05-2020
أريد أن أعرف ما السبب
عند كتابة هذا الكود تتم العملية بنجاح
كود :
var
Day,Month,Year :Word;
begin
decodedate(now,Year,Month,Day);
edit1.text:=FormatFloat('00',month);ولكن عند حذف [size=small]FormatFloat يعطيني تاريخ قديم!!![/size]
[size=small]لماذا
[/size]
RE: وضع الشهر فقط في مربع النص؟ - larbiparadox - 20-05-2020
كود :
uses
DateUtils;
procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.Text := intTOstr( DayOf(Date()) );
Edit2.Text := intTOstr( MonthOf(Date()) );
Edit3.Text := intTOstr( YearOf(Date()) );
end;RE: وضع الشهر فقط في مربع النص؟ - ALG2009 - 20-05-2020
تقبل الله صيامكم
وجزاكم الله خير
أعذرني على كثرة الأسئله صدقني أكواد بسيطة وبحثت وعجزت على حلها
لماذا لا تعمل Format ذهبت إلى خصائص مربع النص لعلي أجد DisplayFormat وأغيرها من هناك لتكون مكونه من رقمين لم أجد شئ
كود :
edit4.text:=formatfloat('00',intTOstr( MonthOf(Date())));RE: وضع الشهر فقط في مربع النص؟ - larbiparadox - 20-05-2020
(20-05-2020, 09:00 PM)ALG2009 كتب : تقبل الله صيامكم
وجزاكم الله خير
أعذرني على كثرة الأسئله صدقني أكواد بسيطة وبحثت وعجزت على حلها
لماذا لا تعمل Format ذهبت إلى خصائص مربع النص لعلي أجد DisplayFormat وأغيرها من هناك لتكون مكونه من رقمين لم أجد شئ
كود :edit4.text:=formatfloat('00',intTOstr( MonthOf(Date())));
تقبل الله من جميعا و اياكم
كود :
edit4.text:=format('%2.2d',[ MonthOf(Date())]);RE: وضع الشهر فقط في مربع النص؟ - ALG2009 - 20-05-2020
الله يرضى عليك
سأحاول البحث على format لفهمها أكثر مادمت مهتم بالدلفي هته الايام