ASP.NET 2

2012年4月11日星期三

VB中使MsFlexGrid和MSHFlexGrid控件支持鼠标滚动操作

將這一段程式放到公共的模組中

Public Declare Function PeekMessage Lib "user32" Alias "PeekMessageA" (lpMsg As Msg, ByVal hWnd As Long, ByVal wMsgFilterMin As Long, ByVal wMsgFilterMax As Long, ByVal wRemoveMsg As Long) As Long

Public Declare Function WaitMessage Lib "user32" () As Long
Public bCancel As Boolean
Public Const WM_MOUSEWHEEL = 522

Public Sub ProcessMessages(sGrid1 As MSFlexGrid)
Dim Message As Msg
Do While Not bCancel
'WaitMessage ‘等待消息
If PeekMessage(Message, sGrid1.hWnd, WM_MOUSEWHEEL, WM_MOUSEWHEEL, PM_REMOVE) Then
If Message.wParam < 0 Then ' 向上
'Me.Top = Me.Top + 240
If sGrid1.TopRow < sGrid1.Rows Then
sGrid1.TopRow = sGrid1.TopRow + 1
End If
Else '向下??
If sGrid1.TopRow > 1 Then
sGrid1.TopRow = sGrid1.TopRow - 1
End If
End If
End If
DoEvents
Loop
End Sub

然後在每一支程式的From_load() 加入此段

'加入此段即可使用滑鼠滾輪的功能了
Me.AutoRedraw = True
Call ProcessMessages(Grid1)

ADO 填入 MSFlexGrid

Title	Use ADO to load data into a FlexGrid control
Keywords	ADO, database, FlexGrid
Categories	Database

Open the database and execute the query. Loop through the recordset's Fields array to get the field names and use them as column headers. For each record in the Recordset, loop through the fields saving their values in the FlexGrid.
Keep track of the largest text width in each column and make each column big enough to display the text.

Private Sub Form_Load()
Dim db_file As String
Dim statement As String
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim c As Integer
Dim r As Integer
Dim col_wid() As Single
Dim field_wid As Single

    ' Get the data.
    db_file = App.Path
    If Right$(db_file, 1) <> "\" Then db_file = db_file & _
        "\"
    db_file = db_file & "books.mdb"

    ' Open a connection.
    Set conn = New ADODB.Connection
    conn.ConnectionString = _
        "Provider=Microsoft.Jet.OLEDB.4.0;" & _
        "Data Source=" & db_file & ";" & _
        "Persist Security Info=False"
    conn.Open

    ' Select the data.
    statement = "SELECT * FROM Books ORDER BY Title"

    ' Get the records.
    Set rs = conn.Execute(statement, , adCmdText)

    ' Use one fixed row and no fixed columns.
    MSFlexGrid1.Rows = 2
    MSFlexGrid1.FixedRows = 1
    MSFlexGrid1.FixedCols = 0

    ' Display column headers.
    MSFlexGrid1.Rows = 1
    MSFlexGrid1.Cols = rs.Fields.Count
    ReDim col_wid(0 To rs.Fields.Count - 1)
    For c = 0 To rs.Fields.Count - 1
        MSFlexGrid1.TextMatrix(0, c) = rs.Fields(c).Name
        col_wid(c) = TextWidth(rs.Fields(c).Name)
    Next c

    ' Display the values for each row.
    r = 1
    Do While Not rs.EOF
        MSFlexGrid1.Rows = MSFlexGrid1.Rows + 1

        '將資料RS 中的資料取出來 填入 MSFlexGrid 
        For c = 0 To rs.Fields.Count - 1
            MSFlexGrid1.TextMatrix(r, c) = rs.Fields(c).Value

            ' See how big the value is.

            ' 判斷行中 最長的字串 當成最大欄寬
            field_wid = TextWidth(rs.Fields(c).Value)
            If col_wid(c) < field_wid Then col_wid(c) = _
                field_wid
        Next c

        rs.MoveNext
        r = r + 1
    Loop

    ' Close the recordset and connection.
    rs.Close
    conn.Close

    ' Set the column widths.
    For c = 0 To MSFlexGrid1.Cols - 1
        MSFlexGrid1.ColWidth(c) = col_wid(c) + 240
    Next c
