Hiển thị kết quả tìm kiếm từ 1 đến 10 trên tổng số: 10
  1. #1
    Tham gia ngày
    07 2011
    Bài gởi
    3
    Cảm ơn
    2
    Được cảm ơn 0 lần trong 0 bài viết

    Smile Đổi năm dương lịch sang âm lịch

    Tôi viết thủ tục thực hiện đổi năm từ dương lịch sang âm lịch nhưng không thực hiện được, mong các anh chị trong diễn đàn xem giúp tôi hướng khắc phục:
    Public Sub namAL(AL As String)
    'Khai bao bien
    Dim chi, can
    'Tinh can
    can = (Year(Now()) + 6) Mod 10
    If can = 0 Then can = "Giap "
    If can = 1 Then can = "At "
    If can = 2 Then can = "Binh "
    If can = 3 Then can = "Dinh "
    If can = 4 Then can = "Mau "
    If can = 5 Then can = "Ky "
    If can = 6 Then can = "Canh "
    If can = 7 Then can = "Tan "
    If can = 8 Then can = "Nham "
    If can = 9 Then can = "Quy "
    'Tinh chi
    chi = (Year(Now()) + 8) Mod 12
    If chi = 0 Then can = "Ti"
    If chi = 1 Then can = "Suu"
    If chi = 2 Then can = "Dan"
    If chi = 3 Then can = "Mao"
    If chi = 4 Then can = "Thin"
    If chi = 5 Then can = "Ty"
    If chi = 6 Then can = "Ngo"
    If chi = 7 Then can = "Mui"
    If chi = 8 Then can = "Than"
    If chi = 9 Then can = "Dau"
    If chi = 10 Then can = "Tuat"
    If chi = 11 Then can = "Hoi"
    'Tinh nam am lich
    AL = can & chi
    End Sub
    thay đổi nội dung bởi: h3l, 22-07-11 lúc 04:15 PM

  2. #2
    Tham gia ngày
    05 2008
    Nơi Cư Ngụ
    Hải Phòng
    Bài gởi
    4,439
    Cảm ơn
    3,581
    Được cảm ơn 7,259 lần trong 3,405 bài viết
    Bạn sửa 1 chút:

    Code:
    Sub namAL()
    'Khai bao bien
    Dim chi, can, AL As String
    'Tinh can
    can = (Year(Now()) + 6) Mod 10
    If can = 0 Then can = "Giap "
    If can = 1 Then can = "At "
    If can = 2 Then can = "Binh "
    If can = 3 Then can = "Dinh "
    If can = 4 Then can = "Mau "
    If can = 5 Then can = "Ky "
    If can = 6 Then can = "Canh "
    If can = 7 Then can = "Tan "
    If can = 8 Then can = "Nham "
    If can = 9 Then can = "Quy "
    'Tinh chi
    chi = (Year(Now()) + 8) Mod 12
    If chi = 0 Then chi = "Ti"
    If chi = 1 Then chi = "Suu"
    If chi = 2 Then chi = "Dan"
    If chi = 3 Then chi = "Mao"
    If chi = 4 Then chi = "Thin"
    If chi = 5 Then chi = "Ty"
    If chi = 6 Then chi = "Ngo"
    If chi = 7 Then chi = "Mui"
    If chi = 8 Then chi = "Than"
    If chi = 9 Then chi = "Dau"
    If chi = 10 Then chi = "Tuat"
    If chi = 11 Then chi = "Hoi"
    'Tinh nam am lich
    AL = can & chi
    MsgBox AL
    End Sub

  3. #3
    Tham gia ngày
    05 2008
    Nơi Cư Ngụ
    Hải Phòng
    Bài gởi
    4,439
    Cảm ơn
    3,581
    Được cảm ơn 7,259 lần trong 3,405 bài viết
    Theo mình viết như sau gọn hơn

    Code:
    Sub namAL()
    Dim chi(), can(), AL As String
    can = Array("Giap ", "At ", "Binh ", "Dinh ", "Mau ", "Ky ", "Canh ", "Tan ", "Nham ", "Quy ")
    chi = Array("Ti", "Suu", "Dan", "Mao", "Thin", "Ty", "Ngo", "Mui", "Than", "Dau", "Tuat", "Hoi")
    AL = can((Year(Now()) + 6) Mod 10) & chi((Year(Now()) + 8) Mod 12)
    MsgBox AL
    End Sub
    Hoặc có thể dùng hàm Choose thay mảng, chứ bạn dùng hàng chục cái if mệt quá.
    thay đổi nội dung bởi: sealand, 22-07-11 lúc 05:08 PM

  4. Thành viên sau cảm ơn sealand về bài viết này:

    h3l

  5. #4
    Tham gia ngày
    07 2011
    Bài gởi
    3
    Cảm ơn
    2
    Được cảm ơn 0 lần trong 0 bài viết
    Cám ơn bạn rất nhiều. Tôi mới tìm hiểu về Access và cũng không rành về lập trình nên mong bạn giúp đỡ nhiều. Tiện đây nhờ bạn cũng giúp tôi giải đáp một số thắc mắc luôn nhé.
    - Tôi muốn sử dụng thủ tục trên để thực hiện đổi các năm sinh dương lịch nhập vào ra năm sinh âm lịch và hiện ra trên form và report. Tôi cần làm như thế nào?
    2/Trong form của tôi có 1 form chính và 1 form con. Nếu tôi muốn thao tác đến form con thì làm như thế nào? (Giả sử khi nhấn nút xóa thì sẽ xóa các bảng ghi trong form con. Tôi đã thực hiện xóa nhưng chỉ xóa được dữ liệu trong form chính. Khi mở CSDL ra thì dữ liệu trong form con vẫn còn)

  6. #5
    Tham gia ngày
    05 2008
    Nơi Cư Ngụ
    Hải Phòng
    Bài gởi
    4,439
    Cảm ơn
    3,581
    Được cảm ơn 7,259 lần trong 3,405 bài viết
    1/Để hiện trên form hay report bạn có thể làm như sau:
    +Đổi thủ tục thành hàm:
    Code:
    Function namAL(Yr as integer)
    Dim chi(), can()
    can = Array("Giap ", "At ", "Binh ", "Dinh ", "Mau ", "Ky ", "Canh ", "Tan ", "Nham ", "Quy ")
    chi = Array("Ti", "Suu", "Dan", "Mao", "Thin", "Ty", "Ngo", "Mui", "Than", "Dau", "Tuat", "Hoi")
    namAL = can((Yr + 6) Mod 10) & chi(Yr + 8) Mod 12)
    End Sub
    +Dùng Textbox để hiển thị dạng Unbound và nhâp vào ControlSource =namAL(Nam_nao)

    2/Để xoá dữ liệu có 2 dạng:
    +Nếu Unbound thì gán contr. =0 hay Null. Ngược lại xoá dữ liệu nguồn rồi Requery lại dữ liệu

  7. Thành viên sau cảm ơn sealand về bài viết này:

    h3l

  8. #6
    Tham gia ngày
    06 2011
    Bài gởi
    2
    Cảm ơn
    0
    Được cảm ơn 1 lần trong 1 bài

    Cơ sở dữ liệu

    Trong đề tài: Đổi năm DL sang năm AL, các anh chị dùng Code mình nghĩ là rất hay mặc dù chưa biết về Code, còn mình dùng công thức hàm excel để chuyển đổi qua lại giữa năm DL và năm AL. Mời các bạn cùng và góp ý theo File đính kèm nhé!
    Tập tin đính kèm Tập tin đính kèm

  9. Thành viên sau cảm ơn htv3 về bài viết này:


  10. #7
    Tham gia ngày
    05 2010
    Bài gởi
    107
    Cảm ơn
    245
    Được cảm ơn 141 lần trong 35 bài viết
    Theo bài viết của bạn thì chỉ cần nhập năm sinh bất kỳ là ta có thể biết được năm đó thuộc CAN -CHI gì.
    Vậy bây giờ tôi muốn biết năm đó thuộc mệnh( mạng: kim-mộc-thuỷ-hoả-thổ) gì thì làm thế nào?
    Xin bạn htv3 cùng những ai am hiểu và quan tâm đến vấn đề này chỉ giúp.
    Xin trân trọng cảm ơn!!!

  11. #8
    Trích Nguyên văn bởi vutienhp View Post
    Theo bài viết của bạn thì chỉ cần nhập năm sinh bất kỳ là ta có thể biết được năm đó thuộc CAN -CHI gì.
    Vậy bây giờ tôi muốn biết năm đó thuộc mệnh( mạng: kim-mộc-thuỷ-hoả-thổ) gì thì làm thế nào?
    Xin bạn htv3 cùng những ai am hiểu và quan tâm đến vấn đề này chỉ giúp.
    Xin trân trọng cảm ơn!!!
    Bắt excel tính toán, dò tìm làm chi? Bạn có thế GOOGLE.COM mà search, sẽ cho bạn đầy đủ thông tin. Hehe
    (Hình như mệnh bạn là Đại Khê Thủy? hihi )

  12. #9
    Tham gia ngày
    05 2010
    Bài gởi
    107
    Cảm ơn
    245
    Được cảm ơn 141 lần trong 35 bài viết
    Điều bạn nói thì quá đơn giản, nhưng mình muốn biết quy luật của ngũ hành: Kim- mộc-thuỷ -hoả-thổ chúng vận động như thế nào theo năm tháng.
    Rất mong nhận được hồi âm của mọi người!!!

  13. #10
    Quy luật là "Thủy - Hỏa - Thổ -Mộc -Kim" theo tuổi Địa chi luân hồi chiến. Ví dụ : năm 1974 là Dần (Thủy) thì 1986 Dần tiếp là Hỏa, tiếp 1998 Dần Thổ - 2010 - Dần Mộc ....vvv. Các con vật khác cũng có quy luật tương tự.

    Xin góp chút ý kiến nhỏ !

  14. Thành viên sau cảm ơn tuananh74 về bài viết này:


Thông tin về chủ đề này

Users Browsing this Thread

Hiện có 1 người đang xem đề tài này. (0 thành viên và 1 khách)

Bookmarks

Bookmarks

Quyền Sử Dụng Ở Diễn Ðàn

  • Bạn không thể đăng đề tài mới
  • Bạn không thể đăng trả lời
  • Bạn không thể đăng file đính kèm.
  • Bạn không thể sửa bài viết.
  •  

Mudim v0.8 Tắt VNI Telex Viqr Tổng hợp
Chính tả Bỏ dấu kiểu mới  [Bật/Tắt (F9)]