• Vui lòng đọc nội qui diễn đàn để tránh bị xóa bài viết
  • Tìm kiếm trước khi đặt câu hỏi

Module toàn diện về Âm lịch

Các Module, Class, UserControl và thư viện OCX, DLL hỗ trợ cho Visual Basic
Hình đại diện của người dùng
vie87vn
Thành viên tích cực
Thành viên tích cực
Bài viết: 150
Ngày tham gia: T.Bảy 05/04/2008 10:15 am
Đến từ: Quán Đôi - Củ Chi
Been thanked: 2 time
Liên hệ:

Module toàn diện về Âm lịch

Gửi bàigửi bởi vie87vn » T.Hai 14/04/2008 8:49 am

Tên: mLunar
Loại: Module
Ngôn ngữ lập trình: Visual Basic 6
Tác giả: HồI Ngọc Đức
Chức năng: Hiển thị toàn bộ thông tin về lịch Âm từ lịch Dương


Hiệu chỉnh cho phù hợp: vie87vn
Giải thích: Chuyển đổi ngày dương sang ngày âm, lấy thứ, can chi năm, tháng, ngày, giờ, tiết khí, ngày âm dương bắt đầu tiết khí, năm nhuận hay không, nếu có nhuận tháng nào, bắt đầu từ ngày nào đến ngày nào dương lịch, ngày âm đó có thuộc tháng nhuận hay không ... Module được xây dưng trên mã nguồn của Hồ Ngọc Đức - http://come.to/duc và chỉnh lý mã nguồn, thử nghiệm và tổng hợp bởi vie87vn.

Hình ảnh

Ứng dụng: Calendar Task Tip 1.0
Chú thích: Rê chuột đến System Clock
/w : Hiển thị lịch tường
/b : Hiển thị lịch tờ
/1 : Khởi động cùng OS với lịch tường
/2 : Khởi động cùng OS với lịch tờ
/a : Thông tin
/? : Hướng dẫn
Không truyền tham số tự động hiểu là /w

Hình ảnh

Hình ảnh
Tập tin đính kèm
AllAboutLunar.rar
(497.56 KiB) Đã tải 2634 lần


Hoàng Sa và Trường Sa là của Việt Nam.

Hình đại diện của người dùng
mushu
Thành viên danh dự
Thành viên danh dự
Bài viết: 51
Ngày tham gia: T.Hai 14/04/2008 10:00 am
Has thanked: 1 time
Been thanked: 1 time
Liên hệ:

Re: Module toàn diện về Âm lịch

Gửi bàigửi bởi mushu » CN 06/07/2008 10:09 pm

clarkkent đã viết:To vie87vn : Ok ! Mình làm được rồi...

Có ai dịch cái Module này sang VB.NET được không. Mình đã thử dịch nhưng do trình độ còn kém nên 1 số lỗi chưa sữa được... :D :D :D

Em dịch cái module ấy cho anh rồi. Nhưng còn phần chuyển từ từ kểu gõ (hình như là VNI) sang UNICODE thì có một số chỗ em chịu không đoán được nên anh tự chuyển nhé.
Em đính kèm tập tin rồi đó.
Tập tin đính kèm
mLunarDate.7z
Có khuyến mại số PI rất dài một phần của 130000 chữ số.
(6.25 KiB) Đã tải 838 lần

rickypham
Thành viên chính thức
Thành viên chính thức
Bài viết: 28
Ngày tham gia: T.Sáu 27/04/2012 5:54 pm
Has thanked: 21 time

Re: Module toàn diện về Âm lịch

Gửi bàigửi bởi rickypham » T.Bảy 14/07/2012 11:05 pm

Cám ơn mushu đã chuyển sang vb.net dùm nhưng mình thuộc dạng gà mờ và cũng không hiểu về âm lịch lắm cho nên nhờ bạn hay ai đó hướng dẫn cách xài từng hàm trong module này đc không ạ?
Xin cảm ơn

Hình đại diện của người dùng
Dragons
Thành viên trung thành
Thành viên trung thành
Bài viết: 270
Ngày tham gia: T.Tư 25/06/2008 10:58 am
Đến từ: Bến Tre, HCM
Has thanked: 14 time
Been thanked: 8 time

Re: Module toàn diện về Âm lịch

