Tìm thủ thuật nhanh hơn với chức năng tìm trong Blog

11/15/09

Chuyển chữ thường thành chữ Hoa

Hỏi: Tôi làm chương trình qlý SV, vô ý lúc nhập tên toàn nhập chữ thường, tôi muốn tạo một hàm có thể in hoa tất cả mẫu tự đầu của từng từ trong trường văn bản thì phải làm như thế nào?
Trả lời: Hàm của bạn làm như sau:
Function Inhoachucaidau (Word as Variant) as String
   Dim temp as string, C as string, OldC as String, X as integer
   If IsNull(Word) then
      Exit Function
Else


   temp = CStr(LCase(Word)
   OldC = " "
   For X = 1 to Len(temp)
      C= Mid(temp, X, 1)
      If C >= "a" and C <= "z" and (OldC < "a" or OldC > "z") then
         Mid(temp, X, 1) = UCase(C)
      End If
      OldC = C
   Next X
   Inhoachucaidau = temp
End If
End Function
Lúc các bạn sử dụng thì thay đổi trường Control Suorce thành
= Inhoachucaidau([text field_của bạn])