Download font chữ ngôn ngữ ký hiệu

By Trần Tứ Liêm on Thứ Năm, 15 tháng 12, 2022

font chữ ngôn ngữ ký hiệu việt nam


Kính chào cộng đồng người khiếm thính!

Kính chào các thầy cô giáo, hoặc quý phụ huynh có con khiếm thính (điếc)!

Bài viết này chúng tôi (lớp tin học khuyết tật Thiên Phước) giới thiệu một công cụ khá hữu ích cho việc dạy, học cho người điếc đó là:

Bộ font chữ ngôn ngữ ký hiệu Việt Nam

Việt Nam ta có ngôn ngữ là Tiếng Việt chữ viết La Tinh và ngôn ngữ ký hiệu. Chữ viết La Tinh Tiếng Việt thì rất nhiều font chữ. Tuy nhiên Ngôn Ngữ Ký Hiệu thì đến thời điểm hiện nay chưa có font chữ nào. Vì vậy người điếc học Tiếng Việt rất khó khăn, và người dạy cũng vậy.

Các bé khi lớn lên, bắt đầu học tiếng Việt là chữ cái và đánh vần. Vậy người câm điếc học chữ cái và đánh vần làm sao?

Mục đích của chúng tôi là tạo ra một phương tiện hỗ trợ cho mục đích trên. Hãy xem video:



DOWNLOAD FONT

Bạn có thể tải font trong các đường link sau:

Chỉ cần tải được một đường link là được nhé! (tác giả muốn an toàn nên lưu trữ nhiều host khác nhau)


Lời cuối bài viết:

Tác giả mong muốn sự góp ý, đúng sai, hay nhiều mặt khác nhau của những người có kinh nghiệm hoặc nhu cầu sử dụng nói chung.

Bằng cách comment dưới video: https://www.youtube.com/watch?v=odHWAB2jLb4

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

By Trần Tứ Liêm on Thứ Sáu, 9 tháng 12, 2022

Đâ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  trong các dường link để 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.

Bạn có thể tải thêm:





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

Tăng bổ tuyển trạch thông thư quảng ngọc hạp ký

By Trần Tứ Liêm on Thứ Ba, 1 tháng 11, 2022

TĂNG BỔ TUYỂN TRẠCH THÔNG THƯ 
QUẢNG NGỌC HẠP KÝ
Sách Hán Nôm - Bản khắc

Tết 2022 - Bon ăn tết ở Hà Tĩnh

By Trần Tứ Liêm on Thứ Hai, 17 tháng 10, 2022

 

Gì Hiền và Ông Ngoại
Gì Hiền và Ông Ngoại

CÂU ĐỐ MẸO VUI, HAY cho Học sinh và tất cả mọi người

By Trần Tứ Liêm on Thứ Sáu, 14 tháng 10, 2022

CÂU ĐỐ MẸO VUI, HAY

Câu đố mẹo vui và rất hay



TTL Blog sưu tập và tổng hợp những câu đố mẹo có đáp án vui hay nhất. Chúc các bạn có những giây phút thật vui 

Câu đố 1:
Bạn hãy tưởng tượng bạn đang đi trên 1 con thuyền trên 1 dòng sôngcó rất nhiều cá ăn thịt đến giữa dòng bỗng thuyền của bạn bị thủng 1 lỗ rất to, sau vài phút nữa thuyền sẽ chìm và chắc chắn bạn sẽ là bữa ăn những con cá này. Bạn làm cách nào đơn giản nhất để thoát ra khỏi cái hoàn cảnh chết tiệt này?

Đáp án: Đừng tưởng tượng nữa.

10 LÝ DO BẠN CHƯA THỂ GIÀU CÓ

By Trần Tứ Liêm on Thứ Sáu, 7 tháng 10, 2022

 Tiêu tiền như mình đã giàu, hoặc dễ bị lung lay trước những cám dỗ của cuộc sống vật chất, đó là những lý do khiến bạn chưa thể thoát nghèo. 


10 LÝ DO BẠN CHƯA THỂ GIÀU CÓ


"Là một nhà tư vấn tài chính, tôi đã dành nhiều năm giúp mọi người vượt qua nhiều loại sai lầm và khiến họ trở nên giàu có. Điều trớ trêu là, có một người khiến tôi thấy khó giúp nhất lại chính là bản thân tôi", chuyên gia tư vấn tài chính cá nhân Jocelyn Black Hodes viết trên tạp chí tài chính cho phụ nữ Daily Worth
Khái niệm "giàu" có thể khác nhau ở từng người, tuy nhiên Hodes tin rằng giàu có nghĩa là sự tự do về tài chính cho phép bạn đạt được những mục tiêu và sống cuộc đời như bạn mong muốn. "Tôi rất giỏi đưa ra lời khuyên, nhưng lại không phải khi nào cũng giỏi trong việc khuyên chính mình. Cho nên khi giúp khách hàng với câu hỏi tại sao họ chưa giàu, phần dễ nhất là tìm ra nguyên nhân, vì tôi đã quá quen thuộc với chúng. Bất kể chúng ta được nuôi dạy, giáo dục, nghề nghiệp hay phong cách như thế nào, hầu hết chúng ta đều chưa đạt được mong muốn về mặt tài chính. Lý do thì có rất nhiều, hầu hết đều tương tự nhau. Tin tốt là không bao giờ quá muộn để trở nên giàu có, nếu bạn, cũng như tôi, đã sẵn sàng để đối mặt với những lý do khiến bạn chưa giàu", Hodes nói. .

