Thứ Sáu, 28 tháng 12, 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, 22 tháng 12, 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

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

Dùng Array để AddNew Record

Thông thường chúng ta hay dùng cách sau để AddNew một Recordset

Public Sub AddNew()
  
Dim DB As Database
  Dim rs 
As Recordset
  Set DB 
CurrentDB
  Set rs 
DB.OpenRecordset("tblCompany"dbOpenTable)
  
With rs
     
.AddNew
     
!CompanyName "A"
     
!Address "B"
     
!City "C"
     
.Update
  End With
  rs
.CloseSet DB Nothing
End Sub 


Thứ Sáu, 21 tháng 12, 2012

Tưởng rằng...


Tưởng rằng ngày đã qua
Tôi tìm về đêm tối
Nào ngờ ngày chưa vội
Khép chân ở lại chiều

Tưởng rằng chuyện tình yêu
Mỗi lần là một mới
Cuối cùng chỉ rắc rối
Còn ở lại cùng tôi

Tưởng rằng người một nơi
Và tôi đây một chốn
Ai ngờ tôi phải trốn
Phải chạy chính tôi rồi

Tưởng rằng... chỉ thế thôi

08/09/2012
Thanh Phương

BẤT CHỢT ... ĐAU


Bất chợt thấy anh chốn đông người
Mặt thì rạng rỡ "toét" miệng cười
Ôm eo, áp má con gái lạ
Đau đắng lòng tim rỉ máu tươi...

10/09/2012
Thanh Phương

THU


Hạ qua thu đã đến rồi
Lá vàng theo gió cũng rời mà đi
Phải chăng gió nói điều gì?
Để cành xa lá chia ly vô tình



10/09/2012
Thanh Phương

Từ tạ...


Em đi rồi
Em đi rồi
Để cho Thi Ẩm
Đứng
Ngồi
Không yên
Mảnh Trăng
Rớt xuống
Bên thềm
Bâng khuâng
Mong đợi
Nỗi niềm
Xót
Xa

22/11/2012
Thanh Phương

Nhắn HTST


4
Thương cho hòa thượng
Nợ trả chưa xong
Tình cũ vẫn mong
Khi mô thoát tục?
5
Thương cho cô hòa thượng
Chưa trả dứt nợ đời
Vẫn mong một bờ môi
Làm sao mà thoát tục?
6
Thương cho hòa thương si tình
Vẫn nhớ khúc sông trong đục
Tâm hồn muốn đang thoát tục
Hỏi nàng rằng đến khi mô?
7
Hòa thượng nhớ về một khúc sông
Đục trong thêm thoáng chút chạnh lòng
Phải chăng người lại muốn hoàn tục?
Tu mà như thế cũng như không
8
Điên điển nở rạng ngời trong nắng sớm
Qua khúc sông xưa lại nhớ tới ai
Thương người con gái có mái tóc dài
Mặc áo ca sa sao còn lưu luyến?

26/11/2012
Thanh Phương

Tương Tư...

Một mình
đêm trắng
bơ vơ.
Lắng nghe
ai đó
chạm hờ
môi em.
Tương tư…
thao thức
cả đêm…

Bóng ai
chơt thoáng
bên thềm
…tương tư


26/11/2012
Thanh Phương

Buồn...


Buồn tênh
một thoáng ban chiều…
Qua thềm lục bát
đôi điều nhớ thương
Qua rồi những vấn cùng vương
Sao ai cứ để
lệ thường đẫm mi?...

26/11/2012
Thanh Phương

Bởi vì anh là gió...


Bởi vì anh là gió
Nên anh mãi lãng du
Anh nào nhớ mùa thu
Có nhành hoa đang đợi

Anh theo lời mây gọi
Nên lả lướt cùng mây
Cuộn với nhau tháng ngày
Trong khoảng không da diết

Anh ơi anh có biét
Lúc mây trời âm u
Cuộn đen đám mịt mù
Là lúc mây tan biến

Mây tan thành nước biển
Mây tan thành nước sông
Anh còn có thong dong
Theo mây cùng hòa quyện?

(Tặng Ngạo huynh)
11/12/2012
Thanh Phương

Buông...


Anh nói rằng buông, sao nắm tay?
Tình duyên ta trải thật đắng cay
Hoa thơm em gửi, tình trong trắng
Quả đắng anh trao, nghĩa đọa đầy
Ba phút có nên non với biển?
Nghìn giây sao đặng gió cùng mây?
Buông tay, anh hỡi, mình buông nhé
Dĩ vãng vùi chôn với tháng ngày


24/11/2012
Thanh Phương

Vu vơ


Cuộc đời sao lại quá bât công
Để cho ta một chút chạnh lòng
Người đày ta qua bao khổ ải
Kẻ tặng ai kia những trắng trong

Ai rũ giùm ai những đớn đau?
Ai thanh lọc giúp những nỗi sầu?
Người bắt ta chìm trong đêm vắng
Nhìn đóa quỳnh thơm phải lắc đầu

Em vẫn như xưa, một giọt sương
Trong vườn hoang lạ gió chẳng vương
Con nhện giăng tơ nơi tường vắng
Đêm khuya trốn biệt dưới chân giường

Đời quá xót xa với nhọc lòng
Em chờ tia nắng cuối mùa đông
Chờ hoài, đợi mãi không hy vọng
Bầm tím thân em giữa cầu vồng

21/12/2012
Thanh Phương

Thứ Năm, 20 tháng 12, 2012

Nhà Mới

Thế là từ hôm nay mình đã có ngôi nhà mới, ngôi nhà của riêng mình
Đã biết lâu lắm rồi, nhưng vì bận nhiều việc quá nên chưa xây nhà riêng cho mình được. Từ nay mình thỏa sưc tung hoành trong ngôi nhà riêng. Và cũng từ đây, mình có thể mời các huynh đệ trỷ muội ghé thăm nhà để cùng trà dư tửu hậu rồi
Dù ngôi nhà mới còn đơn sơ nhưng Thanh Phương xin mời các huynh đệ tỷ muội ghé thăm nhà mới và cùng trò chuyện nhé
Thân mời
Cám ơn!

20/12/2012
Thanh Phương