 |
L0123
資深會員

註冊日期: Mar 2004
來 自: 彰化 海口郎
文章數量: 400 |
|
回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 顯示K棒所剩餘的時間。
引用: 最初由 cgjj 發表
謝謝, 修正如下:
原碼:
//求多分鐘設定值(轉化秒)
TE:=TIMETOT0(TIME)-ref(TIMETOT0(TIME),1);
CKDE:=date<>ref(date,1); CKSP:=SUMBARS(CKDE,2)-2;
MT:=ref(TE,CKSP); MT:=MT[datacount];
//計算剩餘總秒數
KTime:=TIMETOT0(ref(TIME,1))+MT;
KTime:=KTime[datacount];
if KTime>TIMETOT0(134500) then KTime:=TIMETOT0(134500);
SS:=KTime-TIMETOT0(CURRENTTIME);
//轉化總秒數為分秒
剩餘:FLOOR(SS/60)*100+mod(SS,60); //分秒
剩餘:=if(剩餘>0,剩餘,0);
報告 總版主:
剛測試,34分以上的周週期還是不OK。
//轉化總秒數為分秒(2)
餘分:INTPART(SS/60),LINETHICK;
SS1:=FRACPART(SS/60)*60;
餘秒:INTPART(SS1),LINETHICK;
|
|
向版主報告此篇 |  |
|
2011-06-13 13:48 |
|
|
|  |
 |
cgjj
總版主

註冊日期: Oct 2003
來 自:
文章數量: 18213 |
|
回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 顯示K棒所剩餘的時間。
引用: 最初由 L0123 發表
報告 總版主
經測試發現有此狀況:每天的第一根K棒的餘分都不OK。
請指導,謝謝!!
改這樣試試
原碼:
//求多分鐘設定值(轉化秒)
TE:=TIMETOT0(TIME)-ref(TIMETOT0(TIME),1);
CKDE:=date<>ref(date,1); CKSP:=SUMBARS(CKDE,2)-2;
MT:=ref(TE,CKSP); MT:=MT[datacount];
//計算剩餘總秒數
StTime:=if(CKDE,084500,ref(TIME,1));
KTime:=TIMETOT0(StTime)+MT;
KTime:=KTime[datacount];
if KTime>TIMETOT0(134500) then KTime:=TIMETOT0(134500);
SS:=KTime-TIMETOT0(CURRENTTIME);
//轉化總秒數為分秒
剩餘:FLOOR(SS/60)*100+mod(SS,60); //分秒
剩餘:=if(剩餘>0,剩餘,0);
|
|
向版主報告此篇 |  |
|
2011-06-16 09:51 |
|
|
|  |
 |
L0123
資深會員

註冊日期: Mar 2004
來 自: 彰化 海口郎
文章數量: 400 |
|
回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 顯示K棒所剩餘的
引用: 最初由 cgjj 發表
改這樣試試
原碼:
//求多分鐘設定值(轉化秒)
TE:=TIMETOT0(TIME)-ref(TIMETOT0(TIME),1);
CKDE:=date<>ref(date,1); CKSP:=SUMBARS(CKDE,2)-2;
MT:=ref(TE,CKSP); MT:=MT[datacount];
//計算剩餘總秒數
StTime:=if(CKDE,084500,ref(TIME,1));
KTime:=TIMETOT0(StTime)+MT;
KTime:=KTime[datacount];
if KTime>TIMETOT0(134500) then KTime:=TIMETOT0(134500);
SS:=KTime-TIMETOT0(CURRENTTIME);
//轉化總秒數為分秒
剩餘:FLOOR(SS/60)*100+mod(SS,60); //分秒
剩餘:=if(剩餘>0,剩餘,0);
報告 總版主
經這幾天測試,一切均OK了,感謝耐心的指導,真是非常多謝!!。
|
|
向版主報告此篇 |  |
|
2011-06-21 14:00 |
|
|
|  |
本站所有內容未經作者授權禁止轉貼節錄, 發表言論僅供參考勿作為投資決策依據。瀏覽本站請使用 IE 5.5 以上版本, 最佳瀏覽解析度 1024 x 768 全彩。
|
Powered by: vBulletin Version 2.3.0 - Copyright©2000-, Jelsoft Enterprises Limited.
簡愛洋行 製作 Copyright 2003-. All Rights Reserved. 聯絡我們
|