fremhæve dagsdato i dette kalenderscript
Hvordan får jeg dagsdato til at stå med fed skrift i dette script?<Script Language=VBscript RUNAT=Server>
' *****
'FejlNavn: anvendes ved fejlmeldinger
'Felt: indeholder feltværdien
'Req: Yes = feltet skal udfyldes
Function CheckDato (FeltNavn, Felt, Req)
dim Fejl, NyFejlTekst
Felt = trim(Felt)
' *** VALIDER FELTET ***
if Felt = "" AND LCase(Req) = "yes" then
FejlTekst = FejlTekst & FeltNavn & ", skal udfyldes<br>"
Fejl = True
else
Fejl = False
end if
if Felt <> "" and Fejl = False then
if not IsDate(Felt) then
FejlTekst = FejlTekst & FeltNavn & ", er ikke en dato<br>"
Fejl = True
end if
end if
' *** VALIDER FELTET, slut ***
' *** Formater FELTET ***
if Fejl = False then
if Felt <> "" then
Felt = CDate(Felt)
end if
end if
' *** Formater FELTET, slut ***
CheckDato = Felt
end Function
' *****
Function WriteMonthYear(dato)
dim strHTML, strLinkTo
strLinkTo = "kalender3.asp"
startdato = CheckFirstMonthDay(dato)
strHTML = "<TR class='kd'><td colspan='8'><table width='100%'><tr>"
strHTML = strHTML & "<td width='10%' class='kd'><a class='k1' href='" & strLinkTo & "?startdato=" & startdato-1 & "'>Forrige</a></td>"
strHTML = strHTML & "<td width='40%' class='kd'>" & GetMonthText(GetMonth(startdato)) & " </td'>"
strHTML = strHTML & "<td width='40%' class='kd'> " & GetYear(startdato) & " </td>"
strHTML = strHTML & "<td width='10%' class='kd'><a href='" & strLinkTo & "?startdato=" & startdato+31 & "'>Næste</a></td>"
strHTML = strHTML & "</tr></table></td></tr>"
WriteMonthYear = strHTML
End Function
Function WriteUgeDage(dato)
dim strHTML, ugedag
ugedag = array("M","T","O","T","F","L","S")
startdato = CheckFirstMonthDay(dato)
strHTML = "<tr bgcolor=#5d7f9c>"
strHTML = strHTML & "<td width='20' class='kalendergray' align='center'><span class='tekst'><b> </b></span></td>"
strHTML = strHTML & "<td width='20' class='kalendergray' align='center'><b><span class='tekst'>" & GetDayText(1) & "</span></b></td>"
strHTML = strHTML & "<td width='20' class='kalendergray' align='center'><b><span class='tekst'>" & GetDayText(2) & "</span></b></td>"
strHTML = strHTML & "<td width='20' class='kalendergray' align='center'><b><span class='tekst'>" & GetDayText(3) & "</span></b></td>"
strHTML = strHTML & "<td width='20' class='kalendergray' align='center'><b><span class='tekst'>" & GetDayText(4) & "</span></b></td>"
strHTML = strHTML & "<td width='20' class='kalendergray' align='center'><b><span class='tekst'>" & GetDayText(5) & "</span></b></td>"
strHTML = strHTML & "<td width='20' class='kalendergray' align='center'><b><span class='tekst'>" & GetDayText(6) & "</span></b></td>"
strHTML = strHTML & "<td width='20' class='kalendergray' align='center'><b><span class='tekst'>" & GetDayText(7) & "</span></b></td>"
strHTML = strHTML & "</tr>"
WriteUgeDage = strHTML
End Function
Function WriteDage(dato)
dim strHTML, ugedag, maaned, count, startdato
startdato = CheckFirstMonthDay(dato)
maaned = getMonth(startdato)
strHTML = "<tr height='18'><td class='kw' align='center'><span class='sorttekst'><b>" & GetWeekOfYear(startdato) & "</b></span></td>"
if (GetDayOfWeek(startdato) > 1) then
strHTML = strHTML & "<td class='pastdays' colspan='" & GetDayOfWeek(startdato)-1 & "' align='center'> </td>"
end if
do while maaned = getMonth(startdato)
if (GetDayOfWeek(startdato)) = 1 and (startdato <> dato) then
strHTML = strHTML & "</td></tr><tr height='18'><td class='kw' align='center'><span class='sorttekst'><b>" & GetWeekOfYear(startdato) & "</b></span></td>"
end if
strHTML = strHTML & "<td align='center' class='kd'"
strHTML = strHTML & "><span class='sorttekst'><a class='kd' href='' onclick='return changeDate('" & startdato & "');'>" & GetDayOfMonth(startdato) & "</a></span></td>"
startdato = startdato + 1
loop
if (GetDayOfWeek(startdato) <> 1) then
strHTML = strHTML & "<td class='pastdays' colspan='" & 8-GetDayOfWeek(startdato) & "'> </td>"
end if
WriteDage = strHTML
End Function
' *****
Function GetYear(dato)
dim locDato
if dato = "" then
locDato = now
else
locDato = dato
end if
GetYear = datepart("yyyy", locDato, vbMonday, vbFirstFourDays)
end function
Function GetQuarter(dato)
dim locDato
if dato = "" then
locDato = now
else
locDato = dato
end if
GetQuarter = datepart("q", locDato, vbMonday, vbFirstFourDays)
end Function
Function GetMonth(dato)
dim locDato
if dato = "" then
locDato = now
else
locDato = dato
end if
GetMonth = datepart("m", locDato, vbMonday, vbFirstFourDays)
end function
Function GetDayOfYear(dato)
dim locDato
if dato = "" then
locDato = now
else
locDato = dato
end if
GetDayOfYear = datepart("y", locDato, vbMonday, vbFirstFourDays)
end function
Function GetDayOfMonth(dato)
dim locDato
if dato = "" then
locDato = now
else
locDato = dato
end if
GetDayOfMonth = datepart("d", locDato, vbMonday, vbFirstFourDays)
end function
Function GetDayOfWeek(dato)
dim locDato
if dato = "" then
locDato = now
else
locDato = dato
end if
GetDayOfWeek = datepart("w", locDato, vbMonday, vbFirstFourDays)
end function
Function GetWeekOfYear(dato)
dim locDato
if dato = "" then
locDato = now
else
locDato = dato
end if
GetWeekOfYear = datepart("ww", locDato, vbMonday, vbFirstFourDays)
end function
Function GetHour(dato)
dim locDato
if dato = "" then
locDato = now
else
locDato = dato
end if
GetHour = datepart("h", locDato, vbMonday, vbFirstFourDays)
end function
Function GetMinute(dato)
dim locDato
if dato = "" then
locDato = now
else
locDato = dato
end if
GetMinute = datepart("n", locDato, vbMonday, vbFirstFourDays)
end function
Function GetSecond(dato)
dim locDato
if dato = "" then
locDato = now
else
locDato = dato
end if
GetSecond = datepart("s", locDato, vbMonday, vbFirstFourDays)
end function
Function GetDaysRestOfMonth(dato)
dim locDato, locYear, locDayOfMonth, locMonth, locNewDato
if dato = "" then
locDato = now
else
locDato = dato
end if
locDayOfMonth = GetDayOfMonth(locDato)
locMonth = GetMonth(locDato)
locYear = GetYear(locDato)
if locMonth = 12 then
LocMonth = 1
locYear = locYear + 1
else
locMonth = locMonth + 1
end if
locNewDato = DateSerial(locYear, locMonth, 1)
GetDaysRestOfMonth = locNewDato-locDato
end function
Function GetDaysRestOfYear(dato)
dim locDato, locNewDato, locYear
if dato = "" then
locDato = now
else
locDato = dato
end if
locYear = GetYear(locDato)
locNewDato = DateSerial(locYear, 12, 31)
GetDaysRestOfYear = locNewDato-locDato+1
end function
Function CheckFirstWeekDay(startdato)
if GetDayOfWeek(startdato) <> 1 then
startdato = startdato - (GetDayOfWeek(startdato) - 1)
end if
CheckFirstWeekDay = startdato
end Function
Function CheckFirstMonthDay(startdato)
if GetDayOfMonth(startdato) <> 1 then
startdato = startdato - (GetDayOfMonth(startdato) - 1)
end if
CheckFirstMonthDay = startdato
end Function
Function GetMonthText(maanednr)
dim maaned
maaned = array("Januar","Februar","Marts","April","Maj","Juni","Juli","August","September","Oktober","November","December")
GetMonthText = maaned(maanednr-1)
end Function
Function GetDayText(dagnr)
dim ugedag
ugedag = array("Mandag","Tirsdag","Onsdag","Torsdag","Fredag","Lørdag","Søndag")
GetDayText = MID(ugedag(dagnr-1),1,1)
end Function
' ***
function SQLDATO(dato)
dim dd, mm, yy
'dim datoLng, den31121999
'datoLng = Lng (CDate(36525))
'den31121999 = CDate(36525)
if mid (CStr(CDate(36525)),1,2) = 31 then
dd = mid (CStr(Dato),1,2)
mm = mid (CStr(Dato),4,2)
else
dd = mid (CStr(Dato),4,2)
mm = mid (CStr(Dato),1,2)
end if
'check 2 eller 4 cifret årstal
if Len (CStr(CDate(36525))) = 8 then
yy = mid (CStr(CDate(Dato)),7,2)
else
yy = mid (CStr(CDate(Dato)),7,4)
end if
'mm = CInt(mm)
'dd = CInt(dd)
SQLDATO = mm & "-" & dd & "-" & yy
'else
' SQLDATO = dato
'end if
end function
</Script>
... og hvordan får jeg den til ligeledes at fremhæve den dato man efterfølgende trykker på???