End Sub

2012年4月8日星期日

VB6 MSFlexGrid 元件資料匯至 excel問題

VB6 中有 MSFlexGrid 元件內資料在匯出至Excel 是
一般模式都是用迴圈方式(程式碼如下)
For i = 0 To MSFlexGrid1.Rows - 1
For jNo = 0 To MSFlexGrid1.Cols - 1
wshExcel.Cells(i + 1, j + 1) = MSFlexGrid1.TextMatrix(i, j)
Next cNo
Next rNo

請問各位大大，要如何讓 MSFlexGrid可以像listbox元件一樣可以直接貼上
Listbox程式碼如下
Set MyXlsApp = CreateObject("Excel.Application")
MyXlsApp.Visible = True
Set xlbook = MyXlsApp.Workbooks.Add
Set xlsheet1 = xlbook.Worksheets(1)

xlsheet1.Cells(1, 1).Value = "產品序號"
xlsheet1.Cells(1, 2).Value = "功率"
xlsheet1.Cells(1, 3).Value = "全距"
xlsheet1.Cells(1, 4).Value = "檢驗時間"

xlsheet1.Range(xlsheet1.Cells(1, 1), xlsheet1.Cells(UserForm1.ListBox1.ListCount, UserForm1.ListBox1.ColumnCount)).Offset(1, 0) = UserForm1.ListBox1.List

例如

xlsheet1.Range(x,y),offset)1,0)=MSFlexGrid1.XXXXXXX

DTPicker 顯示民國日期格式(VB6)

Option Explicit
Private Sub DTPicker1_Format(ByVal CallbackField As String, FormattedString As String)
If CallbackField = "XXXXXXXXX" Then
   FormattedString = Format(DTPicker1.Year - 1911, "###") + "/" + Format(DTPicker1.Month, "00") + "/" + Format(DTPicker1.Day, "00")
   Text1.Text = FormattedString
End If
End Sub
Private Sub DTPicker1_FormatSize(ByVal CallbackField As String, Size As Integer)
If CallbackField = "XXXXXXXXX" Then
   Size = Len(CallbackField)
End If
End Sub
Private Sub Form_Load()
DTPicker1.Value = Date
DTPicker1.CustomFormat = "XXXXXXXXX"
DTPicker1.Format = dtpCustom
End Sub

要加入 mscomctl.ocx和comctl32.ocx了，

2012年3月27日星期二

MS SQL 指令、語法與管理

很多時候，都需要使用到指令、語法來管理MS SQL資料庫，但通常都是記不住的，寫下來便於使用，至於管理，towns是很遜的，很多時候都是土法鍊鋼，一點一點做 ^^"

1. 指令管理資料庫關閉與啟動
net stop mssqlserver /y <==使用net 指令停止mssqlserver服務，並同時同意停止其他相關服務
net start sqlserveragent <==使用net 指令啟動sqlserveragent服務，系統會自動將mssqlserver 啟動
net stop 及 start 主要是用來停止與啟動系統中的服務，所有的服務都可以透過這樣的方式來管理，另一個towns常用的是IIS的管理。
注意：後面加的服務名稱並不是在“服務”中的“顯示名稱”，而是“服務名稱”

2. 列出abc所有的table
sp_tables @table_name = '%',@table_owner = 'dbo',@table_qualifier = 'abc'

3. 選擇所有欄位從 abcd 資料表中找出 cdef 欄，並找有towns完全相同的字串（單一條件絕對搜尋，顯示所有欄位）
select * from abcd where cdef = 'towns'

