Behöver en funktion som formaterar ett engelskt datum och visar t.ex Today 14:32, yesterday 13:20 eller om det är en annan dag så skall den visa t.ex January 7th
Har denna funktionen för svenska datum men den fungerar ju inte nu när det är engelskt datumformat :(
function formatDate(inDate)
varMonthName = Array("Jan","Feb","Mar","Apr","Maj","Jun","Jul","Aug","Sep","Okt","Nov","Dec")
varMonthNumber = Int(Right(Left(inDate,7),2))
varDayNumber = Int(Right(Left(inDate,10),2))
varYearNumber = Int(Left(inDate,4))
varTime = ""
if Len(inDate) = 19 then
varTime = " "& Left(Right(inDate,8),5)
end if
if varMonthNumber = month(date) and varDayNumber = day(date) and varYearNumber = year(date) then
formatDate = "Idag"& varTime
elseif varMonthNumber = month(date) and varDayNumber + 1 = day(date) and varYearNumber = year(date) then
formatDate = "Igår"& varTime
else
formatDate = varDayNumber &" "& varMonthName(varMonthNumber - 1) &" "& varYearNumber & varTime
end if
end function
Det har väl ingen betydelse vilken format det är på datumet, tänkte jag, det formaterar du ju när du får in det. Och att översätta idag och igår är enkelt, ev kombinerat med flytt av ordning i utskriften?
Men, sedan ser jag att du stränghanterar fram år, mån, dag, vilket är helt förkastligt; du vet ju inte hur datumet formateras (per default) på olika servrar.
