TỬ VI TUỔI ĐINH HợI 2007 NĂM 2020 ( Canh Tý )

Xem Tử Vi Tuổi Đinh Hợi 2007 Năm 2020 Nam Mạng, Nữ Mạng, được phân tích chi tiết dựa trên cơ sở sao chiếu hạn và một phần của khoa tử vi để xét đoán các vấn đề hạn tốt xấu tuổi Đinh Hợi 2007. Công danh sự nghiệp, tiền bạc tài chính, tình cảm hạnh phúc, sức khỏe bệnh tật và cuộc sống ...
TỬ VI TUỔI ĐINH HợI 2007 NĂM 2020


Tử Vi Tuổi 2007 Năm 2020 Nam Mạng được trình bày trước, Nữ mạng được trình bày ở phía sau.

Tử Vi Tuổi Đinh Hợi 2007 Năm 2020 - Nam Mạng


(Nữ Mạng vui lòng xem bên dưới)

Quý Anh sinh năm 2007 tuổi Đinh Hợi xét trên góc độ tử vi năm 2020 như sau:

Đinh Hợi 14 tuổi - Âm Nam

Mạng Đât trên mái nhà

Con nhà: Huỳnh Đế

Sao Chiếu Mạng: Thái dương


Sao Thái dương là sao Tốt nên thường chiêu mộ được các cát tinh, có nhiều may mắn trong năm

Sao Thái Dương : Thái dương tinh (măt trời) tốt vào tháng sáu, tháng mười, nhưng không hợp nữ giới. Chủ về an khang thịnh vượng, nam giới gặp nhiều tin vui, tài lộc còn nữ giới lại thường gặp tai ách.

Sao Thái Dương là tinh quân Tốt nhất trong các Sao Hạn như Rồng lên mây, chiếu mệnh tháng 6, tháng 10, lộc đến túi đầy tiền vô. Mệnh ai chịu ảnh hưởng của sao này, đi làm ăn xa gặp nhiều may mắn, tài lộc hưng vượng, phát đạt.

Mỗi tháng cúng ngày 27 âm lịch, khi cúng phải có bài vị màu vàng, được viết như sau : “Nhật Cung Thái Dương Thiên Tử Tinh Quân”. Thắp 12 ngọn đèn, lạy 12 lạy về hướng ĐÔNG mà cúng. Làm lễ lúc 21 tới 23 giờ.
Xem tiếp…

TỬ VI TUỔI ĐINH HỢI 2007 NĂM 2021 ( Tân Sửu )