選擇cdef,aaa欄位從 abcd 資料表中找出 cdef 欄，並找有towns完全相同的字串（單一條件絕對搜尋，只顯示兩欄位）
select cdef,aaa from abcd where cdef ='towns'

4. 查尋資料庫版本
select @@version

5. 刪除特定資料表
delete from abc <==刪除abc資料表中的資料

6. MSSQL 2005 資料庫 <==> MSSQL 2005 Express 資料庫
MSSQL 2005 Express ==> MSSQL 2005。直接附加即可
MSSQL 2005 ==> MSSQL 2005 Express
1. 由MSSQL 2005 匯出資料庫結構。在指定資料庫按滑鼠右鍵==>工作==>產生指令碼==>下一步==>確認是否為選擇的資料庫，下一步==>在選擇指令碼選項中，不需做特別修改，下一步==>選擇物件類型，僅選擇資料表及檢視，下一步==>選擇資料表，全選，下一步==>選擇檢視，全選，下一步==>輸出選項，這裡依需求選擇，下一步（towns多選寫指令碼至檔案），下一步==>設定檔名及路徑
，存檔，下一步==>完成
註：對該資料庫需要有存取權限，如果只有讀取權限，匯出時會出現錯誤
2. 將結構檔匯入 MSSQL 2005 Express。開啟Managemant==>檔案==>開啟==>檔案==>選擇剛剛匯出的檔案==>這時系統會要求打入帳密（確認連結的資料庫是否正確，帳密需有寫入權限）==>此時結構語法已載入==>點入語法，並確認要載入的資料庫是否正確（系統會預設載入為master）==>執行==>結構載入
3. 將資料匯入 MSSQL 2005 Express。
3.1.連結資料庫匯入
開啟Managemant==>選擇資料來源（確認資料來源及登入資料，一般towns會使用ReadOnly 帳號，以避免錯誤）==>選擇目的地（確認目的地及登入資料，這裡需有寫入權限）==>指定資料表複製或查詢，towns通常是要複製，選從一或多個資料表或檢視複製資料，下一步==>全選所有的資料表及檢示，編輯，選刪除資料表中的資料列，並取消檢視，下一步==>立即執行==>確認工作==>完成
3.2.可用匯出檔案方式，將資料再匯入。
開啟Managemant==>選擇資料來源（確認資料來源及登入資料，一般towns會使用ReadOnly 帳號，以避免錯誤）==>選擇目的地（選擇excel）==>選擇匯出路徑並打入檔案名稱==>地區設定及字碼頁需依資料庫編碼決定 ==>從一或多個資料表或檢視複製資料 ==>下一步（這裡towns使用預設值）
注意事項：做匯出匯入的動作是非常危險的，方向一錯資料就不見了，建議在執行時，該備份的一定要先備份，不要嫌麻煩
技術指導：藍色小舖資深工程師 IZAN
補充說明：最近一次的測試，是可以直接使用MSSQL 2005 ent 備份出來的檔案，直接還原到 MSSQL 2005 Express版中SQL Server Management Studio Express為 SP3版

7. MS SQL 2005 TCP/IP協定啟用
到開始Microsoft SQL 2005==>組態工具==>進入 SQL Server組態管理員（有些會出現英文）==>選擇 SQL Server 2005 網路組態==> 這裡可能會出現SQL及SQLEXPRESS，看哪個要開就開哪個 ==>選擇TCP/IP ==>IP位址==>確認IPALL中TCP通訊埠，是否有開起埠號（如預設值1433），在開啟後，要重新啟動SQL Server的服務，並使用netstat -an來檢查是否有開啟1433 port

8. 加快資料庫讀取速度，利用先將資料庫放到記憶體中，加快讀取速度
相關資料：http://blog.miniasp.com/post/2009/11/SQL-Server-Performance-Tuning-Caching-commonly-used-tables.aspx（感謝will大無私分享）

