01288556649
Chào mừng quý vị đến với website DÁNG NHỚ của Lê Văn Sơn.
Quý vị chưa đăng nhập hoặc chưa đăng ký làm thành viên, vì vậy chưa thể tải được các tư liệu của Thư viện về máy tính của mình.
Nếu chưa đăng ký, hãy đăng ký thành viên tại đây hoặc xem phim hướng dẫn tại đây
Nếu đã đăng ký rồi, quý vị có thể đăng nhập ở ngay ô bên phải.
Gốc > THƯ VIỆN -download > Thu viên kết nối >
(Đã chỉnh sử và cập nhật lại ngày 16/11/2014)
Các bạn thân mến! Blog TTL đã giới thiệu thuật toán tính Âm Lịch của Hồ Ngọc Đức bằng ngôn ngữ JavaScript, Đây là thuật toán Thiên văn của quốc tế. Bạn có thể xem bài viết này tại:
Lê Văn Sơn @ 04:54 11/05/2015
Số lượt xem: 1615
LỊCH VAN NIÊN
CHỦ ĐỀ NỔI BẬT
TẢI LỊCH VẠN NIÊN BẢN MỚI NHẤT
(có nhiều ứng dụng thiên văn)
(Đã chỉnh sử và cập nhật lại ngày 16/11/2014)
 |
