20-06-2012, 11:10 PM
21-06-2012, 05:26 AM
[INDENT]
سؤال غامض نوعا ما ،
هل تقصد التعامل مع التواريخ ؟
أنظر هذا الرابط لعله يفيدك:
التعامل مع التواريخ (الدالة التي يغفل عنها الكثير)
[/INDENT]
سؤال غامض نوعا ما ،
هل تقصد التعامل مع التواريخ ؟
أنظر هذا الرابط لعله يفيدك:
التعامل مع التواريخ (الدالة التي يغفل عنها الكثير)
[/INDENT]
24-06-2012, 08:58 AM
- إذن تود التعديل على برنامج الشركة ؟ , هل لديك الشفرة المصدرية ؟
- أم تود كتباة برنامج جديد , المهم هذا مثال بسيط :
بالتوفيق ,,
- أم تود كتباة برنامج جديد , المهم هذا مثال بسيط :
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;