9. 在MSSQL資料庫轉移時，常常會遇到的問題
9.1. 資料庫使用還原或附加後，因為使用者不存在而造成網站無法正確讀取資料庫（如圖nouser），此時需刪除並重建使用者
9.2. 要刪除使用者，重建時，發生使用者無法刪除，導致無法重建該使用者。常見原因有
9.2.1. 在該資料庫==>安全性==>結構描述中，有該使用者的名稱
  處理方式：到結構描述中，將該使用者刪除，如果無法刪除，就與下面兩點有關
  9.2.2. 在該資料庫==>資料表==>結構描述中，有該使用者的名稱（如圖table）
9.2.3. 在該資料庫==>檢示==>結構描述中，有該使用者的名稱（如圖view）

  2000處理方式：手動將結構描述改為dbo
開啟SQL Server Enterprice Manager==>選擇該資料庫==>選擇資料表，其結構
描述為使用者名稱的==>到資料表上按滑鼠右鍵，選擇設計資料表==>按左上方“資料表與索引屬
性”（如圖property）==>變更擁有者為dbo（如圖property-1），存檔==>擁有者就改為dbo，就可
刪除帳號即可

2005處理方式：手動將結構描述改為dbo
開啟Microsoft SQL Server Management Studio==>選擇該資料庫==>選擇資料表，其結構
描述為使用者名稱的==>到資料表上按滑鼠右鍵，選擇設計==>在屬性中選結構描述==>變更擁有者
為dbo（如圖2005property），存檔==>擁有者就改為dbo，就可刪除帳號即可

2008處理方式：手動將結構描述改為dbo
開啟Microsoft SQL Server Management Studio==>選擇該資料庫==>選擇資料表，其結構
描述為使用者名稱的==>到資料表上按滑鼠右鍵，選擇設計==>在屬性中選結構描述==>變更擁有者
為dbo（如圖2008property），存檔==>擁有者就改為dbo，就可刪除帳號即可
  註：SQL Server Management Studio 預設並不開啟屬性視窗，按F4就可開啟

技術指導：藍色小舖資深工程師 IZAN
  補充：使用者擁有預存程序（如圖storedprocedure2），這個也會造成無法刪除使用者的問題，這時必須重建預設程序才能解決該問題。在預存程序上按滑鼠右鍵==>編寫預存程序指令碼為==>CREATE至==>產生指令碼，再將指令碼中的擁有者改為dbo，刪除該程序後重建這個預存程序。
技術指導：tina

10. 當同台主機安裝了多個MSSQL（如有有安裝2000、2005 Express、2005等）要注意
10.1.在進入SQL時，要選擇正確的版本
10.2.在新增帳號時，請使用2005來新增及指定資料庫，否則會發生帳號無法正常讀取的問題

11. 從 abcd 資料表中cdef 欄，找出有張及張*文的字串（兩條件模糊搜尋）
select * from abcd where (cdef LIKE '張%') OR (cdef LIKE '張%文')

12. 查詢T-SQL語法
sp_help

13. 列出資料庫清單，列出後再使用右鍵儲存結果為單一 CSV檔

13.1. 列出資料庫所有狀態
sp_helpdb

13.2. 僅列出資料庫名稱
USE master
SELECT dbid, DB_NAME(dbid) AS DB_NAME
FROM sysdatabases
ORDER BY dbid

資料來源：blues及tina口述

14. 查看每一個SQL語法的使用記錄
使用SQL Server Profiler 中新增追蹤，可以看到資料庫正在存取的情形
read ==>讀取硬碟資料筆數
write ==>寫入硬碟資料筆數
duration ==>經過時間，時間太長就表示讀取/寫入硬碟資料時很長，這是造成資料庫回應緩慢的原因（1000=1秒）
技術指導：藍色小舖資深工程師 IZAN