Gửi bàigửi bởi Dragons » T.Hai 16/07/2012 4:38 pm

mushu đã viết:
clarkkent đã viết:To vie87vn : Ok ! Mình làm được rồi...

Có ai dịch cái Module này sang VB.NET được không. Mình đã thử dịch nhưng do trình độ còn kém nên 1 số lỗi chưa sữa được... :D :D :D

Em dịch cái module ấy cho anh rồi. Nhưng còn phần chuyển từ từ kểu gõ (hình như là VNI) sang UNICODE thì có một số chỗ em chịu không đoán được nên anh tự chuyển nhé.
Em đính kèm tập tin rồi đó.

Không biết trong Module này thì tham số dTimeZone trong hàm GetAllLunarInfo hiểu như thế nào vậy ?
Có bạn nào giải thích giúp với !
Thanks, đợi tin !

rickypham
Thành viên chính thức
Thành viên chính thức
Bài viết: 28
Ngày tham gia: T.Sáu 27/04/2012 5:54 pm
Has thanked: 21 time

Re: Module toàn diện về Âm lịch

Gửi bàigửi bởi rickypham » T.Hai 16/07/2012 4:57 pm

Em cũng thích các tính năng của âm lịch lắm nhưng để làm sao hiểu hết và sử dụng đây. Bác nào vào giúp đỡ chi tiết thì em cám ơn quá

Hình đại diện của người dùng
Dragons
Thành viên trung thành
Thành viên trung thành
Bài viết: 270
Ngày tham gia: T.Tư 25/06/2008 10:58 am
Đến từ: Bến Tre, HCM
Has thanked: 14 time
Been thanked: 8 time

Re: Module toàn diện về Âm lịch

Gửi bàigửi bởi Dragons » T.Hai 16/07/2012 4:58 pm

Ah, tôi hiểu rồi, ở Việt Nam thì dTimeZone là số 7 (tìm hiểu về giờ GMT)
Trong Module có phần tiếng Việt (tietkhi) tui gõ lại như sau:
{"Xuân Phân", "Thanh Minh", "Cốc Vũ", "Lập Hạ", "Tiểu Mãn", "Mang Chủng", "Hạ chí", "Tiểu Thử", "Đại Thử", "Lập Thu", "Xử Thử", "Bạch Lộ", "Thu Phân", "Hàn Lộ", "Sương Giáng", "Lập Đông", "Tiểu Tuyết", "Đại Tuyết", "Đông Chí", "Tiểu Hàn", "Đại Hàn", "Lập Xuân", "Vũ Thủy", "Kinh Trập"}
Xem thêm tại đây: http://www.caulacbovb.com/forum/viewtopic.php?t=10693

Hình đại diện của người dùng
Dragons
Thành viên trung thành
Thành viên trung thành
Bài viết: 270
Ngày tham gia: T.Tư 25/06/2008 10:58 am
Đến từ: Bến Tre, HCM
Has thanked: 14 time
Been thanked: 8 time

Re: Module toàn diện về Âm lịch

Gửi bàigửi bởi Dragons » T.Hai 16/07/2012 5:04 pm

rickypham đã viết:Em cũng thích các tính năng của âm lịch lắm nhưng để làm sao hiểu hết và sử dụng đây. Bác nào vào giúp đỡ chi tiết thì em cám ơn quá

Ví dụ: muốn xem ngày 22 tháng 02 năm 1983 là năm nào thì:
  1.  Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  2.         Dim THONGTIN_NAM_AMLICH As AllLunarInfo = GetAllLunarInfo(22, 2, 1983, 7)
  3.         MsgBox(THONGTIN_NAM_AMLICH.sYearCanChi)
  4.     End Sub

Tương tự ta thay đổi thông số trả về sYearCanChi bằng nhưng thông số khác sẽ cho thông tin khác nhau
hoặc xem tháng âm lịch hiện hành:
  1. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  2.         Dim THONGTIN_NAM_AMLICH As AllLunarInfo = GetAllLunarInfo(Today.Day, Today.Month, Today.Year, 7)
  3.         MsgBox(THONGTIN_NAM_AMLICH.sMonthCanChi)
  4.  
  5.     End Sub

