2009年12月6日 星期日
2009年7月8日 星期三
JavaScript 民國年日期加減函數
User提了一個需求,
當輸入一個日期時,
自動算出輸入的日期 加一年減一日
於是google了一下找到一個可用的程式,
但是裡面有些bug,
程式中月份沒先減再加,以致於天數的加減會算錯,
以下是修正為民國年並拿掉不會用到的功能。
------------------------------------------------------------
加365日
alert(addDate(4,365,'0960301'));
→顯示 0970229
加一年 減一日
addDate(4,-1,addDate(1,1,'1000301'));
→顯示 1000229
function addDate(type,NumDay,dtDate){
var date = new Date();
type = parseInt(type); //類型
lIntval = parseInt(NumDay);//間隔
date.setYear(parseInt(dtDate.substr(0,3),10) + 1911); //年設定
date.setMonth(parseInt(dtDate.substr(3,2)-1,10) ); //月設定
date.setDate(parseInt(dtDate.substr(5,2),10)); //日設定
switch(type){
case 1 ://年
date.setYear(date.getYear() + lIntval)
break;
case 2 ://季度
date.setMonth(date.getMonth() + (lIntval * 4) )
break;
case 3 ://月
date.setMonth(date.getMonth() + lIntval)
break;
case 4 ://天
date.setDate(date.getDate() + lIntval)
break;
default:
}
return LPad(""+parseInt(date.getYear()-1911),"0",3) +'' + LPad(""+parseInt(date.getMonth()+1),"0",2) + '' + LPad(""+parseInt(date.getDate()),"0",2);
}
//向左補零
function LPad(str,sub,len)
{
var str1=str;
while(1)
{
var i=str1.length;
if (i>=len)
{
break;
}
else
{
str1=sub+str1;
}
}
return str1;
}
2009年5月21日 星期四
解決SysFader: iexplore.exe 應用程式錯誤的問題
應用程式發生例外 不明的軟體例外錯誤(0x0eedfade)於位置0x7c815e02
解決方法如下:
我的電腦按右鍵>內容>進階>效能>設定>視覺效果>選擇「調整成最佳效能」>套用>確定。
(主要應該是關閉將功能表淡出或滑動到檢視)
能不能解決,過幾天才知道。
因為這個問題是隨機發生的。
2009年5月13日 星期三
解決IE7中javascript的window.close()會出現關閉提示的問題
最近在做系統雛型,
剛好會使用關閉的語法來關閉視窗。
發現如果使用IE6 http://來瀏覽網頁的時候可以使用window.close(),
不會出現關閉視窗提示。
但是使用file:///開啟網頁檔案,
執行javascript的window.close()就會出現關閉提示。
使用下列語法就不會有這樣的問題。
<script language=javascript>
window.opener=null;
window.open("","_self");
window.close();
</script>
資料來源:http://blog.blueshop.com.tw/hent/archive/2008/01/04/53939.aspx
2009年4月27日 星期一
解決Delphi 7在win2003出現0012F88F和0012F9DB的錯誤訊息
Access violation at address 0012F88F. Write of address 0012F88F.
點選確定後,再出現
Access violation at address 0012F9DB. Write of address 0012F9DB.
處理方式如下…
我的電腦右鍵內容 > 進階 > 效能點選設定 > 資料執行防止
選取為「為所有的Windows程式和服務開啟DEP,除了我選擇的這些」
並點選下方新增C:\Program Files\Borland\Delphi7\Bin\delphi32.exe (預設路徑) 後確定。
重啟Delphi7後 點選 Project > Options 即可正常。