15. access 2007與資料庫連結（圖解）
     1. 匯入mssql 資料：外部資料==>其他==>ODBC資料庫（如圖mdb1.jpg）
     2. 選擇匯入方式，第一項為將資料cp一份到電腦中，第二項為連結同步，取得最新資料（如圖mdb2.jpg）
     3. 選擇資料來源，請新增一個 DSN資料來源（如圖mdb3.jpg）
     4. 選擇 SQL server 下一步（如圖mdb4.jpg），將DSN指定存放位置及設定名稱下一步（如圖mdb5.jpg）
     5. 與伺服器建立連結，打入伺服器名稱或IP（如圖mdb6.jpg）
     6. 選擇連入帳戶，選擇第二項者，需打入帳號及密碼（如圖mdb7.jpg）
     7. 指定取得資料庫，勾選變更預設資料庫即可選擇（如圖mdb8.jpg）
     8. 這一塊使用預設值，不需變更（如圖mdb9.jpg），summary（如圖mdb10.jpg），完成後需打入帳密登入資料庫（如圖mdb11.jpg）
     9. 選擇要匯入的 table（如圖mdb12.jpg），完成匯入

16. 關於資料庫 ldf 檔非常大，但卻無法壓縮的問題
towns管理的伺服器中，有些資料庫的Log檔，實在是大的離譜，但在執行備份壓縮後，卻不見Log檔變小（如圖mssqlLog2.jpg），雖然說可用空間明顯加大（如圖mssqlLog.jpg），但檔案事實上是沒變小的，目前towns 將自動壓縮功能啟用（如圖mssqlLog3.jpg）並執行排程備份壓縮，是否能成功將 ldf 檔變小，今天晚上就可以知道了。
很可惜，ldf 檔並沒有變小，看來在動作中的資料庫，要壓縮是個問題呢
16.1.經過IZAN指導，要連續兩次壓縮，才能將ldf 檔變小，而且必需使用維護計畫來執行才能有效壓縮，可以先做一次手動備份LDF檔，再用計畫做備份壓縮，也可以有效處理
16.2.不需要設定自動壓縮功能（如圖mssqlLog3.jpg），也能有效壓縮
技術指導：藍色小舖資深工程師 IZAN
相關資料：http://ithelp.ithome.com.tw/question/10028911
補充：LDF 檔有多大，就需要給他一個多大的空間來備份，如LDF約10GB，硬碟空間就要 > 10GB

17. 從 abcd 資料表中所有的欄位找出 cdef 欄，並找有 1 或 2 字串的資料（同時搜尋兩條件）
SELECT * FROM abcd WHERE (cdef = '1') OR (cdef = '2')

18. 從 abcd 資料表中所有的欄位找出 cdef 欄，去除有 1 或 2 字串的資料（同時去除兩條件）
SELECT * FROM abcd WHERE not(cdef = '1' OR cdef = '2')
SELECT * FROM abcd where cdef not in ('1','2')
資料來源：IZAN 及 TINA

19. 從 abcd 資料表中所有的欄位找出 cdef 欄為空值的資料
SELECT * FROM abcd WHERE (cdef = '')

20. 統計abcd 資料表筆數
select count(*) from abcd
資料來源：Blues

21. 從abcd 資料表中列出前 N 筆 cdef 欄資料（僅顯示cdef 欄資料）
select top ( N ) cdef from abcd
從abcd 資料表中列出前 N 筆資料
select top ( N ) * from abcd
資料來源：Blues

22. 從abcd 資料表中抓取 cdef 欄及ghij 資料
select cdef,ghij from abcd

23. 索引片段過多會導致資料庫讀取該table效能變差
查看索引片段情形與頁面使用飽和度
進入資料庫==>選定特定資料庫==>資料表==>選定特定資料表==>索引==>點開看該叢集==>滑鼠右鍵點屬性==>選擇片段==>這裡就可以看到片段總計及頁面飽和度

