TẠO MENU NHIỀU CẤP BLOGSPOT ĐẸP (Định dạng Mobi và Desktop)

Gần đây CNTT đã có chia sẻ các bạn bài viết Hướng dẫn tạo Menu thả xuống (Menu Dropdown) nhiều cấp dạng Responsive với CSS3 và tiếp theo về thủ thuật tạo menu dạng Responsive, hôm nay mình chia sẻ thêm một Style menu dropdown nhiều cấp đẹp mắt để các bạn tham khảo.


Menu hiển thị trên desktop khi sổ ngang qua phải
Xem tiếp…

HƯỚNG DẪN CHÈN TỰ ĐỘNG TỪ KHÓA VÀO BÀI VIẾT BLOGSPOT

Chèn từ khóa tự động trong bài viết Blogspot là một phần rất hay và bổ ích. Đặc biệt rất tốt cho SEO. TTL Blog sẽ hướng dẫn bạn thiết lập blog để có các từ khóa tự động nhé!
CHÈN TỪ KHÓA TỰ ĐỘNG VÀO BÀI VIẾT BLOGSPOT GIÚP TĂNG BACKLINK NỘI BỘ
Chèn từ khóa tự động vào bài viết trong blogspot giúp tăng backlink nội bộ, tăng tính SEO rất tốt!

Chèn từ khóa tự động là gì?


Mình sẽ lấy ví dụ cho bạn thật dễ hiểu: bất kì bài viết nào trên blog của mình có từ khóa "TTL BLOG" thì từ khóa đó sẽ được liên kết về trang chủ của mình. Bạn hiểu chứ?
Xem tiếp…

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

Xem tiếp…

NẾU AI HỎI VÌ SAO VIỆT NAM QUÊ HƯƠNG CHÚNG TÔI ĐOÀN KẾT

NẾU AI HỎI VÌ SAO VIỆT NAM CHÚNG TÔI ĐOÀN KẾT CHỐNG COVID 19

Hình gif cờ đỏ sao vàng Việt Nam
Hình gif cờ đỏ sao vàng Việt Nam
Bài viết được cô gái xứ Nghệ thể hiện rất ngọt, trên nền nhạc bài hát Quảng Bình Quê Ta. Rất hay, ý nghĩa, và có nhiều năng lượng. Hãy thưởng thức, Like, Share cùng chung tay chống dịch


Nếu ai hỏi vì sao Việt Nam chúng tôi đoàn kết?
Rằng có đắng cai nên chừ, mới có đồng lòng
Nếu ai hỏi vì sao? Việt Nam chúng tôi tình nghĩa?
Có nhớ những ngày cơ cực, tối tăm ngày xưa.

Việt Nam ơi! Bao mến thương!
Đã cùng chung tay quê ta!
Đã cùng kết đoàn! Từ Hồ Chí Minh! ra tận Thủ Đô
Chung tay chống dịch, nào ta hãy cùng nhau đồng lòng
Theo lời chính phủ nào, bạn thân yêu ơi!
Hãy ở nhà yên đi, không có việc gì

Hãy rửa sạch tay đi, tiếp xúc bên ngoài
Mỗi một người dân chung tay đẩy lùi dịch corona ra khỏi 
Khỏi quê hương ta,Việt Nam quê hương ta
Giữ lấy sức khỏe của nhân nhân ta

Giữ lấy những người mà ta yêu quý!
Việt Nam quê hương ta, mỗi người như một
Đồng lòng chung tay, theo lời Chính Phủ
Hẹn ngày chiến thắng corona, hãy đi thật xa.
Nếu ra ngoài hãy nhớ! Khẩu trang phải đeo vào đấy nhé!

Phòng corona xin đừng chủ quan một lần
Nếu có gặp người quen, cuộn diễn cách ly đấy nhé
Tự giác ta về theo giỏi cách ly tại gia
Bạn thân ơi! Hãy cùng nghĩ suy