Dưới đây là 10 lý do mà Hodes chỉ ra


10 LÝ DO BẠN CHƯA THỂ GIÀU CÓ

Giờ Âm Lịch Việt Nam

By Trần Tứ Liêm on Thứ Năm, 6 tháng 10, 2022

Trong cuộc sống có nhiều người không biết hay hỏi nhau là:

Giờ Tý là mấy giờ?
Giờ Ngọ là mấy giờ?
..............................?

Bình thường thì được trả lời là:

Giờ Tý là 23h đến 1h sáng
Giờ Ngọ là lúc 11h đến 13h chiều
...................

Chính những câu hỏi đó mình đã hỏi lúc còn nhỏ, bởi sự tò mò rằng: Tại sao đã có đồng hồ để đo thời gian rồi mà người ta vẫn cứ giờ Tý, Sửu... để làm các việc gì đó.

Đúng rồi bạn ạ! bây giờ người ta vẫn sử dụng 2 loại đơn vị đo thời gian của một ngày đó là:

- Giờ pháp lịch Việt Nam: Sử dụng theo quy chuẩn quốc tế lấy múi giờ là GMT+7, hay còn gọi là giờ Hà Nội. Một ngày có 24h, mỗi giờ là 60h
- Giờ âm lịch: một ngày được chia thành 12 giờ, mỗi giờ lấy tên một con giáp, bắt đầu từ giờ rồi đến Sửu, Dần Mão Thìn Tỵ Ngọ Mùi Thân Dậu Tuất Hợi. Ban đêm được được gọi là Canh. Ví dụ Canh 1, Canh Hai... đến Canh 5

Đi vào vấn đề chính nhé! đó là quy đổi giữa giờ Pháp Lịch và giờ Âm Lịch, hãy giải quyết câu hỏi này trước:

Giờ Ngọ bắt đầu từ mấy giời và kết thúc mấy giờ?

Để nhìn lại bản chất của hai đơn vi đo thời gian ở trên ta có nhận xét như sau:

- Giờ Pháp Lịch lấy mốc thời theo Kinh độ của quả đất là kính tuyến 7, vì vậy có sự liên quan đến vị trí địa lý.
- Giờ âm lịch: ngày trước các bậc tiền nhân xác định bằn giờ chính ngọ là lúc Mặt trời đứng bóng rồi suy ra các giời khác. Như vậy giờ âm lịch có liên quan tới tính thiên văn.

Ngày nay một số chương trình hoặc website cho phép bạn tính toán được giờ mặt trời Mọc, Lặn, đạt tới đỉnh của nó tại mỗi vị trí khác nhau như: Yahoo Weather, Câu Cá...

Ví dụ 1: ngày 01/O1/2O15 tại Đảo Phú Quốc () Mặt Trời mọc 6h21, lặn: 17h53, Chính Ngọ lúc 12h07

Ví dụ 2: ngày 01/O1/2O15 tại TP. HCM () Mặt Trời mọc 6h11, lặn: 17h41, Chính Ngọ lúc 11h56

Như vậy ta suy được bảng giờ âm lịch:

  • - Tại Đảo Phú Quốc: Giờ Tý: 23h07-1h07, Sửu: 1h07-3h07....
  • - Còn tại TPHCM: Giờ Tý: 22h56-0h56, Sửu: 0h56-2h56...


Kết quả cho ta thấy bảng giờ ở hai vị trí khác nhau.

Có vẻ phức tạp phải không bạn?

Vậy phương pháp xác định giờ âm lịch thế nào cho đúng?

CÁCH XÁC ĐỊNH BẢNG GIỜ ÂM LỊCH

CÁCH 1: SỬ DỤNG CHƯƠNG TRÌNH LỊCH VẠN NIÊN EXCEL


Đây là chương trình mình soạn ra, được chạy trên cở sở thuật toán thiên văn, bạn tải về và vào mục cài đặt để sét vị trí Kinh Độ, Vỹ Độ theo hướng dẫn ở trong đó.

Địa chỉ tải: https://trantuliem.blogspot.com/2013/01/lich-van-nien-ttl-excel.html




Chương trình chỉ chạy được trên máy tính và phải có Microffice EXCE.

CÁCH 2: SỬ DỤNG CÁCH TÍNH GIỜ CHÍNH NGỌ HỒ NGỌC ĐỨC


Sử dụng lịch của Hồ Ngọc Đức để xác định giờ Chính Ngọ sau đó bạn phải tự tính ra các giờ khác. Xem theo đường link này:
https://www.informatik.uni-leipzig.de/~duc/amlich/vncal.html (LINK NÀY KHÔNG CÒN HOẠT ĐỘNG)



CÁCH 3: HƯỚNG DẪN BẠN TỰ TÍNH




Cách tính này bắt buộc bạn phải có dữ liệu đầu vào là giờ mặt trời lặn và mặt trời mọc, bạn có thể tìm các dữ liệu này ở nhiều nơi ví dụ:


Trên blog lịch treo tường.

Trên Yahoo thời tiết: https://weather.yahoo.com/

Hoặc bạn gõ tren google với từ khóa: "sunrise and sunset"