24. T-SQL指令變更資料型別
ALTER TABLE abc
ALTER COLUMN abcuid Varchar (20) NOT NULL;
變更資料表 abc中的資料欄 abcuid 的欄位長度為 20
技術提供：blues

25. 清空特定資料庫語法。這個語法會特定資料庫中的資料完全清除
TRUNCATE TABLE table_name

26. MS-SQL 語法教學站台
http://www.1keydata.com/tw/sql/sql.html

27. MS-SQL 2000 問題
當使用windws 2003 server 安裝 MS-SQL 2000，SQL 版本為 SP2或更舊，這時會造成 TCP/IP 通訊協定無法開啟的問題，這時請將SQL 2000更新到 SP4版，這個問題就會解決，詳細資料可見事件檢視器==>應用程式

28. MS-SQL 2008 無法直接編輯資料的修改方式
2k8基於安全性考量，management studio預設的編輯功能為唯讀，導致無法編輯欄位內容、欄位格式等等，需到工具 ==>選項 ==>Desigeners ==>資料表和資料庫設計工具 ==>取消“防止存儲需要資料表重建的變更”，這樣就可以編輯了
資料來源：小舖工程師 jainkai

29. MS-SQL 2000的查詢頁面
ms-sql 2000中並沒有新增查詢的項目，以提供語法寫入，需要到工具 ==> sql query analyzer 才會開啟語法寫入頁面
註：要指定資料庫

30. 帳號權限管理
30.1. 限制讀取指定資料表（table）
建立帳號test ==>在指定資料庫（abcd），安全性中加入使用者test ==>但不提供“資料庫角色成員資格”==>到指定table（tbAabc）上按滑鼠右鍵==>屬性 ==>權限 ==>點下搜尋 ==>瀏覽 ==>勾選指定帳號（test）==>到下表中勾選test的權限，這裡依需求勾選，towns只勾授與“選取”。設定完成後，test帳號就只能看到這個table 並對這個table執行選取的指令了
刪除方式：直接於指定資料庫安全性中刪除該使用者

31. 主機名稱與MSSQL問題
當我們在安裝完MSSQL後再變更主機名稱，會發生維護計畫無法使用的問題，因為MSSQL會抓取舊主機名稱，造成執行權限不正確，導致維護計畫無法使用，這個問題可以在事件檢視器中看到。
處理方式：還在找

32. 建立資料庫
與ACCESS、Excel表很類似，不過通常需要加上主索引
主索引自行設定名稱類型 bigint，自動編號請將識別規格改為是
資料行自行設定名稱類型 nchar，並設定字數

33. 單一table大小可以在該table上面按滑鼠右鍵==>屬性==>儲存體，這裡就可以看到他使用的索引空間大小，資料空間大小

34. 取出大於等於1000的數值資料
select * from abcd where defg >= 1000
註：defg欄位必需為數值資料

35. MSSQL 2008 安裝失敗
系統：windows 2008 R2 std sp1
MSSQL：MSSQL 2008 R2 ent
在安裝過程中出現了“效能計數器登入區一致性：失敗”

點選失敗後，會請我們到指定網站參考微軟的說明

連到官網後，看了一下資料，說真的以towns的資質，實在是看不懂這個文章在寫什麼，更不知道怎麼下手處理問題，但towns有在伺服器廠商安裝系統時，有發現他們使用的是英文版OS，這個也造成了系統的區域資料異常。towns 試著到控制台==>時鐘、語言和區域中查看，發覺在系統管理==>非Unicode程式的語言，這裡寫的是“英文（美國）”，這個資訊顯然是錯誤的，towns 將他改為“中文（繁體、台灣）後，就可以正常安裝mssql了，還好這樣就可以了，官網資料實在是太難懂了= =
發覺這個問題，是因為在cmd模式下，會出現亂碼

36. MSSQL 語法，選取時間格式
方法一
SELECT    *
FROM        abc
WHERE
    DATEPART(yy, d_date) = 2010
