Oversete mærkedage.

Vi har efterhånden mange mærkedage. Alligevel bliver nogen stadig glemt, for eksempel når vi fylder 10000 døgn. Dette er jo en stor skam, for hvad er 40 år eller 50 år i rundhed i forhold til 10.000 døgn. 

Et af problemerne med 10.000 døgns fødselsdagen er, at det er ret bøvlet at regne ud, hvornår man præcist er 10.000 døgn med skudår og alt det der. Men heldigvis har vi jo nu fået computere til at klare den del af stoffet. Så på denne side kan du meget let få beregnet, hvornår en person fylder - eller har fyldt - 10.000 døgn.

<% strDate = trim(request.form("txtBirthDate")) %> <% strTime = trim(request.form("txtTime")) %>

Skriv personens fødselsdag (format DD-MM-YYYY, eks 02-06-2008):    

Skriv evt. klokkeslæt, som personen blev født (format TT:MM - fx. 16:05):  

 

<% if strDate <> "" then strDate = trim(request.form("txtBirthDate")) strTime = trim(request.form("txtTime")) strDay = left(strDate, 2) strMonth = mid(strDate, 4, 2) strYear = mid(strDate, 7, 4) if len(strDate) <> 10 then strError = "Forkert datoformat" elseif strMonth > "12" then strError = "Forkert datoformat" elseif strDay > "31" then strError = "Forkert datoformat" end if strDate = strYear & "-" & strMonth & "-" & strDay if strError = "" then strNewDate = dateadd("d", 10000, strDate) %>

Ovenstående person fylder

10.000 døgn den <%= day(strNewdate) & ". " & NameOfMonth(month( strNewDate)) & " " & year(strNewdate) %>.

<% strNewDate = dateadd("d", 20000, strDate) %>

20.000 døgn den <%= day(strNewdate) & ". " & NameOfMonth(month( strNewDate)) & " " & year(strNewdate) %>.

<% strNewDate = dateadd("d", 25000, strDate) %>

25.000 døgn den <%= day(strNewdate) & ". " & NameOfMonth(month( strNewDate)) & " " & year(strNewdate) %>.

<% if strTime <> "" and len(strTime) = 5 then strNewDate = dateadd("h", 100000, strDate & " " & strTime) %>

100.000 timer den <%= day(strNewdate) & ". " & NameOfMonth(month( strNewDate)) & " " & year(strNewdate) & " kl. " & mid(strNewDate, 12,5) %>.

<% strNewDate = dateadd("h", 500000, strDate & " " & strTime) %>

en halv million timer den <%= day(strNewdate) & ". " & NameOfMonth(month( strNewDate)) & " " & year(strNewdate) & " kl. " & mid(strNewDate, 12,5) %>.

<% end if %>
<% else %>

<%= strError %>

<% end if end if function NameOfMonth(month) select case clng(month) case 1 NameOfMonth = "januar" case 2 NameOfMonth = "februar" case 3 NameOfMonth = "marts" case 4 NameOfMonth = "april" case 5 NameOfMonth = "maj" case 6 NameOfMonth = "juni" case 7 NameOfMonth = "juli" case 8 NameOfMonth = "august" case 9 NameOfMonth = "september" case 10 NameOfMonth = "oktober" case 11 NameOfMonth = "november" case 12 NameOfMonth = "december" end select end function %>