Chuyển từ lịch âm => lịch dương
  1.  Dim lunar As New clsLunar
  2.  
  3.         With lunar.Lunar2Solar(29, 5, 2012, 0, 7)
  4.             MessageBox.Show(.ToString)
  5.         End With
  6. 'Với tham số dLunaryear có 2 giá trị 0 và 1 tương ứng cho năm nhuận và không nhuận


PS: cấu trúc VB6 chắc cũng giống tương tự như vậy. Thông cảm !
Sửa lần cuối bởi Dragons vào ngày T.Ba 17/07/2012 10:44 am với 1 lần sửa.

rickypham
Thành viên chính thức
Thành viên chính thức
Bài viết: 28
Ngày tham gia: T.Sáu 27/04/2012 5:54 pm
Has thanked: 21 time

Re: Module toàn diện về Âm lịch

Gửi bàigửi bởi rickypham » T.Hai 16/07/2012 9:13 pm

Bác nào chỉ cho em 1 VD sử dụng Module này với ạ.
VD em tạo một form gồm 3 textbox ngày, tháng, năm và một nút bấm
Bấm vào ra ngày âm lịch được không ạ?
Tại em không biết chèn module này và sử dụng vào form thế nào? Ai chỉ em cách làm một hàm ví dụ đi ạ
Xin cám ơn

rickypham
Thành viên chính thức
Thành viên chính thức
Bài viết: 28
Ngày tham gia: T.Sáu 27/04/2012 5:54 pm
Has thanked: 21 time

Re: Module toàn diện về Âm lịch

Gửi bàigửi bởi rickypham » T.Hai 16/07/2012 9:21 pm

Cám ơn bác dragon nha, em mới vào học có bác chỉ vậy là mò mấy cái còn lại là được rồi. Cám ơn bác rất nhiều

Hình đại diện của người dùng
NoBi
Quản trị
Quản trị
Bài viết: 948
Ngày tham gia: T.Ba 18/03/2008 1:22 pm
Đến từ: Sài Gòn
Has thanked: 50 time
Been thanked: 66 time
Liên hệ:

Re: Module toàn diện về Âm lịch

Gửi bàigửi bởi NoBi » T.Ba 17/07/2012 9:26 am

Nếu muốn thảo luận bằng code vb.net, các bạn phải lập 1 chủ đề khác ở khu vực dành cho .net nhé. Những bài viết thảo luận code .net tương tự như trên sẽ bị xóa.
:>

rickypham
Thành viên chính thức
Thành viên chính thức
Bài viết: 28
Ngày tham gia: T.Sáu 27/04/2012 5:54 pm
Has thanked: 21 time

Re: Module toàn diện về Âm lịch

Gửi bàigửi bởi rickypham » T.Ba 17/07/2012 1:50 pm

Em có làm 3 textbox dự định để nhập ngày, tháng, năm nhưng không biết có cách nào đặt sẵn value của các ô textbox là ngày, tháng, năm của hệ thống luôn không ạ? Nếu ai muốn đổi thì đổi bằng tay còn nếu không muốn thì nó sẽ ra ngày hệ thống luôn cho tiện.
Em dùng hàm
dim ngay as double = textbox1.text = Today.day thì nó hiểu nhưng không hiện giá trị ngày trên ô textbox 1
Có ai biết cách không ạ?

btamsgn
Thành viên chính thức
Thành viên chính thức
Bài viết: 47
Ngày tham gia: T.Năm 10/04/2008 4:40 pm
Has thanked: 3 time

Re: Module toàn diện về Âm lịch

Gửi bàigửi bởi btamsgn » T.Bảy 27/04/2013 3:14 pm

Chào bạn,

mình có dơnload chương trình của bạn về xem.

Phần tìm ngày đầu tiết khí dương lịch
ví dụ: 29/5/2013 tiết tiểu mãn
Ngày đầu tiết khí lịch dương: 21/5/2013

bạn cho mình xin code riêng cho nút lấy Ngày đầu tiết khí lịch dương?

mình có xem qua code nhưng chưa hiểu lắm.

bạn tạo thêm 1 nút để lấy Ngày đầu tiết khí lịch dương giúp mình, thanks?

Tâm


Quay về “[VB] Module, Class, UserControl, OCX”

Đang trực tuyến

Đang xem chuyên mục này: Không có thành viên nào trực tuyến.0 khách