月份日期+1,及金額平衡分配問題 |
|
尚未結案
|
|
vivi666666
初階會員   發表：83 回覆：94 積分：35 註冊：2003-03-05 發送簡訊給我 |
月份日期 1,及金額平衡分配問題
TABLE A 有
ACUST:STRING;
ASTARTDT:TDateTime;
AENDDT:TDateTime;
AAMT:Double;
TABLE B 有
BCUST:STRING;
BSTARTDT:TDateTime
BENDDT:TDateTime
BMONTH:Double;
BAMT:Double;
當TABLE A的AAMT >AAMT時
AMT= AAMT-AAMT
不曉以下如何寫程式,即如何分配每月的起訖日及金額,如何寫用迴圈,
MONTH:=AMT/580
DAY30:0.8965*30 --26.89(自動進位)為26
DAY31:0.8965*31-->27.79(自動進位)為27
PS:原BENDDT:92/05/31,AAMT:1100
IF MONTH=1.8965時
APPEND..
BCUST:ACUST
BSTARTDT:=BENDDT 1(天)--即92/06/01
BENDDT:=BENDDT 29(天)--即92/06/30
BMONTH:=BENDDT的月份
BAMT:=580
POST..
------------------------
APPEND..
BCUST:ACUST
BSTARTDT:=BENDDT 1(天)--即92/07/01
BENDDT:BENDDT DAY31 --即92/07/15
BMONTH:BENDDT的月份
BAMT:=AMT-(1*580)
POST..
=============================
IF MONTH=2.8965時
APPEND..
BCUST:ACUST
BSTARTDT:=BENDDT 1(天)--即92/06/01
BENDDT:BENDDT 29(天)--即92/06/30
BMONTH:BENDDT的月份
BAMT:=580
POST..
------------------------
APPEND..
BCUST:ACUST
BSTARTDT:=BENDDT 1(天)--即92/07/01
BENDDT:BENDDT DAY31 --即92/07/31
BMONTH:BENDDT的月份
BAMT:=580
POST..
---------------------------------
APPEND..
BCUST:ACUST
BSTARTDT:=BENDDT 1(天)--即92/07/01
BENDDT:BENDDT DAY31 --即92/07/31
BMONTH:BENDDT的月份
BAMT:=AMT-(2*580)
POST..
|
發表時間：2003-06-16 11:49:17
IP:203.133.xxx.xxx 未訂閱
系統時間：2024-06-26 13:57:17
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |