Bách khoa y học 2010 2.0 (Tiếng Việt)

08:36 |

Giới thiệu bộ sách Bách khoa Y học


Bách Khoa Y Học là sự phát triển kế tục của các phiên bản trước của Lê Đình Sáng, nhưng kể từ Bách Khoa Y Học 2010 thì nó không chỉ là một cuốn sách mà sẽ là một bộ sách điện tử, vì dung lượng và số lượng thông tin cứ ngày càng nhiều lên, phiên bản 2.0 có số lượng bài viết nhiều gấp ít nhất 4 lần Bách Khoa Y Học 1.5 , vì thế không thể nào “nhồi nhét” nó vào một cuốn sách được, vả lại việc chia nhỏ thành từng chuyên khoa sẽ giúp bạn đọc dễ dàng tra cứu hơn và cũng giúp tác giả dễ dàng cập nhật thông tin hơn, tiết kiệm thời gian và công suất làm việc cho cả người và máy tính.

Bách khoa y học 2010 2.0


BÁCH KHOA Y HỌC 2010 ĐƯỢC CHIA LÀM KHOẢNG 30 QUYỂN :


Tải Bách Khoa Y Học


Hướng dẫn tải: Click vào từng tài liệu để tải (có dung lượng rất lớn đã được lưu trữ trên Mediafire)

Tải toàn bộ:

https://www.fshare.vn/file/5NRHTV2MBP/?sbro=redirect

Xin cảm ơn tác giả Lê Đình Sáng, chúc tác giả sớm xuất bản bộ sách hay này!

Xem tiếp…

Sách Hay Xem Ngày Tháng Tốt Xấu

14:27 |
Kính chào các bạn!

TTL Blog giới thiệu các cuốn Sách Xem Ngày Tháng Tốt Xấu hay mà mình biết

Hẳn là khi quý bạn đọc tới đây chắc hẳn là bạn đang là một môn đồ của khoa học xem ngày tháng.

Trước đây TTL Blog chưa hiểu nên xem thuật chọn ngày tháng là tâm linh và tín ngưỡng bình thường. Tuy nhiên càng đi sâu và tìm hiểu thì môn khoa học này thật ra là khoa học của vũ trụ, tuân thủ những những quy luật của vũ trụ.

Sách Hay Xem Ngày Tháng Tốt Xấu
Sách Hay Xem Ngày Tháng Tốt Xấu


Và nó không hề cao siêu như chúng ta suy ngĩ. Ví dụ như chúng ta đi thuyền trên sông căn gời xuôi theo dòng sẽ nhanh và khỏe hơn nhiều. Hay vị thầy lang hái thuốc vào lúc nào, mùa nào... Hay cao siêu hơn như Gia Cát Khẩu Minh chọn được ngày có gió Đông để đốt thuyền Tào Tháo trong trận Xích Bích mùa đông 208 có thật không? Hay tại sao Trần Hưng Đạo chọn thời điểm để có chiến thắng Bạch Đằng Giang...

Trở lại với vấn đề. Xin mời bạn tham khảo các sách về thật xem ngày tháng:

1. THÔNG THƯ

Thật ra là cuốn: ngọc hạp toản yếu thông dụng (sách gối đầu dường xem các việc thông dụng)

Xuất bản năm 1826 (Bảo Đại)

Bản dịch: Sách Thông Thư (Dịch có sai sót nhiều)

Bản khắc in: Ngọc Hạp Toản Yếu Thông Dụng (Scan của thư viện quốc gia Việt Nam)


2. HIỆP KỸ BIỆN PHƯƠNG THƯ

Tác giả là Mai Cốc Thành cùng cộng sự, công trình mang tính chất Quốc gia thời nhà Thanh. Đây là công trình đồ sộ nhất mà TTL Blog từng thấy.

Xem thêm trong phần giới thiệu của sách nhé: Hiệp Kỹ Biện Phương Thư

3. BÀN VỀ LỊCH VẠN NIÊN

Đây là cuốn sách hay của Tân Việt - Thiều Phong

3 cuốn trên đủ để bạn nghiên cứu cả mấy năm thậm chí là cả đời rùi. Ngoài ra mời bạn tham khảo:

4. TÀI LIỆU XEM NGÀY TỐT KHÁC



Xem nhiều hơn vui lòng vào mục: Sách

Còn đây là một sản phẩm của sự nghiên cứu về thuật xem ngày tháng, nó như một phần mềm chạy trên lập trình VBA của excel. Mời tham khảo và góp ý:



Thân ái!

Blog Trần Tứ Liêm

Bạn nào muốn xem ngày miến phí để lại tin nhắn: Xem ngày miễn phí
Xem tiếp…

LỊCH VẠN NIÊN TTL-EXCEL

19:22 |

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ạy trên máy tính)


Link dự phòng: 
http://chuyennha.today/wp-content/uploads/2016/06/LICH-VAN-NIEN-EXCEL-V1.2-1.xls

