وضع الشهر فقط في مربع النص؟
#1
السلام عليكم
تقبل الله صيام الجميع
ما سبب عدم ظهور الشهر في مربع النص وظهور التاريخ بهذه الصوره 04/01/1900
ماهي أفضل طريقة لوضع الشهر فقط في مربع النص Edit1.Text
الرد
#2
استعمل الدالة 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;
وقل ربي زدني علماً
الرد
#3
عذر لم أضع الكود الذي به الخطأ
كود :
   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
الرد
#4
أريد أن أعرف ما السبب


عند كتابة هذا الكود تتم العملية بنجاح
كود :
var
     Day,Month,Year :Word;
begin
decodedate(now,Year,Month,Day);
edit1.text:=FormatFloat('00',month);

ولكن عند حذف [size=small]FormatFloat يعطيني تاريخ قديم!!![/size]

[size=small]لماذا  Huh[/size]
الرد
#5
كود :
uses
       DateUtils;


procedure TForm1.Button1Click(Sender: TObject);
begin

Edit1.Text := intTOstr(  DayOf(Date())  );
Edit2.Text := intTOstr(  MonthOf(Date())  );
Edit3.Text := intTOstr(  YearOf(Date())  );

end;
الرد
#6
تقبل الله صيامكم
وجزاكم الله خير

أعذرني على كثرة الأسئله صدقني أكواد بسيطة وبحثت وعجزت على حلها

لماذا لا تعمل Format ذهبت إلى خصائص مربع النص لعلي أجد DisplayFormat وأغيرها من هناك لتكون مكونه من رقمين لم أجد شئ
كود :
edit4.text:=formatfloat('00',intTOstr( MonthOf(Date())));
الرد
#7
(20-05-2020, 09:00 PM)ALG2009 كتب : تقبل الله صيامكم
وجزاكم الله خير

أعذرني على كثرة الأسئله صدقني أكواد بسيطة وبحثت وعجزت على حلها

لماذا لا تعمل Format ذهبت إلى خصائص مربع النص لعلي أجد DisplayFormat وأغيرها من هناك لتكون مكونه من رقمين لم أجد شئ
كود :
edit4.text:=formatfloat('00',intTOstr( MonthOf(Date())));

تقبل الله من جميعا و اياكم

كود :
edit4.text:=format('%2.2d',[ MonthOf(Date())]);
الرد
#8
الله يرضى عليك
سأحاول البحث على format لفهمها أكثر مادمت مهتم بالدلفي هته الايام
الرد


التنقل السريع :


مستخدمين يتصفحوا هذا الموضوع: 1 ضيف