+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف التعامل مع الاشهر كلها كانها 30 يوم (/showthread.php?tid=4291)
كيف التعامل مع الاشهر كلها كانها 30 يوم - ايمن تامر - 20-06-2012
كيف التعامل مع الاشهر كلها كانها 30 يوم وذلك عند اضافة او طرح ايام
وضروري
كيف التعامل مع الاشهر كلها كانها 30 يوم - أبو معاذ - 21-06-2012
[INDENT]
سؤال غامض نوعا ما ،
هل تقصد التعامل مع التواريخ ؟
أنظر هذا الرابط لعله يفيدك:
التعامل مع التواريخ (الدالة التي يغفل عنها الكثير)
[/INDENT]
كيف التعامل مع الاشهر كلها كانها 30 يوم - TF6M - 24-06-2012
- إذن تود التعديل على برنامج الشركة ؟ , هل لديك الشفرة المصدرية ؟
- أم تود كتباة برنامج جديد , المهم هذا مثال بسيط :
PHP كود :
Procedure re_introduce_Sys_Month (_Dat:TDateTime);
Var
_Year, _Month, _Day : Word;
Begin
//StrToDate()
DecodeDate(_Dat, _Year, _Month, _Day);
Case _Month Of
1,3,5,7,9,11:
If _Day = 31 Then
_Dat := EncodeDate(_Year, _Month, 30);
2:If (_Day >= 28) Or (_Day < 30) Then
_Dat := EncodeDate(_Year, _Month, 30);
Else
//
End;
End;