Ta tiến hành tìm giờ chính ngọ ngày O1/O1/2O15 tại TP. HCM () từ 2 dữ liệu: Mặt Trời mọc 6h11, lặn: 17h41.


- Mặt trời mọc phú thứ: a = 6x60+11 = 371

- Mặt trời lặn phút thứ: b = 17x60+41 = 1061

- Mặt trời chính ngọ ở phút thứ: c = (a+b):2 = (371+1061):2 = 716

- Đổi kết quả này thành giờ phút: chia c cho 60, phần nguyên là giờ, phân dư là phú:

Lấy 716 chia cho 60: được phần nguyên: 11, được phần dư là 56


Kết quả: Chính ngọ ngày O1/O1/2O15 tại TPHCM là 11 giờ 56 phút trùng với kết quả trong ví dụ 2 ở trên.

Lưu ý: phương pháp này là tương đối trong thuật toán thiên văn họ không tính thế này.

Tổng quát lại:


Khi chúng ta không quan tâm tới yếu tố thời gian âm lịch thì vấn đề này chẳng có ý nghĩa gì. Còn khi bạn đã đọc đến đây và quan tâm thì nó là một vấn đề cốt lõi trong văn hóa và những việc tâm linh. Những ví dụ sau có thể bạn hình dung được một số góc cạnh: 

Chọn giờ để khâm liệm, nếu bạn chọn nhầm giờ vào tứ hành xung, trùng tang...? Các vấn đề cưới hỏi, động thổ... củng như vậy.

Xem lá số tử vi: 70% khó khăn của tử vi đó chính là xác định giờ sinh, khi xác định được giờ sinh mọi việc thường dễ dàng hơn.

....

Trong sách Bát Trạch Minh Cảnh của Thái Kim Oanh có phần trình bày đầu tiên là phần hướng dẫn chọn giờ âm lịch, tuy nhiên theo mình là sai nhé bạn!

Tôi nghỉ rằng bạn đọc quan tâm về lĩnh vực này sẽ khó khăn để hiểu bài viết. TTL Blog gợi ý cho các bạn hãy tải chương trình của tôi về và tham khảo các kết quả của các ngày bình thường, các ngày đặc biệt... để có nhận định chung hơn, sau đó cùng tìm hiểu nhé!

Các bạn có thể xem các bài viết liên quan do mình viết:


Bánh tráng cuốn chả giò Hà Tĩnh Bách Cát - Giá Sỉ

By Trần Tứ Liêm on Thứ Bảy, 1 tháng 10, 2022

Hiện tại xưởng gia đình bên em đang sản xuất Bánh Tráng Cuốn Chả Giò - Bánh Ram Hà Tĩnh - Bánh Đa Nem Hà Tĩnh. Anh chị có nhu cầu ủng hộ bên em nhé!

Bánh Ram Hà Tĩnh là một nguyên liệu dùng để cuốn chả giò, cuốn nem rất ngon, giòn rụm, mà không hút dầu mỡ, không hóa chất bảo quản. Nên được người dùng trong và ngoài nước ưa chuộng, sử dụng cho nghệ thuật ẩm thực.

Đây là một đặc sản của Hà Tĩnh, được làm từ gạo lứt, mật mía, và muối, không hề có hóa chất. Quý khách yêu bếp có nhu cầu hãy ủng hộ shop và ủng hộ các nông phu nhứ Nghệ nhé!

GIÁ BÁNH RAM


Giá 45.000 đ/tệp

Mỗi tệp nặng 500g – khoảng 90 đến 100 lá ram.

Loại ngon được sản xuất thủ công tại xưởng Hà Tĩnh

Đặt hàng qua 08.69.32.69.46 (zalo)
Bánh ram Hà Tĩnh

Bánh ram Hà Tĩnh bạn gói chả giò, gói em cua bể đều rất ngon, giòn lâu và giòn rụm. Không hề có hóa hóa chất bảo quản nên được đóng gói trong túi nilong hút chân không.

Bên em có bán lẻ, giao hàng toàn quốc, và bán sỉ cho các đại lý, chông ty xuất nhập khẩu… Anh chị cần liên hệ bên em nhé!

CÁCH LÀM MÓN RAM HÀ TĨNH ĐÚNG CHẤT


3 tên gọi là chả giò, chả ram, nem nướng của 3 miền. Nhiều người thường nghĩ là một món, tuy nhiên có sự khác nhau.

Món ram Hà Tĩnh trong cách chế biến có phần tối giản hơn, nhưng người ăn cảm thấy ngon, không ngấy. Dưới đây mình sẽ chia sẽ cách làm món ram theo phong cách Hà Tĩnh nhé.

Trước tiên nói về khác biệt:Phần vỏ cuốn: đây là loại bánh chỉ sản xuất thủ công phơi sương tại địa phương, có độ ngon vượt trội.
Thành phần nhân: món ram của Hà Tĩnh chỉ dùng các loại căn bản là: miến, thịt, mộc nhỉ, hành tăm củ, và hành lá.

Sự khác biệt rõ ràng nhất chính là dùng bánh tráng và hành tăm. Hành tăm củ có trong món ram, làm cho hương vị của nó đạt đỉnh. Đây thực ra không phải là bí quyết. Mà do người Hà Tĩnh đa phần dùng hành tăm làm gia vị.

