السلام عليكم
تقبل الله صيام الجميع
ما سبب عدم ظهور الشهر في مربع النص وظهور التاريخ بهذه الصوره 04/01/1900
ماهي أفضل طريقة لوضع الشهر فقط في مربع النص Edit1.Text
استعمل الدالة 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;
عذر لم أضع الكود الذي به الخطأ
كود :
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
أريد أن أعرف ما السبب
عند كتابة هذا الكود تتم العملية بنجاح
كود :
var
Day,Month,Year :Word;
begin
decodedate(now,Year,Month,Day);
edit1.text:=FormatFloat('00',month);
ولكن عند حذف
[size=small]FormatFloat يعطيني تاريخ قديم!!![/size]
[size=small]لماذا 
[/size]
تقبل الله صيامكم
وجزاكم الله خير
أعذرني على كثرة الأسئله صدقني أكواد بسيطة وبحثت وعجزت على حلها
لماذا لا تعمل Format ذهبت إلى خصائص مربع النص لعلي أجد DisplayFormat وأغيرها من هناك لتكون مكونه من رقمين لم أجد شئ
كود :
edit4.text:=formatfloat('00',intTOstr( MonthOf(Date())));
(20-05-2020, 09:00 PM)ALG2009 كتب : [ -> ]تقبل الله صيامكم
وجزاكم الله خير
أعذرني على كثرة الأسئله صدقني أكواد بسيطة وبحثت وعجزت على حلها
لماذا لا تعمل Format ذهبت إلى خصائص مربع النص لعلي أجد DisplayFormat وأغيرها من هناك لتكون مكونه من رقمين لم أجد شئ
كود :
edit4.text:=formatfloat('00',intTOstr( MonthOf(Date())));
تقبل الله من جميعا و اياكم
كود :
edit4.text:=format('%2.2d',[ MonthOf(Date())]);
الله يرضى عليك
سأحاول البحث على format لفهمها أكثر مادمت مهتم بالدلفي هته الايام