Hình ảnh bác sĩ các anh, chiến sĩ đêm ngày
Bảo vệ chúng ta qua khỏi hiểm nguy
Bao nhiêu là câu chuyện chỉ có lời này 
Ta hãy cùng chính phủ quyết dành 
Xem tiếp…

Kỹ niệm ở mái trường Nguyễn Trung Thiên


YÊU VÀ NHỚ LẮM THẦY CÔ BẠN BÈ MÁI TRƯỜNG CẤP BA NGUYỄN TRUNG THIÊN


Một số hình ảnh kỷ niệm về ngôi Trường Nguyễn Trung Thiên:

Vui lòng ấn nút PLAY để nghe 2 bài hát:
NHỮNG DÒNG LƯU NIỆM

Video của khóa anh chị 1987-1990 Nguyễn Trung Thiên
Nhân dịp kỹ niệm 25 năm ngày ra trường
(Bài hát: Những dòng lưu  niệm | thể hiện: Randy)


Hình chụp cuối năm lớp 12 (Liên hoan chia tay năm 2003)
Hình chụp cuối năm lớp 12 (Liên hoan chia tay năm 2003)
Xem tiếp…

TỬ VI 2020 - 2021 - 2022

TỬ VI NĂM 2021 -2020


TTL Blog đang triển khai viết các bài tử vi năm 2021, 2020 đang trong quá trình soạn thảo. Mời quý khách đón đọc! Và theo dõi các bài viết tử vi năm 2020 được soạn thảo khá công phu của tôi bên dưới:

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…

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…

TRUYỆN TRANH TRẠNG QUỲNH ONLINE FULL


TRUYỆN TRANH TRẠNG QUỲNH ONLINE FULL

Lưu ý khi đọc truyện (bạn nhấn nút Ctrl và lăn chuột để phóng to - đọc cho rõ nhé!
Bạn nên mua truyện giấy đọc để ủng hộ tác giá và nhà xuất bạn)

TỔNG HỢP TRUYỆN TRANH TRẠNG QUỶNH FULL

Xem tiếp…

Sách Thông Thư

Sách thông thư triều Nguyễn

SÁCH THÔNG THƯ, SACH THONG THƯ, THÔNG THƯ, THONG THƯ

SÁCH THÔNG THƯ

Xuất bản bởi Phúc Văn Đường tàng bản năm 1926
Là sách khắc in
Gọi tắt là SÁCH THÔNG THƯ TRIỀU NGUYỄN
Đây là cuốn gối đầu giường cho ai hành nghề xem ngày tháng

Bản này được dịch từ bản Ngoc Hạp Toản Yếu Thông Dụng, có nhiều lỗi đánh máy


Tải sách thông thư


DOWNLOAD


Nếu không tải được sách hảy thử lại tại hosting mediafire:
http://www.mediafire.com/download/jc33a27ijciyagh/42_thong_thu.pdf

Nếu bạn đang nghiên cứu về thuật xem ngày, đừng bỏ qua bảng liệt kê các sách này:

BẢNG LIST CÁC SÁCH HAY XEM NGÀY
Xem tiếp…

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

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

Tổng Hợp 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 thuậ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 có thể tải nhiều sách hơn tại mục này: https://trantuliem.blogspot.com/p/tai-lieu.html
Xem tiếp…

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

Giới thiệu bộ sách Bách khoa Y học PDF cho sinh viên và Đồng nghiệp Y nghiên cứu


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.

Sách Bách khoa y học 2010 2.0
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)

Xin cảm ơn tác giả Lê Đình Sáng với tác phẩm đồ sộ và tuyệt vời này, chúc tác giả sớm xuất bản bộ sách hay này!

Xem tiếp…

PHONG THỦY LUẬN - Điện Bà Tây Ninh

Mình đang tìm hiểu về các bài viết về Phong Thủy của Điện Bà Tây Ninh. Xin phép tác giả được sao chép lại 38 bài viết Phong Thủy Luận của tác giả.

