كيف التعامل مع الاشهر كلها كانها 30 يوم

[TF6M]

- إذن تود التعديل على برنامج الشركة ؟ , هل لديك الشفرة المصدرية ؟
- أم تود كتباة برنامج جديد , المهم هذا مثال بسيط :

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; 


بالتوفيق ,,