Link dự phòng 2:
Lịch vạn sự 2017

(Đã chỉnh sử và cập nhật lại ngày 23/6/2016)

Tải file hướng dẫn

http://chuyennha.today/wp-content/uploads/2016/06/HUONG-DAN-SD-LICH-VAN-NIEN.pdf



Bản đồ sao được nhúng vào lịch
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: 

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, 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


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)

End Function

Function NewMoon(ByVal k As Long) As Double
    Dim T As Double, T2 As Double, T3 As Double, dr As Double
    Dim Jd1 As Double, M As Double, Mpr As Double
    Dim F As Double, C1 As Double, deltat As Double, JdNew As Double
    T = k / 1236.85 ' Time in Julian centuries from 1900 January 0.5
   T2 = T * T
    T3 = T2 * T
    dr = PI / 180
    Jd1 = 2415020.75933 + 29.53058868 * k + 0.0001178 * T2 - 0.000000155 * T3
    Jd1 = Jd1 + 0.00033 * Sin((166.56 + 132.87 * T - 0.009173 * T2) * dr)
    M = 359.2242 + 29.10535608 * k - 0.0000333 * T2 - 0.00000347 * T3
    Mpr = 306.0253 + 385.81691806 * k + 0.0107306 * T2 + 0.00001236 * T3
    F = 21.2964 + 390.67050646 * k - 0.0016528 * T2 - 0.00000239 * T3
    C1 = (0.1734 - 0.000393 * T) * Sin(M * dr) + 0.0021 * Sin(2 * dr * M)
    C1 = C1 - 0.4068 * Sin(Mpr * dr) + 0.0161 * Sin(dr * 2 * Mpr)
    C1 = C1 - 0.0004 * Sin(dr * 3 * Mpr)
    C1 = C1 + 0.0104 * Sin(dr * 2 * F) - 0.0051 * Sin(dr * (M + Mpr))
    C1 = C1 - 0.0074 * Sin(dr * (M - Mpr)) + 0.0004 * Sin(dr * (2 * F + M))
    C1 = C1 - 0.0004 * Sin(dr * (2 * F - M)) - 0.0006 * Sin(dr * (2 * F + Mpr))
    C1 = C1 + 0.001 * Sin(dr * (2 * F - Mpr)) + 0.0005 * Sin(dr * (2 * Mpr + M))
    If (T < -11) Then
        deltat = 0.001 + 0.000839 * T + 0.0002261 * T2 _
                - 0.00000845 * T3 - 0.000000081 * T * T3
    Else
        deltat = -0.000278 + 0.000265 * T + 0.000262 * T2
    End If
    JdNew = Jd1 + C1 - deltat
    NewMoon = JdNew
End Function

Function SunLongitude(ByVal jdn As Double) As Double
    Dim T As Double, T2 As Double, dr As Double, M As Double
    Dim L0 As Double, DL As Double, L As Double
    T = (jdn - 2451545) / 36525
        ' Time in Julian centuries from 2000-01-01 12:00:00 GMT
   T2 = T * T
    dr = PI / 180 ' degree to radian
   M = 357.5291 + 35999.0503 * T - 0.0001559 * T2 - 0.00000048 * T * T2
    L0 = 280.46645 + 36000.76983 * T + 0.0003032 * T2
    DL = (1.9146 - 0.004817 * T - 0.000014 * T2) * Sin(dr * M)
    DL = DL + (0.019993 - 0.000101 * T) * Sin(dr * 2 * M) _
        + 0.00029 * Sin(dr * 3 * M)
    L = L0 + DL ' true longitude, degree
   L = L * dr
    L = L - PI * 2 * (Fix(L / (PI * 2))) ' Normalize to (0, 2*PI)
   SunLongitude = L
End Function

Function getSunLongitude(ByVal dayNumber As Double, ByVal timeZone As Byte) As Long
    getSunLongitude = Fix(SunLongitude(dayNumber - 0.5 - timeZone / 24) / PI * 6)
End Function

Function getNewMoonDay(ByVal k As Long, ByVal timeZone As Long) As Long
    getNewMoonDay = Fix(NewMoon(k) + 0.5 + timeZone / 24)
End Function

Function getLunarMonth11(ByVal yy As Long, ByVal timeZone As Long) As Long
    Dim k As Long, off As Double, nm As Long, sunLong As Double
    off = jdFromDate(31, 12, yy) - 2415021
    k = Fix(off / 29.530588853)
    nm = getNewMoonDay(k, timeZone)
    sunLong = getSunLongitude(nm, timeZone) ' sun longitude at local midnight
   If (sunLong >= 9) Then
        nm = getNewMoonDay(k - 1, timeZone)
    End If
    getLunarMonth11 = nm
End Function