Còn các nơi khác làm món này, thường cầu kỳ hơn, có trứng, có cà rốt … nên khi ăn nhiều gây ngậy.

Bước 1: Chuẩn bị nguyên liệu


Tất cả các nguyên liệu làm nhân: cố gắng bạn chọn loại ngon nhé!


  • Miến (ngâm, rửa sạch, cắt khúc 1-2 cm)
  • Thịt heo ba chỉ xay hoặc băm nguyễn
  • Nấm mèo (mộc nhỉ): Ngâm, rửa sạch thái sợi
  • Tôm: Bóc vỏ thái hạt lựu (không có cũng được)
  • Hành lá thái hạt lựu
  • Hành Hành Tăm đập nhỏ.

Cho vào thau trộn đều nêm nếm gia vị: bột ngọt, đường, hạt tiêu xay, nước mắm.

Bước 2: Tẩm ướp và cuốn

Tẩm ướp thì bạn nên tùy sở thích, hoặc đặc thù từng nơi mà nêm nếm nhé!
Kỹ thuật cuốn chả giò: Cái này khá khó đối với người chưa thành thạo, bạn nên sử dụng bánh của chúng tôi sẽ dể cuốn và đẹp hơn rất nhiều. (xem video hướng dẫn cuốn ram cuối bài viết).

Bước 3: Chiên


Chỉnh lửa không to quá, không nhỏ quá. Khi bạn dùng Ram Hà Tĩnh thì lượng dầu không cần nhiều, còn bạn dùng loại bánh khác thì sẽ cần một lượng dầu lớn ngập chả giò.

Chiên xong cho ra đia luôn hoặc dùm giấy trắng để tránh nguội, vừa hút được dầu.

Bước 4: Nước mắm và rau


Cái này bạn nên chuẩn bị từ trước, chả giò chiên xong là bê ra ăn theo nóng mới ngon.

Chả giò luôn là món sum vầy, món sinh khí…Hãy tận hưởng cùng gia đình.bánh ram bách cát

Để hiểu rõ về bánh ram mời bạn xem phần wiki bên dưới:

WIKI BÁNH RAM

bánh ram là gì ?

Là một loại bánh tráng để gói món ram của Hà Tĩnh. Món ram này giống món chả giò, và món nem của hai miền Bắc Nam.
Loại bánh này ngon, màu đẹp, cuốn không cần nhúng nước, không bị rách, dễ cuốn.

bánh ram có tác dụng gì ?

Dùng gói món ram, chả giò, nem cua bể…
Có thể chế biến nhiều món khác: cuốn rau sống, bánh tráng nướng, cuốc lạc loại thực phẩm khác chiên…

bánh ram sử dụng như thế nào ?

Bạn chỉ cần bóc từng lá ra cuốn
Không cần nhúng nước, không cần dán mép bánh.
Lá ram hình vuông, bạn có thể cuốn xéo hoặc cuốn vuông.
Khi chiên không cần nhiều dầu mà vẫn có màu vàng đẹp.
thành phần có trong bánh ram ?Gạo lứt xay hơi dối
Mật mía
Muối

cách bảo quản bánh ram ?

Tốt nhất nên để ngăn đá hoặc ngăn mát.
Tránh ánh nắng

tên gọi khác bánh ram ?


Bánh tráng cuốn chả giò Hà Tĩnh
Bánh đa nem Hà Tĩnh
Vỏ ram Hà Tĩnh

bánh ram không tốt với ai ?

Ai cũng dùng được,

mua bánh ram ở đâu ?

Bạn có thể đến cửa hàng chúng tôi hoặc qua các đại lý bách cát phân phối.
Hoặc liên hệ trực tiếp theo thông tin bên dưới.

giá bán bánh ram ?

Giá: 45.000 đ/tệp
Hotline: 08.69.32.69.46 (zalo)

ĐẠI LÝ GIÁ SỈ BÁNH RAM TPHCM


Quý anh chị có nhu cầu lấy sỉ, hãy liên hệ bên em nhé. Hiên tại bên em đang phân phối cho các đại lý, sạp, các quán ăn nhà hàng.. tại TPHCM.Bánh ram Hà Tĩnh Bách Cát

Bách Cát ShopBánh ram
Giá bán 45.000 đ/tệp
Tel: 08.69.32.69.46 (zalo)
Web: https://bcs.bibon.xyz/
Thư mục: đặc sản

Tham khảo giá các nông sản khác: mật mía - 80.000 đ/lit
hạt óc chó - 300.000 đ/0.5kg
hạt kê - 100.000 đ/kg
hành tăm - 80.000 đ/kg
đậu phộng - 80.000 đ/kg
bột sắn dây - 150.000 đ/kg
bánh ram - 45.000 đ/tệp
bánh canh khô - 60.000đ/kg
măng khô - 300.000đ/kg
bánh gỏi cuốn - 40.k đ/0.5kg
đường phên - 60.000 đ/kg
hạt mè đen - 60.000 đ/kg
nấm mèo - 50.000 đ/200g
bún khô - 55.000 đ/kg
miến dong - 90.000 đ/kg

Cách chèn Plugin Chat Facebook vào Blogspot và Wordpress

By Trần Tứ Liêm on Thứ Ba, 27 tháng 9, 2022

Blog TTL hướng dẫn các bạn chèn plugin chat facebook vào trang web loại blogspot và wordpress nhé!

