Weeknummer / Jaar naar datum
Door Jacco Engel, 19 jaar geleden, 8.489x bekeken
Ik heb hier enkel wat dingen in getweaked.
Het bronscript is te vinden op:
http://www.phpfreakz.nl/library.php?sid=21321
En alle credits gaan dan ook naar de maker van dit script.
Gesponsorde koppelingen
PHP script bestanden
Er zijn 3 reacties op 'Weeknummer jaar naar datum'
0 
-0 
-0
Grappig dit heb ik dus ook in VBA excel gemaakt
Code (php)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
Public Function daynumber(weeknumber, dag)
iYear = 2009
iWeekday = dag
iWeek = weeknumber + 1
fnDateFromWeek = _
DateSerial(iYear, 1, ((iWeek - 1) * 7) + iWeekDday - Weekday(DateSerial(iYear, 1, 1)) + 1)
vDate = fnDateFromWeek
'vDate = DateAdd("yyyy", 0, "01/01/2009")
If Weekday(vDate, vbSunday) = 2 Then
mon_date = vDate
Else
mon_date = vDate - Weekday(vDate, vbSunday) + 2
End If
Select Case dag
Case Is = 1
dag = 0
Case Is = 2
dag = 1
Case Is = 3
dag = 2
Case Is = 4
dag = 3
Case Is = 5
dag = 4
Case Is = 6
dag = 5
Case Is = 7
dag = 6
End Select
daynumber1 = DateAdd("d", dag, mon_date)
daynumber = Format(daynumber1, "yyyymmdd")
End Function
iYear = 2009
iWeekday = dag
iWeek = weeknumber + 1
fnDateFromWeek = _
DateSerial(iYear, 1, ((iWeek - 1) * 7) + iWeekDday - Weekday(DateSerial(iYear, 1, 1)) + 1)
vDate = fnDateFromWeek
'vDate = DateAdd("yyyy", 0, "01/01/2009")
If Weekday(vDate, vbSunday) = 2 Then
mon_date = vDate
Else
mon_date = vDate - Weekday(vDate, vbSunday) + 2
End If
Select Case dag
Case Is = 1
dag = 0
Case Is = 2
dag = 1
Case Is = 3
dag = 2
Case Is = 4
dag = 3
Case Is = 5
dag = 4
Case Is = 6
dag = 5
Case Is = 7
dag = 6
End Select
daynumber1 = DateAdd("d", dag, mon_date)
daynumber = Format(daynumber1, "yyyymmdd")
End Function
0 -0
-0
good 4 u, lijkt inderdaad enigsinds op elkaar.
Heb overigens openingspost aangepast met wat stukjes info
Heb overigens openingspost aangepast met wat stukjes info
Om te reageren heb je een account nodig en je moet ingelogd zijn.
PHP hulp
0 seconden vanaf nu