| Bản đồ sao được nhúng vào lịch |
Còn ở bài viết này tôi sẽ giới thiệu cho bạn thuật toán tính âm lịch của Hồ Ngọc Đức bằng ngôn ngữ Viasual Basic do Blog TTL chuyển từ ngôn JavaScript. Và File Excel Lịch Vạn Niên xây dựng từ thật toán trên và các tài liệu xem ngày tháng. Nhưng tôi sẽ giới thiệu về File Lịch Vạn Niên trước, thuật toán giới thiệu sau.
File Lịch Vạn Niên là một chương trình xử lý, tính toán một ngày dương nào đó thành ngày âm lịch và các vạn sự của ngày.
Ví dụ như ngày Dương là ngày 01 tháng 01 năm 2013, thì kết quả cơ bản từ chương trình Lịch Vạn Niên là:
- Là ngày Hoàng Đạo
- Ngày thứ 3
- Ngày theo lịch Julius: 2456294
- Ngày âm lịch: 20/11/2012 ngày Đinh Mão tháng Nhâm Tý năm Nhâm Thìn
- Mệnh ngày là Hỏa (lửa trong lò), mệnh tháng là Mộc (gỗ cây dâu), mệnh năm là Thủy (nước giữa dòng)
- Ngày này đang ở trong tiết Đông Chí (giữa đông - kinh độ mặt trời là 280.43 độ)
- Từ 23h đến 01h là giờ Canh Tý thần Tư Mệnh quản, giờ này là giờ Hắc Đạo, còn từ 01h đến 03h ....
- Ngày này thì hướng Hỷ thần là Chính Nam, Tài thần là Chính Tây, Hạc thần là Chính Nam, giờ không vong tại Dậu, Hợi, Giờ tốt: Dần, Mão, Ngọ, Mùi
- Các sao tốt chiếu trong ngày này: Nguyện Đức Hợp, Thiên Thành...
- Các sao xấu chiếu trong ngày này: Thiên Cương, Thiên Lại...
- Các phần vạn sự A, B,C,D,E,F ...
- ............................
Ngoài ra còn có thêm 3 phần là: Xem Giờ Sinh, Bát Trạch, và Ngày Đặc Biệt Của Bạn:
- Phần Xem Giờ Sinh được viết theo sách Ngọc Hạp Chánh Tông. Phần này bạn chỉ nên xem cho vui, đừng tin quá.
- Phần Bát Trạch được xây dựng dựa theo sách Phong Thủy Ứng Dụng. Phần này ứng dụng cho việc bài trí nội thất, ngoại thất.
- Phần Ngày Đặc Biệt là phần bạn nhập ngày mà bạn cần nhớ của mình vào, Lịch vạn niên khi chỉ tới ngày đó sẽ báo cho bạn. Ví dụ ngày sinh của bạn là 20/10/1984 Âm Lịch thì đến ngày 20/10 âm lịch của các năm sẽ hiện dòng nhắc sinh nhật của bạn.
Tuy nhiên bản Lịch Vạn Niên này chắc chắn không ít thì nhiều có chổ sẽ sai, nếu ai phát hiện lỗi sai sót thì comment dùm nha. Ngoài ra mong bà con bàn luận chi sẽ, góp ý để hoàn thành Lịch Vạn Niên này tốt hơn.
Ghi chú Lịch Vạn Niên này là file Excel có chứa các Macro nên bạn phải đưa chế độ bảo vệ của Excel về mức Low mới xem được. Phần Bát Trạch, nếu bạn dùng thì phải dùng Excel 2007 trở lên, excel 2003 sẽ bị lỗi.
TẢI LỊCH VẠN NIÊN MỚI NHẤT
http://www.mediafire.com/download/u1izbazpi990d46/LICH+VAN+NIEN+EXCEL+V1.0.rar
(Đã chỉnh sử và cập nhật lại ngày 16/11/2014)
(Đã chỉnh sử và cập nhật lại ngày 16/11/2014)
Riêng phần tính giờ nước lên, nước xuống thì mình chưa có thuật toán tính, nên mục này bà con xem thận trọng nha. Ai có thật toán tính giờ con nước thì chỉ mình với.
Các bạn có thể thảm khảo bài viết: Cách Tính Giờ Âm Lịch để hiểu hơn về chương trình này
Còn đây là thuật toán:
Option Explicit ' TRAN TU LIEM
Const PI As Double = 3.14159265358979 ' Atn(1) * 4
Function jdFromDate(ByVal dd As Long, ByVal mm As Long, ByVal yy As Long) As Long
Dim a As Double, y As Long, M As Long, jd As Long
a = Fix((14 - mm) / 12)
y = yy + 4800 - a
M = mm + 12 * a - 3
jd = dd + Fix((153 * M + 2) / 5) + 365 * y _
+ Fix(y / 4) - Fix(y / 100) + Fix(y / 400) - 32045
If jd < 2299161 Then
jd = dd + Fix((153 * M + 2) / 5) + 365 * y + Fix(y / 4) - 32083
End If
jdFromDate = jd
End Function
Function jdToDate(jd)
' doi ngay july thành ngay thuong
Dim a, b, c, d, e, M, Day, Month, Year
If jd > 2299160 Then
a = jd + 32044
b = Int((4 * a + 3) / 146097)
c = a - Int((b * 146097) / 4)
Else
b = 0
c = jd + 32082
End If
d = Int((4 * c + 3) / 1461)
e = c - Int((1461 * d) / 4)
M = Int((5 * e + 2) / 153)
Day = e - Int((153 * M + 2) / 5) + 1
Month = M + 3 - 12 * Int(M / 10)
Year = b * 100 + d - 4800 + Int(M / 10)
jdToDate = DateSerial(Year, Month, Day)
Lê Văn Sơn @ 04:54 11/05/2015
Số lượt xem: 1615
Số lượt thích:
0 người
- Hướng dẫn điền key sử dụng: (25/04/14)
- THU VIEN GIAI TRI (27/12/11)
- Cửa sổdownload (20/07/10)
- Qủi môi trường (20/07/10)
Cho và nhận
Sau khi chết, Giáp và Ất xuống địa ngục. Sau khi tra
cuốn sổ ghi công và tội của hai người. Diêm Vương
nói: “Khi còn sống, các ngươi chưa từng làm việc
ác, cho phép các ngươi được đầu thai làm người.
Nhưng bây giờ có hai loại người cho các ngươi lựa
chọn: một loại người luôn cho và một loại người
luôn nhận, hay nói cách khác, một loại người phải
cho đi và bỏ ra, còn loại người kia luôn phải tiếp
nhận và thu về” Giáp nghĩ bụng, thu về, nhận vào
chẳng phải là ngồi mát ăn bát vàng sao, thật là
thoải mái và sung sướng. Vì thế, anh ta tranh nói
trước: “Tôi muốn trở thành người chỉ nhận”.
Ất thấy thế cũng không còn sự lựa chọn nào khác,
nên đành chấp nhận cuộc sống luôn phải bỏ ra và
cho đi. Diêm Vương nghe xong liền phán xét tiền đồ
của hai người: “Giáp muốn có cuộc sống chỉ nhận
vào, nên kiếp sau sẽ làm kẻ ăn xin, suốt ngày nhận
sự bố thí của người khác. Ất sẽ trở thành
người giàu có, suốt đời bố thí tiền cho người
khác”. Ăn xin ở trong khách sạn 5 sao Lời bình: Muốn
gặt hái được thành công, thì phải hiểu được
triết lý “bỏ ra”. Có bỏ ra thì mới có thu về, có
cho thì mới có nhận. Bỏ ra nhiều hay ít sẽ quyết
định thành công lớn hay nhỏ.
Các ý kiến mới nhất