Is het mogelijk om bij het openen van een bestand (alleen lezen) deze functie uit te voeren en in Cel D2 te plaatsen ?
Function Dagcode(dag)
l = Year(dag) - 2000: 'Jaarcode
'Berekening dagcode
If DateValue(Year(dag) + 1 & "-1-1") - DateValue(Year(dag) & "-1-1") > 365 Then
If Month(dag) > 2 Then k = 1 Else k = 0
Else
k = 0
End If
If dag = DateValue(Year(dag) & "-2-29") Then
Dagcode = 366
Else
Dagcode = Int(dag) - DateValue(Year(dag) - 1 & "-12-31") - k
End If
'Berekening uurcode
m = Hour(dag)
If Weekday(dag, 2) > 5 Then
If Hour(dag) >= 6 And Hour(dag) < 18 Then m = "A" Else m = "C"
Else
If Hour(dag) < 6 Then m = "C"
If Hour(dag) >= 6 And Hour(dag) < 14 Then m = "A"
If Hour(dag) >= 14 And Hour(dag) < 22 Then m = "B"
If Hour(dag) >= 22 Then m = "C"
End If
'Samenstelling dagcode
Dagcode = "L" & l & Format(Dagcode, "0") & 3 & m
End Function
Zodat als je het bestand opent hij automatisch in D2 de Dagcode invult ?
Function Dagcode(dag)
l = Year(dag) - 2000: 'Jaarcode
'Berekening dagcode
If DateValue(Year(dag) + 1 & "-1-1") - DateValue(Year(dag) & "-1-1") > 365 Then
If Month(dag) > 2 Then k = 1 Else k = 0
Else
k = 0
End If
If dag = DateValue(Year(dag) & "-2-29") Then
Dagcode = 366
Else
Dagcode = Int(dag) - DateValue(Year(dag) - 1 & "-12-31") - k
End If
'Berekening uurcode
m = Hour(dag)
If Weekday(dag, 2) > 5 Then
If Hour(dag) >= 6 And Hour(dag) < 18 Then m = "A" Else m = "C"
Else
If Hour(dag) < 6 Then m = "C"
If Hour(dag) >= 6 And Hour(dag) < 14 Then m = "A"
If Hour(dag) >= 14 And Hour(dag) < 22 Then m = "B"
If Hour(dag) >= 22 Then m = "C"
End If
'Samenstelling dagcode
Dagcode = "L" & l & Format(Dagcode, "0") & 3 & m
End Function
Zodat als je het bestand opent hij automatisch in D2 de Dagcode invult ?