AND DATEPART(mm, d_date) = 12
AND DATEPART(dd, d_date) = 31
方法二
SELECT *
FROM abc
WHERE
    d_date BETWEEN '2010-12-31 00:00:00' AND '2010-12-31 23:59:59'

資料來源：blues大師口述

37. 關於LDF檔異常長大的原因
使用索引重建，會造成LDF檔變大，如果有需要重建，建議先看看LDF檔是否很大了，如果很大，要先壓縮後再執行

2012年3月26日星期一

新二代健保上路 6種收入需要多繳費

2011-02-18
第41期

新二代健保上路 6種收入需要多繳費

文編輯部撰文：賴雅淳

攸關你荷包支出的二代健保法已經正式三讀通過，趕快來算一算，你到底要多繳多少健保費？在新制度實施後，又有哪些方法可以合法節省健保費支出？

二代健保過關，有人會增加保費、但也有人可以減少保費。二代健保未來正式實施後，有6 大類收入的民眾，包括兼差族、股票族、利息族、擁有執行業務收入、全年領超過投保薪資4倍獎金的上班族、包租公包租婆等收租一族，可能要繳交兩種健保費。

二代健保所謂的保費共分為兩種，其中一種是目前採用的以經常性投保薪資計算每月健保費，另一種則是補充保險費！

但是如果你只有領一份固定薪水，沒有其他收入來源，那麼所繳的健保費卻會不增反減。精打細算的你，趕快拿出計算機，算一下自己到底是少繳健保費？還是要多繳健保費？

狀況1 只有一份收入的上班族

模擬狀況林先生、林太太2人的月投保薪資各為4萬100元，且2個小孩都是在林先生的公司加入健保。
扣繳方式依照原本經常性投保薪資計算保費費率：由5.17%調降為4.91%（暫定）
計算方式林家4口每月所繳健保費　
一代健保為：40,100×5.17%×30%×4＝2,488元
二代健保為：40,100×4.91%×30%×4＝2,364元
林家4口：未來每月可少繳124元，1年少繳1,488元
計算說明因林先生、林太太以員工身分投保，只需負擔30%健保費，所以在計算上要乘以30%。

狀況2 兼差上班族

模擬狀況小君白天在貿易公司當會計，每月經常性投保薪資為3萬3300元，晚上則在速食餐廳上大夜班，每月薪水2萬元，那麼每個月要繳多少健保費？
扣繳方式 (1)經常性薪資納保，費率4.91% (2)補充保險費，費率為2%
計算方式
每月所繳薪資保費為：33,300×4.91%×30%＝491元
每月所繳補充保險費為：2萬×2%＝400元
小君每個月共要繳：891元健保費
計算說明目前補充保險費上限為1000萬元，下限未定，因此在試算上是以不扣除下限金額的方式，即總兼差所得的2%來計算補充保險費。

二代健保補充保險費知多少？

定義

二代健保除了以民眾的經常性投保薪資計算健保費之外，還針對經常性薪資以外的所得收取2%的費用做為補充保險費，以擴增健保財源。未來二代健保法公告實施後，健保局主要會針對以下6種經常性薪資以外的收入徵收2%補充保險費。

課徵所得項目

(1)全年所領獎金超過當月投保薪資4倍的獎金。

(2)非屬於投保薪資所給付的薪資所得，也就是兼差的薪資所得。但在職業工會納保的民眾，就算有不同雇主所發給的薪水，也不用繳2%的補充保險費。

(3)擁有執行業務收入，包括律師、會計師、藝人等領取的執行業務所得，另外像是名嘴的演講費、稿費等也算是執行業務收入。但是如果獨立開業的律師、醫師、會計師、建築師，原來就把執行業務所得做為經常性投保金額的話，就不必重複用來計算繳交2%的補充保險費。

(4)股票現金股利所得。

(5)銀行利息所得。

