Đê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

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

Ngăn chặn không cho Access tự động lưu

Chúng ta biết rằng Access luôn tự động lưu lại các record mỗi khi ta nhập mới hoặc sửa đổi. Để ngăn không cho access tự động lưu, muốn lưu phải hỏi trước, nếu đồng ý thì lưu, nếu không thì undo lại giá trị trước khi thay đổi, ta dùng thủ thuật sau của sự kiện BeforeUpdate của form