Function getLeapMonthOffset(ByVal a11 As Double, ByVal timeZone As Long) As Long
    Dim k As Long, last As Long, Arc As Long, I As Long
    k = Fix((a11 - 2415021.07699869) / 29.530588853 + 0.5)
    last = 0
    I = 1 ' We start with the month following lunar month 11
   Arc = getSunLongitude(getNewMoonDay(k + I, timeZone), timeZone)
    Do
        last = Arc
        I = I + 1
        Arc = getSunLongitude(getNewMoonDay(k + I, timeZone), timeZone)
    Loop While (Arc <> last And I < 14)
    getLeapMonthOffset = I - 1
End Function


Public Function KinhDoMatTroi(gio, phut, dd, mm, yy)
'tinh kinh ?o mat troi
Dim PI, a, y, M, T, jdn, L0, jd, c, theta, lambda
PI = 4 * Atn(1)
a = Int((14 - mm) / 12)
y = yy + 4800 - a
M = mm + 12 * a - 3
    jdn = dd + Int(((153 * M) + 2) / 5) + 365 * y + Int(y / 4) - Int(y / 100) + Int(y / 400) - 32045
    If jdn < 2299161 Then jdn = dd + Int((153 * M + 2) / 5) + 365 * y + Int(y / 4) - 32083
    jd = jdn + ((gio - 12) / 24) + (phut / 1440) - 7 / 24


