Thứ Sáu, ngày 04 tháng 1 năm 2013

Chỉ còn là kỷ niệm



Mùa đông nào yêu dấu

Để trái tim bình yên

Qua rồi mùa đông cũ

Để trái tim lặng im



Mùa đông nào áo trắng

Tung bay mỗi bước đi

Nhịp nhàng khua tiếng guốc

Buổi tan trường…chia ly



Hôm nay ngồi đọc lại

Từng chữ trong bài thơ

Trái tim như tan vỡ

Tình ai quá hững hờ



Em như chim nhỏ dại

Quá sợ cành cây cong

Hôm nay ngồi đọc lại

Mà sao thấy đắng lòng



Xin giữ làm kỷ niệm

Cho mùa đông năm nào

Em lại chờ sắc nắng

Một giọt vàng…hanh hao…

04/01/2013
Thanh Phương

Thứ Sáu, ngày 28 tháng 12 năm 2012

Đêm yên bình



Lạnh một chút, heo may hồng đôi má
Em tan trường làm chim nhỏ hiền ngoan
Mùa đông về áo trắng bay rộn rã
Đường thênh thang trăm nhịp guốc khua vang

Này em nhé, tháng mười hai rực rỡ
Vỡ trên môi từng nỗi nhớ ngọt ngào
Nụ cười thơm cho nhau từng hơi thở
Tình ấm nồng ngăn tim nhỏ xôn xao

Đẹp một chút mằu mắt nâu hạt dẻ
Sáng trong anh từng kỷ niệm dịu dàng
Xanh một chút tình em về lặng lẽ
Tình thơ ngây nên tình rất nhẹ nhàng

Này em nhé em vô cùng thánh thiện
Tỉ như con chiên ngoan giữa mùa đông
Và những đêm chuông giáo đường vang tiếng
Bay rộn ràng, ơi những bụi phấn thong

Vui một chút tình thơ xanh bóng mát
Tay trong tay, mắt trong mắt êm đềm
Đời nhẹ ru như lời ca tiếng hát
Trong vô cùng, đêm sẽ rất bình yên

(Gom vđể nhớ một người...)

Mơ...

Đêm qua em lại nằm mơ
Thấy anh đứng đợi bên bờ sông Ngân
Mơ tan em cứ tần ngần
Chờ cầu Ô Thước để gần bên anh
Bao giờ cho lá ôm cành
Cho hoa ấp nhụy, hoàn thành giấc mơ???

28/12/2012
Thanh Phương

Nhìn những cánh sao rơi. Mơ hồn ai thầm lặng. Về một cõi xa vời....Thanh Phương

Thứ Bảy, ngày 22 tháng 12 năm 2012

Hàm tính thuế thu nhập cá nhân trên Excel

Để có thể tính thuế thu nhập cá nhân trong Excel ta lập một hàm sau trong modul của Excel


Function Pit(Income As Double) As Double
    Select Case Income
        Case Is <= 0
            Thue = 0
        Case Is <= 5000000
            Thue = Round(Income * 0.05, 0)
        Case Is <= 10000000
            Thue = Round(Income * 0.1, 0) - 250000
        Case Is <= 18000000
            Thue = Round(Income * 0.15, 0) - 750000
        Case Is <= 32000000
            Thue = Round(Income * 0.2, 0) - 1650000
        Case Is <= 52000000
            Thue = Round(Income * 0.25, 0) - 3250000
        Case Is <= 80000000
            Thue = Round(Income * 0.3, 0) - 5850000
        Case Is > 80000000
            Thue = Round(Income * 0.35, 0) - 9850000
    End Select
    Pit = Thue
End Function

Hàm convert font từ VNI sang UNI


Function VNItoUNICODE(vnstr As String)
Dim c As String, i As Long
Dim db As Boolean
   For i = 1 To Len(vnstr)
      db = False
      If i < Len(vnstr) Then
         c = Mid(vnstr, i + 1, 1)
         If c = "ù" Or c = "ø" Or c = "û" Or c = "õ" Or c = "ï" Or _
            c = "ê" Or c = "é" Or c = "è" Or c = "ú" Or c = "ü" Or c = "ë" Or _
            c = "â" Or c = "á" Or c = "à" Or c = "å" Or c = "ã" Or c = "ä" Or _
            c = "Ù" Or c = "Ø" Or c = "Û" Or c = "Õ" Or c = "Ï" Or _
            c = "Ê" Or c = "É" Or c = "È" Or c = "Ú" Or c = "Ü" Or c = "Ë" Or _
            c = "Â" Or c = "Á" Or c = "À" Or c = "Å" Or c = "Ã" Or c = "Ä" Then db = True
      End If