• 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
User avatar
vie87vn
Thành viên tích cực
Thành viên tích cực
Posts: 150
Joined: Sat 05/04/2008 10:15 am
Location: Quán Đôi - Củ Chi
Been thanked: 2 times
Contact:

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

Postby vie87vn » Mon 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.

Image

Ứ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

Image

Image
Attachments
AllAboutLunar.rar
(497.56 KiB) Downloaded 2739 times


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

User avatar
mushu
Thành viên danh dự
Thành viên danh dự
Posts: 51
Joined: Mon 14/04/2008 10:00 am
Has thanked: 1 time
Been thanked: 1 time
Contact:

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

Postby mushu » Sun 06/07/2008 10:09 pm

clarkkent wrote: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 đó.
Attachments
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) Downloaded 919 times

rickypham
Thành viên chính thức
Thành viên chính thức
Posts: 28
Joined: Fri 27/04/2012 5:54 pm
Has thanked: 21 times

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

Postby rickypham » Sat 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

User avatar
Dragons
Thành viên trung thành
Thành viên trung thành
Posts: 271
Joined: Wed 25/06/2008 10:58 am
Location: Bến Tre, HCM
Has thanked: 14 times
Been thanked: 8 times

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

Postby Dragons » Mon 16/07/2012 4:38 pm

mushu wrote:
clarkkent wrote: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
Posts: 28
Joined: Fri 27/04/2012 5:54 pm
Has thanked: 21 times

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

Postby rickypham » Mon 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á

User avatar
Dragons
Thành viên trung thành
Thành viên trung thành
Posts: 271
Joined: Wed 25/06/2008 10:58 am
Location: Bến Tre, HCM
Has thanked: 14 times
Been thanked: 8 times

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

Postby Dragons » Mon 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

User avatar
Dragons
Thành viên trung thành
Thành viên trung thành
Posts: 271
Joined: Wed 25/06/2008 10:58 am
Location: Bến Tre, HCM
Has thanked: 14 times
Been thanked: 8 times

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

Postby Dragons » Mon 16/07/2012 5:04 pm

rickypham wrote: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:
[vbnet]Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim THONGTIN_NAM_AMLICH As AllLunarInfo = GetAllLunarInfo(Today.Day, Today.Month, Today.Year, 7)
MsgBox(THONGTIN_NAM_AMLICH.sMonthCanChi)

End Sub[/vbnet]
Chuyển từ lịch âm => lịch dương
[vb] Dim lunar As New clsLunar

With lunar.Lunar2Solar(29, 5, 2012, 0, 7)
MessageBox.Show(.ToString)
End With
'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[/vb]

PS: cấu trúc VB6 chắc cũng giống tương tự như vậy. Thông cảm !
Last edited by Dragons on Tue 17/07/2012 10:44 am, edited 1 time in total.

rickypham
Thành viên chính thức
Thành viên chính thức
Posts: 28
Joined: Fri 27/04/2012 5:54 pm
Has thanked: 21 times

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

Postby rickypham » Mon 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
Posts: 28
Joined: Fri 27/04/2012 5:54 pm
Has thanked: 21 times

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

Postby rickypham » Mon 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

User avatar
NoBi
Quản trị
Quản trị
Posts: 959
Joined: Tue 18/03/2008 1:22 pm
Location: Sài Gòn
Has thanked: 53 times
Been thanked: 66 times
Contact:

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

Postby NoBi » Tue 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
Posts: 28
Joined: Fri 27/04/2012 5:54 pm
Has thanked: 21 times

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

Postby rickypham » Tue 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
Posts: 47
Joined: Thu 10/04/2008 4:40 pm
Has thanked: 3 times

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

Postby btamsgn » Sat 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


Return to “[VB] Module, Class, UserControl, OCX”

Who is online

Users browsing this forum: No registered users and 0 guests