Xem Tử Vi Tuổi Đinh Hợi 2007 Năm 2021 Nam Mạng, Nữ Mạng, được phân tích chi tiết dựa trên cơ sở sao chiếu hạn và một phần của khoa tử vi để xét đoán các vấn đề hạn tốt xấu. Công danh sự nghiệp, tiền bạc tài chính, tình cảm hạnh phúc, sức khỏe bệnh tật và cuộc sống ...

    Tử Vi Tuổi 2007 Năm 2021 Nam Mạng được trình bày trước, Nữ mạng được trình bày ở phía sau.

    Tử Vi Tuổi Đinh Hợi 2007 Năm 2021 - Nam Mạng


    (Nữ Mạng vui lòng xem bên dưới)

    Quý Anh sinh năm 2007 tuổi Đinh Hợi xét trên góc độ tử vi năm 2021 như sau:

    Đinh Hợi 15 tuổi - Âm Nam

    Mạng Đât trên mái nhà

    Con nhà: Huỳnh Đế

    Sao Chiếu Mạng: Vân hớn


    Sao Vân hớn sao này Bình thường, có phần tốt củng có xấu

    Sao Vân Hớn, hoặc Văn Hán (Hỏa tinh) : Tai tinh, chủ về tật ách, xấu vào tháng hai và tháng tám âm lịch. Nam gặp tai hình, phòng thương tật, bị kiện thưa bất lợi; nữ không tốt về thai sản.

    Sao Vân Hớn tức Hỏa Dực Tinh. Một hung tinh, đến năm hạn gặp sao này Nữ giới sinh sản khó, vào tháng 2, tháng 8 xấu, nên đề phòng gặp chuyện quan sự, trong nhà không yên, khó nuôi súc vật.

    Mỗi tháng hoặc tháng 4 và 5 âm lịch cúng ngày 29 âm lịch, viết bài vị màu đỏ : “Nam Phương Bính Đinh Hỏa Đức Tinh Quân”. Thắp 15 ngọn đèn day về hướng Chánh ĐÔNG mà cúng. Lạy 15 lạy. Cúng lúc 21 đến 23 giờ.
    Xem tiếp…

    TỬ VI NĂM 2021 TÂN SỬU CÁC TUỔI

    Đã có các bài viết Tử vi năm 2021 Tân Sửu theo từng tuổi!
    XEM TỬ VI NĂM 2021 TÂN SỬU


    Quý anh chị thân mến, trong những năm qua Blog TTL luôn có các bài viết xem tử vi từng năm, cho từng tuổi. Trước năm 2017 chủ yến là các bài viết từ Tử vi chùa Khánh Anh, Tử vi Thái Ất. Nhưng sau năm 2017 các bài viết do chính tác giả soạn thảo. Đây là một sự nổ lực không hề nhỏ, nhưng vì đam mê.

    Hãy đọc rồi chiêm nghiệm và kiểm chứng, phả hồi khi quay lại nhé! Có thể giúp tôi để lại một nút like dưới mỗi bài viết, hoặc chia sẽ lên facebook, nó sẽ giúp tôi thêm động lực.

    BẢNG BÀI VIẾT XEM TỬ VI NĂM 2021 TÂN SỬU CÁC TUỔI


    2007 NAM NỮ
    2006 NAM NỮ
    2005 NAM NỮ
    2004 NAM NỮ
    2003 NAM NỮ
    2002 NAM NỮ
    2001 NAM NỮ
    2000 NAM NỮ
    1999 NAM NỮ
    1998 NAM NỮ
    1997 NAM NỮ
    1996 NAM NỮ
    1995 NAM NỮ
    1994 NAM NỮ
    1993 NAM NỮ
    1992 NAM NỮ
    1991 NAM NỮ
    1990 NAM NỮ
    1989 NAM NỮ
    1988 NAM NỮ
    1987 NAM NỮ
    1986 NAM NỮ
    1985 NAM NỮ
    1984 NAM NỮ
    1983 NAM NỮ
    1982 NAM NỮ
    1981 NAM NỮ
    1980 NAM NỮ
    1979 NAM NỮ
    1978 NAM NỮ
    1977 NAM NỮ
    1976 NAM NỮ
    1975 NAM NỮ
    1974 NAM NỮ
    1973 NAM NỮ
    1972 NAM NỮ
    1971 NAM NỮ
    1970 NAM NỮ
    1969 NAM NỮ
    1968 NAM NỮ
    1967 NAM NỮ
    1966 NAM NỮ
    1965 NAM NỮ
    1964 NAM NỮ
    1963 NAM NỮ
    1962 NAM NỮ
    1961 NAM NỮ
    1960 NAM NỮ
    1959 NAM NỮ
    1958 NAM NỮ
    1957 NAM NỮ
    1956 NAM NỮ
    1955 NAM NỮ
    1954 NAM NỮ
    1953 NAM NỮ
    1952 NAM NỮ
    1951 NAM NỮ
    1950 NAM NỮ
    1949 NAM NỮ
    1948 NAM NỮ
    1947 NAM NỮ
    1946 NAM NỮ
    1945 NAM NỮ
    1944 NAM NỮ
    1943 NAM NỮ
    1942 NAM NỮ
    1941 NAM NỮ
    1940 NAM NỮ
    1939 NAM NỮ
    1938 NAM NỮ
    1937 NAM NỮ



    TỬ VI NĂM 2020

    Các bài viết TỬ VI 2020 đã được hoàn thành. Hãy chọn tuổi của bạn để xem:

    TỬ VI NĂM 2020 BLOG TRẦN TỨ LIÊM


    TỬ VI NĂM 2019



    Đây là trang chính về TỬ VI của TTL Blog



    xem tử vi năm nay

    Bạn nên xem Tử vi cho biết đừng cả tin quá! làm cuộc sống đảo lộn!

    Xem tiếp…

    TỔNG HỢP BÀI ĐĂNG TRÊN BLOG TRANTULIEM.BLOGSPOT.COM

    Xem tiếp…

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

    Đây là bộ lịch vạn sự soạn thảo công phu, được rất nhiều nhà tuyển trạch sử dụng! Và nó sẽ còn được tiếp tục phát triển. 

    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)
    Nhấn để tải về:



    (Đã chỉnh sửa và cập nhật lại ngày 23/6/2016)
    Có sự góp ý của rất nhiều người dùng
    Bản tiếp theo sẽ có phần an sao tử vi và luận giả lá số thông minh.

    Lịch vạn niên năm 2020




    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

    Thân ái
    Blog Trần Tứ Liêm
    Xem tiếp…

    TỬ VI TUỔI BÍNH TÝ 1936 NĂM 2020 ( Canh Tý )

    Xem Tử Vi Tuổi Bính Tý 1936 Năm 2020 Nam Mạng, Nữ Mạng, được phân tích chi tiết dựa trên cơ sở sao chiếu hạn và một phần của khoa tử vi để xét đoán các vấn đề hạn tốt xấu tuổi Bính Tý 1936. Công danh sự nghiệp, tiền bạc tài chính, tình cảm hạnh phúc, sức khỏe bệnh tật và cuộc sống ...
    TỬ VI TUỔI BÍNH TÝ 1936 NĂM 2020 ( Canh Tý )

    Tử Vi Tuổi 1936 Năm 2020 Nam Mạng được trình bày trước, Nữ mạng được trình bày ở phía sau.

    Tử Vi Tuổi Bính Tý 1936 Năm 2020 - Nam Mạng


    (Nữ Mạng vui lòng xem bên dưới)

    Quý Ông sinh năm 1936 tuổi Bính Tý xét trên góc độ tử vi năm 2020 như sau:

    Bính Tý 85 tuổi - Dương Nam

    Mạng Nước trong lạch

    Con nhà: Hắc Đế

    Sao Chiếu Mạng: Thái bạch


    Sao Thái bạch là sao Xấu, không chiêu mộ được các sao tốt, còn mang tới nhiều rủi ro tai ương, kém may mắn

    Sao Thái Bạch (Kim tinh) : Triều dương tinh, sao này xấu cần giữ gìn trong công việc kinh doanh, có tiểu nhân quấy phá, hao tán tiền của, đề phòng quan sự. Xấu vào tháng năm âm lịch và kỵ màu trắng quanh năm.

    Thái Bạch: Sao Kim Tinh : Lại rất vui cho những người mang mệnh Thuỷ mệnh Kim, vì có quý nhân giúp, nên gặp sao này đi làm ăn xa có tiền tài của cải, trong gia đạo thêm người. Đối với người có mệnh Hỏa hay mệnh Mộc và nữ mạng sẽ gặp bất lợi, đề phòng tiểu nhân mưu hại hay hao tài tốn của, nhất là ở tháng 5 âm lịch .

    Mỗi tháng vào ngày rằm (15 âm lịch) sao Thái Bạch giáng trần, khi cúng viết bài vị màu trắng như sau : “Tây Phương Canh Tân Kim Đức Tinh Quân”. Có thể thay 2 chử Kim Đức bằng 2 chữ Thái Bạch cũng được. Làm lễ cúng lúc 19 – 21 giờ . Thắp 8 ngọn đèn , lạy 8 lạy về hướng chánh TÂY
    Xem tiếp…

    TỬ VI TUỔI ĐINH SửU 1937 NĂM 2020 ( Canh Tý )

    Xem Tử Vi Tuổi Đinh Sửu 1937 Năm 2020 Nam Mạng, Nữ Mạng, được phân tích chi tiết dựa trên cơ sở sao chiếu hạn và một phần của khoa tử vi để xét đoán các vấn đề hạn tốt xấu tuổi Đinh Sửu 1937. Công danh sự nghiệp, tiền bạc tài chính, tình cảm hạnh phúc, sức khỏe bệnh tật và cuộc sống ...
    TỬ VI TUỔI ĐINH SửU 1937 NĂM 2020 ( Canh Tý )

    Tử Vi Tuổi 1937 Năm 2020 Nam Mạng được trình bày trước, Nữ mạng được trình bày ở phía sau.

    Tử Vi Tuổi Đinh Sửu 1937 Năm 2020 - Nam Mạng


    (Nữ Mạng vui lòng xem bên dưới)

    Quý Ông sinh năm 1937 tuổi Đinh Sửu xét trên góc độ tử vi năm 2020 như sau:

    Đinh Sửu 84 tuổi - Âm Nam

    Mạng Nước trong lạch

    Con nhà: Hắc Đế

    Sao Chiếu Mạng: Thủy diệu


    Sao Thủy diệu sao này Bình thường, có phần tốt củng có xấu

    Sao Thủy Diệu (Thủy tinh) : Phước lộc tinh, tốt nhưng cũng kỵ tháng tư và tháng tám. Chủ về tài lộc hỉ. Không nên đi sông biển, giữ gìn lời nói (nhất là nữ giới) nếu không sẽ có tranh cãi, lời tiếng thị phi đàm tiếu.

    Sao Thủy Diệu sao Thủy Tinh, là sao Phúc Lộc tinh. Nữ giới mang mệnh Mộc sẽ rất vui mừng , đi làm ăn xa có lợi về tiền bạc .

    Mỗi tháng hay vào tháng Kỵ tuổi là tháng 4 , 8 âm lịch, nên cúng giải hạn vào ngày 21 âm lịch, sao Thủy Diệu giáng trần. Khi cúng viết bài vị dùng giấy màu đỏ như sau : “Bắc Phương Nhâm Quý Thủy Đức Tinh Quân”. Thắp 7 ngọn đèn , lạy 7 lạy về hướng Chánh Bắc. Cúng làm Lễ lúc 21 đến 23 giờ .
    Xem tiếp…

    TỬ VI NĂM 2020

    TỬ VI NĂM 2021

    QUẢNG CÁO

    THUỐC CHỮA ĐAU LƯNG

    Nếu quý anh chị bị các chứng đau lưng, đau xương, đau khớp, tê mỏi... Hãy thảm khảo loại thuốc đông dược này. Rất tốt, giúp nhiều gười vượt qua chứng đau mỏi, để sống vui khỏe hơn. Chi tiết xem ở đây: THUỐC CHỮA ĐAU LƯNG

    THUỐC ĐAU BAO TỬ ĐỖ THÁI NAM

    Đông y Đỗ Thái Nam nổi tiếng với các thảo dược đông y, trong đó có dạng chữa đau bao tử cực kỳ tốt, mời quý bạn tham khảo: THUỐC ĐAU BAO TỬ ĐỖ THÁI NAM

    CHỮA VIÊM XOANG

    Loại đông dược này đã chữa trị lành cho rất nhiều người bị viêm xoang, viêm mũi, viêm mũi dị ứng... Mời bạn tham khảo chi tiết: THUỐC XOANG ĐỖ THÁI NAM

    HƯỚNG DẪN CHỮA TRỊ VIÊM XOANG
    BÁNH CUỐN CHẢ GIÒ

    Bánh cuốn chả giò ngon

    MẬT MÍA

    Bán mật mía tphcm

    BÀI VIẾT THEO NĂM


    Blogger Trần Tứ Liêm