cách chèn chat facebook


Để làm điều này bạn cần có một Facebook Page. Nếu bạn nào chưa có hãy tạo một trang trước nhé!

Tóm tắt quy trình:

1. Lấy mã từ facebook

2. Dán mã đó trước thẻ </body>

Hãy bắt đầu nhé:

Phần 1: Lẫy mã plgin chat

Vào trang https://business.facebook.com/ và làm theo hình:

Làm theo hình các vị trí 1 - 2 - 3: (màu đỏ)

cách chèn hộp chat facebook blogspot và wordpress

Tiếp theo thao tác 4: (xem hình)

Hướng dẫn chèn hộp chat facebook (plugin chat)

Lúc này xuất hiện hộp thoại mới. Tiến hành chọn như hình ( thao tác 5), điền địa chỉ trang chủ website của bạn (thao tác 6):

cách chèn chat vào website


Tiếp theo: Ghi lai (save) bằng cách nhấn như hình ảnh:

cách chèn chat vào website

Tiếp theo ta tiến hành lấy mã:

chèn plugin chat

Một hộp thoại mới xuât hiện bạn: nhấn theo hình:

chat facebook


Tiếp theo:

chèn plugin chat facebook


Thao tác lấy mã cuối cùng:

Chèn plugin chát website


Phần 2: Chèn mã plugin chat

Bạn đang xài loại blog, website loại nào? mình hướng dẫn chèn vào blogspot và loại wordpress nhé!

Chèn vào blogspot

  • Vào blogger.com
  • Vào Chủ Đề/ Chỉnh sửa HTML
  • Nhấn Ctrl + F tìm nội dung </body>
  • Dán mã trước thẻ </body> đó
  • Lưu lại

chèn plugin chat

Kết thúc quá trình chèn plugin chat cho blogspot. 

Chèn chat facebook wordpress

Nó rất cần thiết cho các shop, các trang bán hàng, các trang thương mại điện tử nhỏ.

Bạn có thể xem demo trên trang website này: bánh ram


Thông thường các trang mẫu wordpress có phần cho phép chèn code vào head hay body hay footer... Mình xài mẫu them flatsome, nó có sẵn. Cách dán như hình:

chèn chat facebook vào wordpress


chèn chat wordpress

LỜI KẾT

Hãy tham khảo các bài viết về thủ thuật blog khác trên trantuliem.blogspot.com:

  1. Mẫu theme blogspot đẹp
  2. Chèn từ khóa tự động blogspot
  3. Tạo sitemap cho blogspot
  4. Xóa ?m=1 url blogspot
  5. Rút gọn link blogspot
  6. Chèn plugin chat facebook
  7. Code chuyển hướng tự động blogspot
  8. Tạo menu cấp di động blogspot
  9. Sửa lỗi lệch ảnh blogspot
  10. Backlink gov
  11. Backlink redit
  12. Backlink diễn đàn việt nam
  13. Themme vận chuyển nhà
  14. Themme blogspot tin tức
  15. Theme thái phong
  16. Theme dịch vụ sửa nhà
Thân ái!

Tạo trang chuyển tiếp tự động cho Blogger

By Trần Tứ Liêm on

Qua tham khảo một vài nơi và Google thấy rất nhiều bạn tìm kiếm cách tạo một trang chuyển tiếp cho Blogger / Blogspot. Hiện tại thì cũng có nhiều blog hướng dẫn về các để tạo trang chuyển tiếp tự động cho Blogger. Nhưng mà theo ý kiến cá nhân mình thấy thì điều thứ nhất là không đúng với cái ý nghĩa tự động, điều thứ hai là bạn phải tạo một blog riêng để tạo trang này, và điều thứ ba là bạn phải chèn liên kết hoàn toàn một cách thủ công.

Tạo trang chuyển tiếp tự động cho Blogger


Từ ba cái này thì bạn cũng thấy là chúng ta phải làm rất nhiều công sức để được một trang chuyển tiếp, việc chèn thủ công từng link sẽ mất rất nhiều thời gian, và nếu như bạn không muốn xài nữa thì cũng không biết đường đâu mà sửa nữa.

Thế cái trang chuyển tiếp tự động mà mình sắp hướng dẫn tới đây có gì ngon hơn những cái mà những blog khác? Sau đây mình xin liệt kê một số tính năng mà trang chuyển tiếp này mình đã hoàn thành:

  • Khi trỏ chuột vào link nó sẽ vẫn hiện địa chỉ chỉ gốc chứ không hiện địa chỉ trang chuyển tiếp
  • Tự động kích hoạt trang chuyển tiếp với những đường link đi ra ngoài trang web
  • Tự động mở tab mới với liên kết ngoài
  • Trang chuyển tiếp nằm trên chính blog của bạn
  • Hiện thời gian đếm ngược giống như các mã nguồn forum vbb, xenforo
  • Giao diện dễ dàng tùy chỉnh

nhưng cái trên là những cái mà mình thấy là mình đã làm được. Bạn có thể xem trực tiếp demo bằng cách trỏ chuột và click thử vào đây.

Tạo trang chuyển tiếp tự động cho Blogger

