Weeknummer / Jaar naar datum

Door Jacco Engel, 19 jaar geleden, 8.427x 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

  1. weeknummer-jaar-naar-datum

 

Er zijn 3 reacties op 'Weeknummer jaar naar datum'

PHP hulp
PHP hulp
0 seconden vanaf nu
 

Gesponsorde koppelingen
RvW Of toch niet
RvW Of toch niet
19 jaar geleden
 
0 +1 -0 -1
Dank Jacco :)
Daan
daan
19 jaar geleden
 
0 +1 -0 -1
Grappig dit heb ik dus ook in VBA excel gemaakt

Code (php)
PHP script in nieuw venster Selecteer het PHP script
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
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
Jacco Engel
Jacco Engel
19 jaar geleden
 
0 +1 -0 -1
good 4 u, lijkt inderdaad enigsinds op elkaar.

Heb overigens openingspost aangepast met wat stukjes info

Om te reageren heb je een account nodig en je moet ingelogd zijn.

Inhoudsopgave

  1. weeknummer-jaar-naar-datum

Labels

  • Geen tags toegevoegd.

Navigatie

 
 

Om de gebruiksvriendelijkheid van onze website en diensten te optimaliseren maken wij gebruik van cookies. Deze cookies gebruiken wij voor functionaliteiten, analytische gegevens en marketing doeleinden. U vindt meer informatie in onze privacy statement.