(6)租金收入，只有把房子出租給公司行號等營利單位的的民眾才須繳補充保險費，如果把房子租給學生、上班族等個人使用的話，就不用繳納補充保險費。

徵收上下限

目前補充保險費的上限是1000萬元，也就是超過1000萬元的部分，還是以1000萬元徵收補充保險費。至於下限金額，也就是6種補充保險費收入在一定金額以下，就不用繳補充保險費，由於尚未定案，因此目前的試算都是以不扣除下限，直接以6種收入的2%來概算可能要繳的補充保險費。

扣繳方式

採用單筆就源扣繳方式，例如銀行發放存款利息，上市櫃公司發股票現金股利時，要先扣除其中的2%做為補充保險費交給健保局，剩下的才發給銀行客戶、股東。除了超過4倍投保薪資獎金是以年度累計之外，其他5種收入都是依照單次扣繳補充保險費。例如每一筆的利息、每一筆的兼差收入、每一筆房租都必須扣繳2%當做補充保險費。

罰則

如果扣費義務人，也就是給錢的單位，包括銀行、上市櫃公司、企業，沒有依照規定扣繳補充保險費，健保局會限期補繳，並處以應扣繳金額的1倍當做罰鍰；如果扣費義務人沒有在限期內補繳，就會被處以3倍的罰鍰。

實施日期

預計最快明年正式上路，目前施行細節尚未公布。

◎更多精采內容請看：Money錢NO.41 2011/2

二代健保

中國時報【黃天如、楊毅╱台北報導】

二代健保原訂七月一日上路，因相關準備工作尚未齊備，全民健保監理會與費用協定會昨日決議建議行政院延後實施。對於外界最關心的基本保費費率，衛生署健保小組副召集人曲同光強調，「政府一定會守住低於現行費率五．一七％的承諾。」

馬英九總統曾在「黃金十年」政見中宣示的費率四.九一％承諾恐將跳票？行政院長陳冲昨在立法院答詢時表示，四.九一％這個數字，只是當初在二代健保立法過程中，曾經被提出來作為設算基礎的一個費率，「並不是一個承諾」。

未來將合併的健保監理會與費用協定會，昨召開首度聯繫會議，對衛生署宣示七月一日開辦二代健保，與會委員多認為過於倉促，尤其是應針對未來將開徵補充保費的部分，加強向民眾宣導，最後以舉手投票決議建議行政院延後實施。

曲同光表示，二代健保實施時間，是由衛生署報請行政院核定，對於健保監理會與費協會昨日決議，衛生署會適時向行政院反映，但在拍板定案前，二代健保仍以七月一日上路為目標。但一般認為，二代健保若確定延後上路，配合會計年度的預算編列，最可能的實施期程應該在明年一月一日。

對於外界最關心的基本保費費率，曲同光說，各界「念茲在茲」調降到四．九一％，只是健保局曾經試算過的數字。若真要實施，前提必須是補充保費每年收足兩百億，且不提撥一個月約四百億的安全準備金。

全民監督健保聯盟發言人兼健保監理會委員滕西華則直言，一旦基本保費費率由現行五．一七％調降至四．九一％，健保一年將短收三百卅億元，就算補充保費收足兩百億，也無法填補因此造成的財務缺口。

曲同光也說，衛生署當初保證只要能實施二代健保開徵補充保費，就可調降基本保費，無論如何都會守住這個承諾。

訂閱：文章 (Atom)

2012年4月11日 星期三

2012年4月8日 星期日

2012年3月27日 星期二

2012年3月26日 星期一

新二代健保上路 6種收入需要多繳費

狀況1 只有一份收入的上班族

狀況2 兼差上班族

二代健保補充保險費知多少？

定義

課徵所得項目

徵收上下限

扣繳方式

罰則

實施日期

2012年4月11日星期三

2012年4月8日星期日

2012年3月27日星期二

2012年3月26日星期一