25. januar 2005 - 23:08
Der er
1 kommentar og
1 løsning
find en dato udfra dag/uge/år numre
Jeg har 3 var. en dag(eks. 2) en uge(eks. 33) og et år(eks. 2003)
og skal bruge datoen (eks. 19-08-2003). det skal selvfølgelig virke uanset om man vælger år 2003-4-5-6 osv. og tage hånd om at der i nogle år findes 53 uger.
--------------------------------------
Jeg ved at "EagleEye" tidligere har anvist løsninger på noget ligende, så måske han kan hjælpe igen.
--------------------------------------
Jeg håber nogen kan hjælpe ??
26. januar 2005 - 00:50
#1
Nu er den anden dag i uge 33, 2003 godt nok d. 12/8, men... c",)
<%
' dansk datoformat
session.lcid = 1030
'udregning af dato
Function UgeTilDato(aar,uge,dag)
januar1 = DateSerial(aar, 1, 1)
ugedagjan1 = Weekday(januar1, vbMonday)
if ugedagjan1 <= 4 then
' 1. januar er i uge 1
mandaguge1 = DateAdd("d", -ugedagjan1+1, januar1)
else
' 1. januar er i sidste uge foregående år
mandaguge1 = DateAdd("d", 7-ugedagjan1+1, januar1)
end if
mandagugex = DateAdd("ww", uge-1, mandaguge1)
xdagugex = DateAdd("d", dag-1, mandagugex)
UgeTilDato = xdagugex
End Function
' dine variabler
varDay = "2"
VarWeek = "33"
VarYear = "2003"
'resultatet af dine variabler
response.write( CDate(UgeTilDato(VarYear, VarWeek, VarDay)) )
%>
