<% Selassie_Month = 1 CurrentYear = DatePart("yyyy", Now()) CurrentMonth = DatePart("m", Now()) CurrentDay = DatePart("d", Now()) PrevEarthDayYear = CurrentYear if CurrentMonth < 7 Or (CurrentMonth = 7 and CurrentDay < 23) then PrevEarthDayYear = CurrentYear - 1 end if Selassie_Day = DateDiff("d", CDate("07/23/" & PrevEarthDayYear),Now()) + 1 If Selassie_Day <= 33 then Selassie_Month = 1 else Selassie_Month = 2 + Int((Selassie_Day-33)/30) Selassie_Day = Selassie_Day - 33 - 30*(Selassie_Month - 2) end if %>

Today's Haile Selassie I Date: Year <%=DateDiff("yyyy", CDate("07/23/1892"),Now())%> Month <%=Selassie_Month%> day <%=Selassie_Day%>

Time since Selassie I appeared on the earth to fulfill Jah role in this Armageddion

Centuries: <%=(DateDiff("yyyy", CDate("07/23/1892"),Now())/100)%>
Years: <%=DateDiff("yyyy", CDate("07/23/1892"),Now())%>
Months: <%=DateDiff("m", CDate("07/23/1892"),Now())%>
Strong: <%=DateDiff("w", CDate("07/23/1892"),Now())%>
Days: <%=DateDiff("d", CDate("07/23/1892"),Now())%>
Hours: <%=DateDiff("h", CDate("07/23/1892"),Now())%>
Minutes: <%=DateDiff("n", CDate("07/23/1892"),Now())%>
Seconds: <%=DateDiff("s", CDate("07/23/1892"),Now())%>

Time since Selassie I earthday 2005

Centuries: <%=(DateDiff("yyyy", CDate("07/23/2005"),Now())/100)%>
Years: <%=DateDiff("yyyy", CDate("07/23/2005"),Now())%>
Months: <%=DateDiff("m", CDate("07/23/2005"),Now())%>
Strong: <%=DateDiff("w", CDate("07/23/2005"),Now())%>
Days: <%=DateDiff("d", CDate("07/23/2005"),Now())%>
Hours: <%=DateDiff("h", CDate("07/23/2005"),Now())%>
Minutes: <%=DateDiff("n", CDate("07/23/2005"),Now())%>
Seconds: <%=DateDiff("s", CDate("07/23/2005"),Now())%>

Selassie I Time Starting from 07/23/1892


NameMonthdays in monthregular yearleap year
1 Month33 days<%=showdate(33)%><%=showdateL(33)%>
2 Month30 days<%=showdate(63)%><%=showdateL(63)%>
3 Month30 days<%=showdate(93)%><%=showdateL(93)%>
4 Month30 days<%=showdate(123)%><%=showdate(123)%>
3 Month30 days<%=showdate(153)%><%=showdateL(153)%>
6 Month30 days<%=showdate(183)%><%=showdateL(183)%>
7 Month30 days<%=showdate(213)%><%=showdateL(213)%>
8 Month30 days<%=showdate(243)%><%=showdateL(243)%>
9 Month30 days<%=showdate(273)%><%=showdateL(273)%>
10 Month30 days<%=showdate(303)%><%=showdateL(303)%>
11 Month30 days<%=showdate(333)%><%=showdateL(333)%>
12 Month30 days<%=showdate(363)%><%=showdateL(363)%>
13 Month2-3 days<%=showdate(365)%><%=showdateL(366)%>

<% function showdate(daynumber) CompareDate = CDate("07/23/1892") if daynumber=33 then showdate = MonthName(Month(CompareDate)) & " " & Day(CompareDate) & " - " & MonthName(Month(DateAdd("d", daynumber-1, CompareDate))) & " " & Day(DateAdd("d", daynumber-1, CompareDate)) elseif daynumber = 365 then showdate = MonthName(Month(DateAdd("d", daynumber-2, CompareDate))) & " " & Day(DateAdd("d", daynumber-2, CompareDate)) & " - " & MonthName(Month(DateAdd("d", daynumber-1, CompareDate))) & " " & Day(DateAdd("d", daynumber-1, CompareDate)) else showdate = MonthName(Month(DateAdd("d", daynumber-30, CompareDate))) & " " & Day(DateAdd("d", daynumber-30, CompareDate)) & " - " & MonthName(Month(DateAdd("d", daynumber-1, CompareDate))) & " " & Day(DateAdd("d", daynumber-1, CompareDate)) end if end function function showdateL(daynumber) CompareDate = CDate("07/23/1891") if daynumber=33 then showdateL = MonthName(Month(CompareDate)) & " " & Day(CompareDate) & " - " & MonthName(Month(DateAdd("d", daynumber-1, CompareDate))) & " " & Day(DateAdd("d", daynumber-1, CompareDate)) elseif daynumber = 366 then showdateL = MonthName(Month(DateAdd("d", daynumber-3, CompareDate))) & " " & Day(DateAdd("d", daynumber-3, CompareDate)) & " - " & MonthName(Month(DateAdd("d", daynumber-1, CompareDate))) & " " & Day(DateAdd("d", daynumber-1, CompareDate)) else showdateL = MonthName(Month(DateAdd("d", daynumber-30, CompareDate))) & " " & Day(DateAdd("d", daynumber-30, CompareDate)) & " - " & MonthName(Month(DateAdd("d", daynumber-1, CompareDate))) & " " & Day(DateAdd("d", daynumber-1, CompareDate)) end if end function %>