T = (jd - 2451545#) / 36525
L0 = 280.46645 + 36000.76983 * T + 0.0003032 * T * T
M = (357.5291 + 35999.0503 * T - 0.0001559 * T * T - 0.00000048 * T * T * T) * PI / 180
c = ((1.9146 - 0.004817 * T - 0.000014 * T * T) * Sin(M)) + (0.01993 - 0.000101 * T) * Sin(2 * M) + 0.00029 * Sin(3 * M)
theta = L0 + c
lambda = theta - 0.00569 - 0.00478 * Sin((125.04 - 1934.136 * T) * PI / 180)
lambda = lambda - 360 * Int(lambda / 360)
KinhDoMatTroi = lambda

End Function













Function convertSolar2Lunar(dd, mm, yy, timeZone)

'Doi ngày duong dd/mm/yyyy ra ngày âm

Dim k, dayNumber, monthStart, a11, b11, lunarDay, lunarMonth, lunarYear, lunarLeap, diff, leapMonthDiff
dayNumber = jdFromDate(dd, mm, yy)
k = Int((dayNumber - 2415021.07699869) / 29.530588853)
monthStart = getNewMoonDay(k + 1, timeZone)
If monthStart > dayNumber Then monthStart = getNewMoonDay(k, timeZone)
a11 = getLunarMonth11(yy, timeZone)
b11 = a11

If a11 >= monthStart Then
    lunarYear = yy
    a11 = getLunarMonth11(yy - 1, timeZone)
 Else
    lunarYear = yy + 1
    b11 = getLunarMonth11(yy + 1, timeZone)
End If
lunarDay = dayNumber - monthStart + 1
diff = Int((monthStart - a11) / 29)
lunarLeap = 0
lunarMonth = diff + 11
If (b11 - a11) > 365 Then
    leapMonthDiff = getLeapMonthOffset(a11, timeZone)
    If diff >= leapMonthDiff Then
        lunarMonth = diff + 10
        If diff = leapMonthDiff Then lunarLeap = 1
    End If
End If
If lunarMonth > 12 Then lunarMonth = lunarMonth - 12

If (lunarMonth >= 11 And diff < 4) Then lunarYear = lunarYear - 1
 
convertSolar2Lunar = lunarDay & "/" & lunarMonth & "/" & lunarYear

End Function

Function THANGNODU(dd, mm, yy, timeZone)

'THANG NO DU

Dim k, dayNumber, monthStart, a11, b11, lunarDay, lunarMonth, lunarYear, lunarLeap, diff, leapMonthDiff
dayNumber = jdFromDate(dd, mm, yy)
k = Int((dayNumber - 2415021.07699869) / 29.530588853)
monthStart = getNewMoonDay(k + 1, timeZone)
If monthStart > dayNumber Then monthStart = getNewMoonDay(k, timeZone)
a11 = getLunarMonth11(yy, timeZone)
b11 = a11

If a11 >= monthStart Then
    lunarYear = yy
    a11 = getLunarMonth11(yy - 1, timeZone)
 Else
    lunarYear = yy + 1
    b11 = getLunarMonth11(yy + 1, timeZone)
End If
lunarDay = dayNumber - monthStart + 1
diff = Int((monthStart - a11) / 29)
lunarLeap = 0
lunarMonth = diff + 11
If (b11 - a11) > 365 Then
    leapMonthDiff = getLeapMonthOffset(a11, timeZone)
    If diff >= leapMonthDiff Then
        lunarMonth = diff + 10
        If diff = leapMonthDiff Then lunarLeap = 1
    End If
End If
If lunarMonth > 12 Then lunarMonth = lunarMonth - 12

If (lunarMonth >= 11 And diff < 4) Then lunarYear = lunarYear - 1
 
THANGNODU = getNewMoonDay(k + 1, timeZone) - getNewMoonDay(k, timeZone)

End Function

Function THANGNHUAN(dd, mm, yy, timeZone)

'THANG NHUAN

Dim k, dayNumber, monthStart, a11, b11, lunarDay, lunarMonth, lunarYear, lunarLeap, diff, leapMonthDiff
dayNumber = jdFromDate(dd, mm, yy)
k = Int((dayNumber - 2415021.07699869) / 29.530588853)
monthStart = getNewMoonDay(k + 1, timeZone)
If monthStart > dayNumber Then monthStart = getNewMoonDay(k, timeZone)
a11 = getLunarMonth11(yy, timeZone)
b11 = a11

If a11 >= monthStart Then
    lunarYear = yy
    a11 = getLunarMonth11(yy - 1, timeZone)
 Else
    lunarYear = yy + 1
    b11 = getLunarMonth11(yy + 1, timeZone)
End If
lunarDay = dayNumber - monthStart + 1
diff = Int((monthStart - a11) / 29)
lunarLeap = 0
lunarMonth = diff + 11
If (b11 - a11) > 365 Then
    leapMonthDiff = getLeapMonthOffset(a11, timeZone)

    THANGNHUAN = (leapMonthDiff + 10) Mod 12
End If

 


End Function






Function convertLunar2Solar(lunarDay, lunarMonth, lunarYear, lunarLeap, timeZone)

'Doi âm lich ra duong lich

Dim k, a11, b11, off, leapOff, leapMonth, monthStart
If (lunarMonth < 11) Then
    a11 = getLunarMonth11(lunarYear - 1, timeZone)
    b11 = getLunarMonth11(lunarYear, timeZone)
 Else
    a11 = getLunarMonth11(lunarYear, timeZone)
    b11 = getLunarMonth11(lunarYear + 1, timeZone)
End If
off = lunarMonth - 11
If (off < 0) Then off = off + 12

If (b11 - a11 > 365) Then
    leapOff = getLeapMonthOffset(a11, timeZone)
    leapMonth = leapOff - 2
    If (leapMonth < 0) Then leapMonth = leapMonth + 12
 
    If (lunarLeap <> 0 And lunarMonth <> leapMonth) Then
        convertLunar2Solar = Array(0, 0, 0)
    Else
        If (lunarLeap <> 0 Or off >= leapOff) Then off = off + 1
    End If
End If
k = Int(0.5 + (a11 - 2415021.07699869) / 29.530588853)
monthStart = getNewMoonDay(k + off, timeZone)
convertLunar2Solar = jdToDate(monthStart + lunarDay - 1)

End Function


Function Ngay(dd, mm, yy, timeZone)

'Doi ngày duong dd/mm/yyyy ra ngày âm: Ngay

Dim k, dayNumber, monthStart, a11, b11, lunarDay, lunarMonth, lunarYear, lunarLeap, diff, leapMonthDiff
dayNumber = jdFromDate(dd, mm, yy)
k = Int((dayNumber - 2415021.07699869) / 29.530588853)
monthStart = getNewMoonDay(k + 1, timeZone)
If monthStart > dayNumber Then monthStart = getNewMoonDay(k, timeZone)
a11 = getLunarMonth11(yy, timeZone)
b11 = a11

If a11 >= monthStart Then
    lunarYear = yy
    a11 = getLunarMonth11(yy - 1, timeZone)
 Else
    lunarYear = yy + 1
    b11 = getLunarMonth11(yy + 1, timeZone)
End If
lunarDay = dayNumber - monthStart + 1
diff = Int((monthStart - a11) / 29)
lunarLeap = 0
lunarMonth = diff + 11
If (b11 - a11) > 365 Then
    leapMonthDiff = getLeapMonthOffset(a11, timeZone)
    If diff >= leapMonthDiff Then
        lunarMonth = diff + 10
        If diff = leapMonthDiff Then lunarLeap = 1
    End If
End If
If lunarMonth > 12 Then lunarMonth = lunarMonth - 12

If (lunarMonth >= 11 And diff < 4) Then lunarYear = lunarYear - 1
 
Ngay = lunarDay
End Function
Function Thang(dd, mm, yy, timeZone)

'Doi ngày duong dd/mm/yyyy ra ngày âm: Thang

Dim k, dayNumber, monthStart, a11, b11, lunarDay, lunarMonth, lunarYear, lunarLeap, diff, leapMonthDiff
dayNumber = jdFromDate(dd, mm, yy)
k = Int((dayNumber - 2415021.07699869) / 29.530588853)
monthStart = getNewMoonDay(k + 1, timeZone)
If monthStart > dayNumber Then monthStart = getNewMoonDay(k, timeZone)
a11 = getLunarMonth11(yy, timeZone)
b11 = a11

If a11 >= monthStart Then
    lunarYear = yy
    a11 = getLunarMonth11(yy - 1, timeZone)
 Else
    lunarYear = yy + 1
    b11 = getLunarMonth11(yy + 1, timeZone)
End If
lunarDay = dayNumber - monthStart + 1
diff = Int((monthStart - a11) / 29)
lunarLeap = 0
lunarMonth = diff + 11
If (b11 - a11) > 365 Then
    leapMonthDiff = getLeapMonthOffset(a11, timeZone)
    If diff >= leapMonthDiff Then
        lunarMonth = diff + 10
        If diff = leapMonthDiff Then lunarLeap = 1
    End If
End If
If lunarMonth > 12 Then lunarMonth = lunarMonth - 12

If (lunarMonth >= 11 And diff < 4) Then lunarYear = lunarYear - 1
 
Thang = lunarMonth

End Function

Function Nam(dd, mm, yy, timeZone)

'Doi ngày duong dd/mm/yyyy ra ngày âm

Dim k, dayNumber, monthStart, a11, b11, lunarDay, lunarMonth, lunarYear, lunarLeap, diff, leapMonthDiff
dayNumber = jdFromDate(dd, mm, yy)
k = Int((dayNumber - 2415021.07699869) / 29.530588853)
monthStart = getNewMoonDay(k + 1, timeZone)
If monthStart > dayNumber Then monthStart = getNewMoonDay(k, timeZone)
a11 = getLunarMonth11(yy, timeZone)
b11 = a11

If a11 >= monthStart Then
    lunarYear = yy
    a11 = getLunarMonth11(yy - 1, timeZone)
 Else
    lunarYear = yy + 1
    b11 = getLunarMonth11(yy + 1, timeZone)
End If
lunarDay = dayNumber - monthStart + 1
diff = Int((monthStart - a11) / 29)
lunarLeap = 0
lunarMonth = diff + 11
If (b11 - a11) > 365 Then
    leapMonthDiff = getLeapMonthOffset(a11, timeZone)
    If diff >= leapMonthDiff Then
        lunarMonth = diff + 10
        If diff = leapMonthDiff Then lunarLeap = 1
    End If
End If
If lunarMonth > 12 Then lunarMonth = lunarMonth - 12

If (lunarMonth >= 11 And diff < 4) Then lunarYear = lunarYear - 1
 
Nam = lunarYear

End Function

Function Duongcongkynhat(dd, mm, yy, timeZone)

'Doi ngày duong dd/mm/yyyy ra ngày âm

Dim k, dayNumber, monthStart, a11, b11, lunarDay, lunarMonth, lunarYear, lunarLeap, NgayAm, diff, leapMonthDiff
dayNumber = jdFromDate(dd, mm, yy)
k = Int((dayNumber - 2415021.07699869) / 29.530588853)
monthStart = getNewMoonDay(k + 1, timeZone)
If monthStart >= dayNumber Then monthStart = getNewMoonDay(k, timeZone)
a11 = getLunarMonth11(yy, timeZone)
b11 = a11

If a11 >= monthStart Then
    lunarYear = yy
    a11 = getLunarMonth11(yy - 1, timeZone)
 Else
    lunarYear = yy + 1
    b11 = getLunarMonth11(yy + 1, timeZone)
End If
lunarDay = dayNumber - monthStart + 1
diff = Int((monthStart - a11) / 29)
lunarLeap = 0
lunarMonth = diff + 11
If (b11 - a11) > 365 Then
    leapMonthDiff = getLeapMonthOffset(a11, timeZone)
    If diff >= leapMonthDiff Then
        lunarMonth = diff + 10
        If diff = leapMonthDiff Then lunarLeap = 1
    End If
End If
If lunarMonth > 12 Then lunarMonth = lunarMonth - 12

If (lunarMonth >= 11 And diff < 4) Then lunarYear = lunarYear - 1
 
NgayAm = lunarDay & "/" & lunarMonth
Duongcongkynhat = ""

If NgayAm = "13/1" Or NgayAm = "11/2" Or NgayAm = "9/3" Or NgayAm = "7/4" Or NgayAm = "5/5" Or NgayAm = "3/6" Or NgayAm = "8/7" Or NgayAm = "29/7" Or NgayAm = "27/8" Or NgayAm = "25/9" Or NgayAm = "23/10" Or NgayAm = "21/11" Or NgayAm = "19/12" Then Duongcongkynhat = 1

End Function

Function TamNuongSat(dd, mm, yy, timeZone)

'Kiem tra ngay dd/mm/yyyy có phai ngay Tam Nuong Sat

Dim k, dayNumber, monthStart, a11, b11, lunarDay, lunarMonth, lunarYear, lunarLeap, TamNuong, diff, leapMonthDiff
dayNumber = jdFromDate(dd, mm, yy)
k = Int((dayNumber - 2415021.07699869) / 29.530588853)
monthStart = getNewMoonDay(k + 1, timeZone)
If monthStart >= dayNumber Then monthStart = getNewMoonDay(k, timeZone)
a11 = getLunarMonth11(yy, timeZone)
b11 = a11

If a11 >= monthStart Then
    lunarYear = yy
    a11 = getLunarMonth11(yy - 1, timeZone)
 Else
    lunarYear = yy + 1
    b11 = getLunarMonth11(yy + 1, timeZone)
End If
lunarDay = dayNumber - monthStart + 1
diff = Int((monthStart - a11) / 29)
lunarLeap = 0
lunarMonth = diff + 11
If (b11 - a11) > 365 Then
    leapMonthDiff = getLeapMonthOffset(a11, timeZone)
    If diff >= leapMonthDiff Then
        lunarMonth = diff + 10
        If diff = leapMonthDiff Then lunarLeap = 1
    End If
End If
If lunarMonth > 12 Then lunarMonth = lunarMonth - 12

If (lunarMonth >= 11 And diff < 4) Then lunarYear = lunarYear - 1
 

TamNuongSat = ""

If lunarDay = 2 Or lunarDay = 7 Or lunarDay = 13 Or lunarDay = 18 Or lunarDay = 22 Or lunarDay = 27 Then TamNuongSat = 1

End Function

Function NgayNguyetKy(dd, mm, yy, timeZone)

'Kiem tra ngay dd/mm/yyyy có phai ngay Nguyet Ky

Dim k, dayNumber, monthStart, a11, b11, lunarDay, lunarMonth, lunarYear, lunarLeap, TamNuong, diff, leapMonthDiff
dayNumber = jdFromDate(dd, mm, yy)
k = Int((dayNumber - 2415021.07699869) / 29.530588853)
monthStart = getNewMoonDay(k + 1, timeZone)
If monthStart >= dayNumber Then monthStart = getNewMoonDay(k, timeZone)
a11 = getLunarMonth11(yy, timeZone)
b11 = a11

If a11 >= monthStart Then
    lunarYear = yy
    a11 = getLunarMonth11(yy - 1, timeZone)
 Else
    lunarYear = yy + 1
    b11 = getLunarMonth11(yy + 1, timeZone)
End If
lunarDay = dayNumber - monthStart + 1
diff = Int((monthStart - a11) / 29)
lunarLeap = 0
lunarMonth = diff + 11
If (b11 - a11) > 365 Then
    leapMonthDiff = getLeapMonthOffset(a11, timeZone)
    If diff >= leapMonthDiff Then
        lunarMonth = diff + 10
        If diff = leapMonthDiff Then lunarLeap = 1
    End If
End If
If lunarMonth > 12 Then lunarMonth = lunarMonth - 12

If (lunarMonth >= 11 And diff < 4) Then lunarYear = lunarYear - 1
 

NgayNguyetKy = ""

If lunarDay = 5 Or lunarDay = 14 Or lunarDay = 23 Then NgayNguyetKy = 1

End Function
NIÊN | LỊCH VẠN NIÊN | LICH VẠN NIÊN 2013
Xem tiếp…

SÁCH PHONG THUỶ BẰNG TIẾNG ANH

03:18 |
CUỐN SÁCH HAY VỀ PHONG THUỶ BẰNG TIẾNG ANH


THE COMPLETE IDIOT’S GUIDE TO

Feng Shui
Second Edition
Tác giả: Elizabeth Moran, Master Joseph Yu, and Master Val Biktashev

THE COMPLETE IDIOT’S GUIDE TO Feng Shui Second Edition
Sách phong thuỷ bằng tiếng anh

Xem tiếp…

SÁCH PHONG THUỶ TOÀN THƯ

23:56 |

SÁCH PHONG THUỶ TOÀN THƯ

Tác giả: Thiệu Vỹ Hoa
Dịch: Đại đức Thích Minh Nghiêm
Nhà Xuất Bản Thời Đại

SÁCH PHONG THUỶ TOÀN THƯ
Xem tiếp…

LA BÀN PHONG THUỶ - Trình Kiến Quân

23:32 |

SÁCH LA BÀN PHONG THUỶ

Tác giả: Trình Kiến Quân
Nhà Xuất Bản Hà Nội
SÁCH LA BÀN PHONG THUỶ
Xem tiếp…

Mượn Đao Giết Người - Kế thứ 3

10:06 |

Kế thứ 3 trong 36 kế sách: 

Mượn Đao Giết Người

Bạn còn nhớ vụ án "LỆ CHI VIÊN" (vụ án vườn vải) đang đầy tranh cải bởi nhiều nhà nghiên cứu lịch sử. Trong vụ án này liệu có ai đã dùng kế "Mượn đao giết người" khủng kiếp này? Nạn nhân là: Lê Thái Tôngtru di tam tộc (giết 3 họ) Nguyễn TrãiNguyễn Thị Lộ (thiếp của Nguyễn Trãi).

Một số ý kiến cho rằng người thiếp của vua Lê Thái TôngNguyễn Thị Anh đã mượn Nguyễn Thị Lộ và hoàn cảnh thực hiện âm ưu cướp ngôi cho vua cho con riêng. TTL không sâu sắc về lịch sử nhưng bạn có thể xem qua vụ án Lê Chi Viên tại trang Wikipedia : https://vi.wikipedia.org/wiki/V%E1%BB%A5_%C3%A1n_L%E1%BB%87_Chi_Vi%C3%AAn 

Mời độc giả nghiên cứu nội dung và diễn giải của kế này theo sách "Thuật Đấu Trí"



Xem tiếp…

HÀNH TRÌNH VỀ PHƯƠNG ĐÔNG

00:04 |
Hôm trước được gặp một bậc thầy ở lĩnh vực lĩnh vực Phong Thủy Tâm Linh và củng là một nhà khoa học được phong tặng học hàm, đã từng là hiệu trưởng của một trường Đại học danh tiếng. Trong buổi nói chuyện Bác đã hỏi mình "Liêm đã đọc cuốn Hành Trình Về Phương Đông chưa?".

Mình trả lời thật "Cháu đã nghe tên nhưng chưa đọc bao giờ".

Thế là Bác ấy giới thiệu về cuốn sách, mình nghe là ngiền luôn rồi. Bác giới thiệu về nội dung và tác giả, dịch giả của cuốn sách, nhưng phần gây ấn tượng nhất đó là Dịch Giả. Dịch Giả đó là Nguyên Phong, người ấy đên nay không biết đó là ai, mà dịch hay như vậy. Người đời đang đi tìm mà chưa tìm được và cuốn sách lại được dịch ngược lại từ tiếng Việt thành tiếng Anh.

Xin nói thêm là cuốn sách này xuất bản năm 1924 nhé bạn, lúc đó Việt Nam thế nào?


Nếu bạn muốn tìm hiểu ban đầu về cuốn sách này, vui lòng nghe lời giới thiệu từ Video này:

Xem tiếp…

Bộ Gia Phả Họ Trần Đăng soạn thảo và hoàn thành tháng 7-2015

17:10 |
Đây là một dự án làm việc vất vả và mất rất nhiều thời gian của Đồng tộc, các soạn giả. Đặc biệt là Cha của mình, ghi chép và tập hợp mang tính chất ban đầu và ghi chép hoàn toàn bằng tay.

Còn mình thì mất gần một năm mới hoàn thành từ các dữ liệu của Cha và các bản viết tay gửi!

  • Lấy cái thành kính với Tổ tiên cội nguồn làm động lực
  • Lấy cái Hỷ - Hạnh cho con cháu hôm nay và mai sau mà chép lời son sắt
  • Lấy cái Tâm mà cần mẫn lập thành
 Hình chụp Gia phả trước khi giao về cho Họ
 Hình chụp Gia phả họ trần trước khi giao về cho Họ
Xem tiếp…

HỌC THUYẾT ÂM DƯƠNG TRONG Y HỌC CỔ TRUYỀN

10:08 |
TTL Blog Mời các bạn tham khảo học thuyết âm dương sâu sắc thể hiện ở trong Y Học, Học thuyết âm dương được sử dụng để chuẩn đoán bệnh và điều trị rất khoa học.

Dưới đây là hình chụp trong bộ sách : Bách Khoa Y Học - Y học cổ truyền của Lê Đình Sáng. các bạn có thể tải sách này ở đây hoặc tải toàn bộ Bách Khoa Y Học ở đây.

Chúc các bạn thành công!

Xem tiếp…

ĐỀ NGHỊ THỐNG NHẤT CHỮ VẠN TRONG PHẬT GIÁO

15:25 |
ĐỀ NGHỊ THỐNG NHẤT CHỮ VẠN TRONG PHẬT GIÁO
Tác giả: Cư sĩ Tâm Minh Ngô Tằng Giao
Link xem và tải về:
 https://drive.google.com/file/d/0BxcCkMKXzznONXkwZjR0dTJucDA/view?pli=1



Xem tiếp…

CHIẾC VÒNG CỦA MẸ

14:42 |
CHIẾC VÒNG CỦA MẸ
Tác giả: Cư sĩ Tâm Minh Ngô Tằng Giao
Link xem và tải về:
 https://drive.google.com/file/d/0BxcCkMKXzznOU1ZFUmhwMml2c28/view?pli=1



Lời nói thêm:

TTL Blog đã đọc "Chiếc Vòng Của Mẹ" và hoàn toàn xúc động, như là một câu chuyện cổ tích đầy tính nhân văn. Blog TTL không làm Giáo dục nhưng yêu thích và tôn trọng Thầy Giáo, Cô Giáo biết thắp lửa và sưởi ấm cho thế hệ trẻ!


Các bài viết khác do Cư sĩ Tâm Minh Ngô Tằng Giao gửi bài:

Truyện thơ Phật
Tượng Phật mang an lạc cho xóm làng OAKLAND
Chân Lý Trong Hận Thù
Chiếc vòng của mẹ
Đề nghị thống nhất chữ "Vạn" trong Phật Giáo
Xem tiếp…

CHÂN LÝ TRONG HẬN THÙ

14:27 |
CHÂN LÝ TRONG HẬN THÙ
Tác giả: Cư sĩ Tâm Minh Ngô Tằng Giao
Link xem và tải về:
 https://drive.google.com/file/d/0BxcCkMKXzznOTlRSTlRsbldTZTQ/view?pli=1



Xem tiếp…

TƯỢNG PHẬT MANG AN LẠC CHO XÓM LÀNG OAKLAND

08:40 |
TƯỢNG PHẬT MANG AN LẠC CHO XÓM LÀNG OAKLAND
Tác giả: Cư sĩ Tâm Minh Ngô Tằng Giao
Link xem và Tải về:
https://drive.google.com/file/d/0BxcCkMKXzznOU3RVYXRMNnZJd3M/



Xem tiếp…

VÂY NGỤY CỨU TRIỆU - Kế thứ 2

23:11 |
VÂY NGỤY CỨU TRIỆU
Kế thứ 2

Đây là kế sách thứ hai trong 36 kế của cổ nhân Trung Quốc, áp dụng nó trong Binh pháp. Ngày nay, kế "Vây Ngụy Cứu Triệu" còn vận dụng trong Kinh Tế và Chính trị và cả ở đời thường.



Hình được chụp trong cuốn Thuật Đấu Trí Châu Á

Xem tiếp…

DỐI TRỜI QUA BIỂN - Kế thứ nhất

13:43 |
DỐI TRỜI QUA BIỂN
Kế thứ nhất của 36 Kế
(Tam Thập Lục Kế)



Xem tiếp…

5 Bí Quyết Thành Công - Trong Tôn Tử Binh Pháp

12:30 |
Bạn độc giả đã bao giờ đọc Tôn Tử Binh Pháp chưa?
Bạn đã bao giờ đọc các bài viết về Bí Quyết Thành Công chưa?

Cái mình sắp giới thiệu ở đây phải gọi đúng hơn là "Năm Yếu Tố Hòa Hợp Khi Hoạch Định Chiến Lược". Đây là một phần trong cuốn sách "Thuật Đấu Trí Châu Á" của  Chin-Ninh-Chu thuộc phần "Tôn Tử Binh Pháp".

Tại sao mình giới thiệu cái này? 

Chắc mình không diễn giải được, bạn hãy đọc các trang mình Scan và cảm nhận nhé!

5 yếu tố của chiến lược Trong Tôn Tử Binh Pháp

  1. Chính nghĩa
  2. Thời cơ
  3. Địa thế
  4. Sự lãnh đạo
  5. Tổ chức và kỹ luật


Xem tiếp…

Sách Ngọc Hạp Toản Yếu Thông Dụng

13:34 |
Sách Ngọc Hạp Toản Yếu Thông Dụng
Tên sách
玉匣攢要通用
Ngọc hạp toản yếu thông dụng
Nơi xuất bản
Phúc Văn Đường tàng bản
Năm xuất bản
保大元年
Bảo Đại nguyên niên
1926
Số trang
73
Kiểu tài liệu
Khắc in
Tóm tắt
“Cách xem tuổi, xem ngày, xem vận niên, xem sao, xem ngũ hành, bói thẻ…để đoán biết việc tốt, xấu, sống lâu hay chết yểu, ngày nào nên đi buôn, ngày nào nên xuất quân, ngày nào nên cưới xin…”
Nguồn: Viện nghiên cứu Hán Nôm, Học viện Viễn Đông Bác Cổ Pháp. Di sản Hán Nôm Việt Nam thư mục đề yếu tập 3. Hà Nội: Nhà xuất bản Khoa học xã hội, 1993: trang 835.

1

Xem tiếp…

SÁCH THUẬT ĐẤU TRÍ CHÂU Á

04:51 |
Đây là những phân tích, giải mã bí ẩn của văn hóa kinh doanh phương Đông, cũng là những chỉ dẫn mang tính “sống còn” cho người phương Tây khi kinh doanh ở châu Á. 





Tác giả: Chin-Ning Chu
Người dịch: Phan Thị Mai Phương
Nhà xuất bản: Đà Nẵng 2009
Sách có 303 trang

Xem tiếp…

TÔN TỬ BINH PHÁP

04:15 |

TÔN TỬ BINH PHÁP

Tôn Tử Binh Pháp - Tôn Vũ

Xem tiếp…

Blog TTL VỚI THỜI GIAN

Breaking News

LIÊN HỆ QUẢNG CÁO

mua backlink blogspot