Đầu tiên bạn hãy truy cập vào trang quản trị của blog mà bạn muốn tạo trang chuyển tiếp. Tiếp tục tạo một trang mới với tên mà bạn muốn ví dụ "Chuyển tiếp" và sao chép toàn bộ đoạn mã sau đây vào phần nội dung của khung soạn thảo, lưu ý là hãy chuyển qua chế độ soạn thảo bằng HTML

<script type='text/javascript'>
//<![CDATA[
function getQueryVariable(variable) {
    var query = window.location.search.substring(1);
    var vars = query.split("&");
    for (var i = 0; i < vars.length; i++) {
        var pair = vars[i].split("=");
        if (pair[0] == variable) {
            return pair[1];
        }
    }
    return (false);
}

var count = 6;
var url  = getQueryVariable("url");

function countDown(){
    var timer = document.getElementById("timer");
    if(count > 0){
        count--;
        timer.innerHTML = "Bạn sẽ được chuyển hướng đến <a href='"+url+"' rel='nofollow'>"+url+"</a> trong <b>"+count+"</b> giây.";
        setTimeout("countDown()", 1000);
    }else{
        window.location.href = url;
    }
}
//]]>
</script>

<div class="chuyen-tiep">
Đang chuyển hướng

<gach></gach>
<span id="timer">
<script type="text/javascript">countDown();</script>
</span></div>
<style>
.post-body { text-align: center; }
gach { border-bottom: 1px dashed #7C7C7C; display: block; }
.main-wrapper { width: 100%!important }
.sidebar-wrapper { display: none; }
</style>


Lưu ý là giao diện có hơi cùi mía một tý, bạn có thể toàn toàn tủy chỉnh lại bằng html và css. Trong đoạn css ở ngay trên đây bạn sẽ thấy "main-wrapper" và "sidebar-wrapper" đó là 2 class của phần nội dung và sidebar trên blog của mình, bạn phải thay bằng tên class của template của bạn để thay đổi lại chiều rộng của nội dung cũng như để ẩn đi phần sidebar.

Nếu cảm thấy không biết thì cứ xóa 2 thằng đó đi nhé

.main-wrapper { width: 100%!important }
.sidebar-wrapper { display: none; }

và nếu bạn muốn nhưng không biết phải làm sao thì cứ để lại địa chỉ blog của bạn tại phía dưới mình sẽ trực tiếp hỗ trợ bạn về phần giao diện này.

Sau khi hoàn tất thì lưu lại trang đó, lưu ý là sau khi xuất bản thì bạn hãy kiểm tra xem địa chỉ của trang đó là gì, như website của mình là

https://trantuliem.blogspot.com/p/chuyen-tiep.html

nhớ hoặc chép nó ra đâu đó.

Tiếp tục vào Mẫu > Chỉnh sửa HTML tại trang tổng quan của blog, bạn tìm đến thẻ </head> và chèn đoạn mã sau lên trên

<script src='//ajax.googleapis.com/ajax/libs/jquery/1.11.1/jquery.min.js'/>
<script type='text/javascript'>
jQuery(document).ready(function () {

jQuery(&#39;a[href*=&quot;http://&quot;]:not([href*=&quot;https://trantuliem.blogspot.com&quot;])&#39;).click(function (e) {
        e.preventDefault();
        var target = e.target || e.srcElement;
        if ($(target).attr(&#39;target&#39;) == &quot;_blank&quot;) {
            window.open(&quot;http://trantuliem.blogspot.com/p/chuyen-tiep.html?url=&quot; + $(target).attr(&#39;href&#39;), &#39;_blank&#39;);
        } else {
            window.location = &quot;http://trantuliem.blogspot.com/p/chuyen-tiep.html?url=&quot; + $(target).attr(&#39;href&#39;);
        }
    });

});
</script>

đoạn mã này mình viết bằng jQuery các bạn nhé nên, phải có mã nhúng jQuery ở trên nó, nếu như có rồi thì bạn hãy xóa dòng đầu tiên đi. Ở đây bạn tìm và thay đổi trong đoạn mã trên
cái đầu tiên là

https://trantuliem.blogspot.com

bằng địa chỉ blog của bạn. Và cái thứ hai là

https://trantuliem.blogspot.com/p/chuyen-tiep.html

bằng địa chỉ trang chuyển tiếp lúc nãy mà mình đã hướng dẫn các bạn tạo. Sau đó lưu lại là thành công rồi.

Lời kết

Như bạn đã thấy tuy mã có hơi dài một tý nhưng vô cùng đơn giản, chỉ cần đúng 2 bước là tạo trang chuyển tiếp và chèn đoạn mã để link chạy vảo trang chuyển tiếp. Mọi thắc mắc từ giao diện đến cách thức hoạt dộng hay tùy chỉnh về bài viết này hãy để lại nhận xét phía dưới nhé.

P/S: Cập nhật thêm thông tin mới nhé, mình không khuyến khích các bạn sử dụng cái này, nên chỉ làm cho thỏa chí đam về về tính năng thôi :D. Thực chất đây vi phạm một điều khoản trong Google Webmaster Guidelines, cụ thể là không chuyển hướng người dùng đến trang web mà họ không muốn, rồi cám ơn bạn đã đọc bài viết.


Hãy tham khảo các bài viết về thủ thuật blog khác trên trantuliem.blogspot.com:

  1. Mẫu theme blogspot đẹp
  2. Chèn từ khóa tự động blogspot
  3. Tạo sitemap cho blogspot
  4. Xóa ?m=1 url blogspot
  5. Rút gọn link blogspot
  6. Chèn plugin chat facebook
  7. Code chuyển hướng tự động blogspot
  8. Tạo menu cấp di động blogspot
  9. Sửa lỗi lệch ảnh blogspot
  10. Backlink gov
  11. Backlink redit
  12. Backlink diễn đàn việt nam
  13. Themme vận chuyển nhà
  14. Themme blogspot tin tức
  15. Theme thái phong
  16. Theme dịch vụ sửa nhà
Thân ái!

Những nốt ruồi May Mắn của Phụ Nữ

By Trần Tứ Liêm on Thứ Sáu, 23 tháng 9, 2022

Những nốt ruồi nào được xem là mang may mắn cho phụ nữ? Mời bạn cùng khám phá nhé!

Theo nhân tướng học, nốt ruồi là nơi ẩn chứa nhiều ý nghĩa và điềm báo tốt xấu trong sự nghiệp, vận số của đời người phụ nữ. Nốt ruồi có thể mọc bất cứ chỗ nào trên cơ thể người như mặt, tay, chân, lưng,… Tùy theo từng vị trí mà nốt ruồi nói lên ý nghĩa tốt xấu khác nhau.

nốt ruồi may mắn của Phụ Nữ

Nốt Ruồi May Mắn Mang Vận May Của Phụ Nữ

XEM NỐT RUỒI TRÊN CƠ THỂ NGƯỜI PHỤ NỮ

By Trần Tứ Liêm on Thứ Năm, 22 tháng 9, 2022

Thông thường ai cũng có nốt ruồi . Nốt ruồi có thể có màu vàng nhạt, màu nâu hoặc màu đỏ. Màu sắc của nốt ruồi thường không quan trọng bằng vị trí của nó. Có những nốt ruồi rơi vào cung quan lộc, cũng có những nốt ruồi ở vào vị trí kiếp sát. Chính vì thế bạn hay tra cứu tất cả các nốt ruồi trên cơ thể bạn để hiểu được ý nghĩa của chúng. Từ đó biết được đâu là nốt ruồi cát, đâu là nốt ruồi hung để có biện pháp xử lý kịp thời ( tẩy nốt ruồi).

XEM NỐT RUỒI TRÊN CƠ THỂ NGƯỜI PHỤ NỮ


Những Nốt ruồi trên cơ thể của Phụ nữ có ý nghã thế nào? Hãy xem xét nhé:

Nốt ruồi trên cơ thể phụ nữ
Xem nốt ruồi trên cơ thể người phụ nữ, mặt trước và mặt sau

Câu chuyện cải số mệnh của Vương Liễu Phàm - Phương pháp cải Số

By Trần Tứ Liêm on

cải số thế nào

Cải số mạng - hay thay đổi số mạng làm sao? Đó là câu hỏi của rất nhiều người từ cổ nhân đến bây giờ. Phương pháp cải số làm sao? Các bậc thầy lý số thì nói rất rõ, nhưng số của họ thì không hề cải được, chỉ mang thêm nghiệp. Thật may cho chúng ta là trong lịch sử đã có một người cải số thành công. Ông này đã viết sách để lại câu chuyện cải số cho con cháu họ. Khi ông qua đời con cháu đã công bố cuốn sách này. Nhờ đó chúng ta ngày nay có thể học tập theo.

CÁCH TÍNH TUỔI LÀM NHÀ

By Trần Tứ Liêm on Thứ Ba, 20 tháng 9, 2022

Chẳng biết có từ bao giờ nhưng khi muốn xây nhà, gia chủ phải xem tuổi mình năm nào xây được nhà? rồi thì ngày tháng nào tốt để xây được nhà?

HƯỚNG DẪN BẠN TÍNH NHÉ


Bạn nghĩ coi: tại sao phải vậy? nếu bạn hỏi bất cứ người nào chắc chắn rằng họ không trả lời được hoặc họ trả lời một ý nào đó. Nhưng chuyện đó không quan trọng nữa, bởi "Xem tuổi làm nhà" đã trở thành một tập tục của văn hóa của xã hội.

Có những người khi xây nhà lên thì trở nên thịnh vượng, an lạc, có người xây nhà lên thì suy tồn mấy năm, thậm chí gặm nạn, tai ương... có phải là do xây nhà không? Có lẽ gia chủ muốn xem tuổi để làm nhà là để bày tỏ sự cầu mong an lành cho sau này thôi!

Bài viết này trình bài cách tính tuổi làm nhà, còn bạn chỉ muốn biết Có làm nhà được hay không hãy tải Chương trình tính tại dây: Lịch Vạn Niên

Cách tính tuổi xây nhà:

Xem tuổi xây nhà theo nhiều trường phái khác nhau nhưng đều dựa trên ba cở sở:

  • 1- Hoan Ốc
  • 2- Kim Lâu
  • 3- Tam Tai

Nếu cả 3 yếu tố trên không phạm hoặc không ảnh hưởng thì xây nhà là tốt. Khi xây nhà phạm vào yếu tố nào thì sau này thường bị hạn của yếu tố đó.


1. Cách tính Hoan Ốc:

Tuổi Hoang Ốc

Theo các tài liệu về Trạch cát dân gian, vòng tính tuổi Hoang Ốc chia ra làm 6 cung: nhất Cát, nhì Nghi, tam Địa Sát, tứ Tấn Tài, ngũ Thọ Tử, lục Hoang Ốc. Cách tính là khởi tuổi bắt đầu 10 tại nhất Cát, 20 tại nhì Nghi, 30 tại tam Đại Sát, 40 tại tứ Tấn Tài, 50 tại ngũ Thọ Tử, 60 tại lục Hoang Ốc, 70 lại bắt đầu từ nhất Cát…

Ý nghĩa của lục cung Hoang Ốc:

1. Nhất Cát (hay Kiết cũng vậy): Làm nhà tuổi này sẽ có chốn an cư tốt, mọi việc hanh thông, thuận lợi (Nhất kiết an cư, thông vạn sự).

2. Nhì Nghi: Làm nhà tuổi này sẽ có lợi, nhà cửa hưng vượng, giàu có (Nhì nghi tấn thất địa sinh tài).

3. Tam Địa Sát: Tuổi này làm nhà là phạm, gia chủ sẽ mắc bệnh tật (Tam sát nhơn do giai đắc mệnh).

4. Tứ Tấn Tài: Làm nhà tuổi này thì phúc lộc sẽ tới (Tứ tấn tài chi phước lộc lai).

5. Ngũ Thọ Tử: Tuổi này làm nhà là phạm, trong nhà chia rẽ, lâm vào cảnh tử biệt sinh ly (Ngũ tử ly thân phòng tử biệt).

6. Lục Hoang Ốc: Tuổi này làm nhà cũng bị phạm, khó mà thành đạt được (Lục ốc tạo gia bất khả thành).
Nhìn vào đây có thể thấy, tuổi gia chủ ở vào các cung: nhất Cát, nhì Nghi, tứ Tấn Tài mà làm nhà thì thuận tốt. Còn nếu ở vào các cung: tam Địa Sát, ngũ Thọ Tử, lục Hoang Ốc thì bị phạm, phải kiêng tránh.

Cách tính: 
Trang 405 Bát Trạch Minh Cảnh chỉ tính:

CÁCH TÍNH TUỔI LÀM NHÀ
Hình chụp trang 405 Bát trạch minh cảnh được TTL Blog chuyển thành file .gif
Mô phỏng tính hoan ốc tuổi 28

Ví dụ khác: tuổi 35 làm nhà có được không? Ta lấy 10 khởi từ tam Nhất Cát, theo chiều kim đồng hồ thì 20 -Nhì Nghi, 30- Tam Địa Sát, 31 là tứ Tấn Tài, 32 ngũ Thọ Tử, 33 lục Hoang Ốc, 34 nhất Cát, tới tuổi 35 thuộc cung nhì Nghi. Vậy là tuổi đó không phạm Hoang Ốc. Ta cũng có thể dùng phép bấm đốt tay để tính tuổi Hoang Ốc.

Cách tính đó được coi là Bàn Tay Hoan Ốc. Còn tính bằng số học thì như sau:

T=Năm xây nhà âm lịch - Năm sinh âm lịch + 1

i= Int(T/10) + Mod(T/6) | Lấy phần nguyên T chia cho 10 cộng Phần dư tuổi chia cho 6
a= Mod(i/6)                        | Lấy kết quả trên chia cho 6 lấy phần dư

Kết quả:

a= 0 thì Lục Hoan Ốc
a= 1 thì Nhất Cát
a= 2 Nhị Nghị
a= 3 Tam Địa Sát
a= 4 Tứ Tấn Tài
a= 5 Ngủ Thọ Tử

Bà con có ai bị tẩu hỏa nhập ma chưa? Tiếp tục nhé!

2. Cách tính Kim Lâu:

Bát trạch Minh Cảnh trang 405 nói tám tuổi sau không bị Kim Lâu:


Vậy 52 tuổi khác tính Kim Lâu như thế nào?

Sách Trạch Nhật trang 226 chỉ cách tính như sau:

Hình chụp trang 226 sách Trạch Nhật
Với cách tính tương tự như trên hoan ốc nên chắc không phải nói nhiều.

Thuật toán:

Tuoi=Nam hiện tại - Năm Sinh + 1

i=MOD(INT(Tuoi/10)+MOD(Tuoi,10)-INT(Tuoi/51),8)

i=1:"Phạm Kim lâu thân (Gây tai hoạ cho bản thân người chủ)"
i=3:"Phạm Kim lâu thê (Gây tai hoạ cho vợ của người chủ)"
i=5:"Phạm Kim lâu tử (Gây tai hoạ cho con của người chủ)"
i=7: "Phạm Kim lục súc (Gây tai hoạ cho con vật nuôi trong nhà)"


3. Cách tính Tam Tai:

Mình thích viết Blog, tìm hiểu Tử Vi, Phong Thủy, Kiến Trúc, nghiên cứu Lịch vạn niên, đọc sách tùm lum, hay chia sẽ kiến thức.

TỬ VI NĂM NAY

TỬ VI NĂM 2022

BẢN ĐỒ BLOG

Blog Nhỏ Tình Yêu Lớn

Welcome to

Blog Trần Tứ Liêm
https://trantuliem.blogspot.com/

Xem nhiều nhất

Bài viết mới nhất

Bài viết theo thời gian

SƠ ĐỒ BLOG

Bài Nỗi Bật

Tổng số lượt xem trang