IT 免費/無料/Kostenlos(gratis) 記事本分享

2008年4月7日星期一

計算兩個日期間之天數函數

微軟提供的函數ElapsedTimeString
http://office.microsoft.com/zh-tw/access/HA011102181028.aspx

由Access改成以Excel方式來處理
步驟1:以Excel開啟,並預先指定好各欄位

流水號 (必填欄位, 可任意值不能空白)	合約開始日	合約結束日	區段查詢日	合約開始至區段查詢服務天數	合約總服務天數	合約目前執行比例 =E1 / F1
10248	2004/9/20	2007/3/19	2006/12/31
11083	2006/1/16	2007/1/15	2006/12/31

步驟2:按Alt+F11開啟VB編輯器
步驟3: 由主選單選擇插入| 模組
並且將微軟相關提供之函數,放置於此處,以便該Excel VBA去呼叫
步驟4:由主選單之檢視(V) | 工具列(T) | 選擇控制工具箱 ,並加入一個指令按鈕,筆者將此按鈕命名為 BtnComputeDate,系統即可透過該函數,自動計算兩日期間之相差

Private Sub BtnComputeDate_Click()
Application.ScreenUpdating = False '暫時關閉即時顯示畫面,避免畫面一直閃動
intRow = 2 '跳過第1列(標題),由第2列開始處理
Do Until Cells(intRow, 1).Value = "" '設置迴圈,一直執行到沒有資料為止
Cells(intRow, 5).Value = "" '先清除合約開始至區段查詢天數
Cells(intRow, 5).Value = ElapsedTimeString(Cells(intRow, 2).Value, Cells(intRow, 4).Value)

Cells(intRow, 6).Value = "" '先清除合約開始至合約結束天數
Cells(intRow, 6).Value = ElapsedTimeString(Cells(intRow, 2).Value, Cells(intRow, 3).Value)

Cells(intRow, 7).Value = "" '先清除執行比例
Cells(intRow, 7).Value = Cells(intRow, 5).Value / Cells(intRow, 6).Value

intRow = intRow + 1 '處理下一筆資料
Loop
Application.ScreenUpdating = True

End Sub

Windows環境,直接執行UnixLike指令

GNU utilities for Win32下載UnxUtils.zip,並解壓縮後,即可取得Unix Like相關執行檔

Wine

Cygwin 相關資訊,於Windows環境建置Unix Like作業環境

(開放源碼)Xming,X Window server for Microsoft Windows (XP/2003/Vista)

MSYS MinGW,

不需格式化,在Windows環境,加入UnixLike環境

http://www.cygwin.com/

http://www.cygwin.com/setup.exe 下載Setup.exe ,即可選擇所需安裝套件及來源下載位置

http://www.andlinux.org/

如何在Cygwin環境加入中文輸入法:
步驟１：進入home目錄(即＄HOME)：
步驟２：輸入vi ~/.inputrc　　　（即編輯　inputrc參數檔）其內含設定為
set meta-flag on
set convert-meta off
set output-meta on

步驟３：輸入vi ~/.bash_profile　即編輯　inputrc參數檔）其內含設定為
export LESSCHARSET=latin1
alias less='/bin/less -r'
alias ls='/bin/ls -F --color=tty --show-control-chars'

步驟４：重新啟動cygwin