PHONG THỦY LUẬN - Điện Bà Tây Ninh FULL


Phong Thủy Luận

TỔNG HỢP CÁC BÀI VIẾT 

PHONG THỦY LUẬN

Tác giả: Điện Bà Tây Ninh
https://dienbatnblog.blogspot.com/


Click vào từng số để xem từng bài viết theo thứ tự

1  |  2  |  3  |  4  |  5  |   6  |   7  |  8  |  9  |  10  |  11  |  12  |  13 |  14  |  15  |  16  |  17  |  18  |  19  |  20  |   21  |   22  |  23  |  24  |  25  |  26  |  27  | 28 |  29  |  30  |  31  |  32  |  33  |  34  |  35  |   36  |   37  |  38

Thân ái!
TTL Blog 
Xem tiếp…

CHUYỆN NĂM NGOÁI NĂM NAY MỚI KỂ

Noel 2019 Giáo Xứ Xóm Mới - Gò Vấp - TPHCM

Xem tiếp…

MỘT CHÚT THIỆN DUYÊN - LÀM CUỘC SỐNG NÀY GIÀU ĐẸP HƠN

Ai đó đã bấm máy hoặc, do Liêm có chút cảm hứng, nên những khoảng khắc đã được ghi lại!

Người tình nhỏ và công trình SeABank 2014
Người tình nhỏ và công trình SeABank 2014
Xem tiếp…

Bác Sơn - Bác Huyền - Anh Sóc lên chơi nhà năm 2014

Gia đình anh chị từ Gia Lai lên Sài Gòn chơi
Hình chụp được chụp ngày 8/4/2014
Xem tiếp…

Chùm hình ảnh anh Hai năm 2014 được lưu trong thẻ nhớ máy ảnh

Blogger lưu dùm những hình ảnh này! Rất cảm tạ!
Tính từ ngày chụp đến ngày post lên đây là 6 năm!
Nhờ tìm thấy trong thẻ nhớ mày chụp hình chuyên dùng khảo sát công trình.

Bi Lùn năm 2014 khu du lịch bến xưa
Bi Lùn năm 2014 khu du lịch bến xưaThêm chú thích
Xem tiếp…

DỊCH VỤ THIẾT KẾ WEBSITE - WEB BLOG

Đây là trang giới thiệu về dịch vụ thiết kế website của Blog Trần Tứ Liêm, cá nhân mình nhận thiết kế website cho công ty hoặc các cá nhân tổ chức có nhu cầu!

TẠI SAO BẠN HOẶC CÔNG TY BẠN CẦN CÓ WEBSITE?


Ngày nay gần như tất cả các công ty đều có website riêng, hiếm lắm mới tìm ra một vài công ty không có web. Thông thường những công ty không có website thường là những công ty có sự đỡ đầu, hoặc mang tính chất hỗ trợ cho một công ty khác, còn lại đa phần đều có website riêng giới thiệu về mình.

Còn các cá nhân, ngày nay rất nhiều người sử dụng song song như mạng xã hội họ có thể sử dụng làm mục đích kinh doanh hay, viết blog, hay dùng làm nhật ký, hoặc chỉ là nơi lưu trữ kỹ niệm của gia đình....

Xem tiếp…

TỔNG HỢP VIDEO HỌC REVIT DỄ HỌC NHẤT

Xin giới thiệu các em sinh viên, các bạn các video học revit dễ nhất!


Xem tiếp…

Chúc Xuân (Video sản xuất 2009 bài hát happy new year )

chúc mừng năm mới 2020

Tôi làm đoạn phim tặng các bạn hôm tết năm 2009!

Dù video củ, nhưng xuân nào cũng là mùa xuân mới!

Chúc mừng năm mới 2020!

Xem tiếp…

BÀI VIẾT THEO NĂM


Blogger Trần Tứ Liêm