|
Sicer sem napisal na pamet in nisem preveril, ampak bi skoraj moralo delovati.
Popraviti je treba IF pogoj, da bo upošteval tudi sobote (Weekday(datum) = 7), torej bo tako delovni teden imel 5 dni.
If ( (Weekday(datum) = 1) OR (Weekday(datum) = 7) ) Then
|
|
|
Bi bilo mogoče napisat celoten postopek za tole zadnjo formulo, ker nekak mi ne gre...
|
|
|
Poskusi s tem:
Function DelovniDnevi(StartDate As Long, st_dni As Integer) As Long
Dim d As Long, dCount As Long
datum = StartDate
For d = 1 To st_dni
datum = datum + 1
If ( (Weekday(datum) = 1) OR (Weekday(datum) = 7) ) Then
datum = datum + 1
End If
Next d
DelovniDnevi = datum
End Function
Mislim pa, da sem v prvo narobe povedal in da moraš v funkciji ločiti parametre s podpičjem. Primer:
=DelovniDnevi(A1; B1)
|
|
|
Prva funkcija, ki ste jo napisali deluje, pri drugi funkciji pa bi bilo potrebno poleg sobote odšteti še nedelje, da bi imel delovni tedenen 5 delovnih dni.
Ker če uporabim drugo funkcijo izračuna isto število dni kot pri prvi funkciji, tako da je verjetno še kaj narobe v funkciji?
Hvala, lp
|
|
|
Sem zadnjič malo na hitro napisal in sem sedaj preveril in res ne deluje pravilno.
Naslednja koda pa bi morala delovati OK:
Function DelovniDnevi(StartDate As Long, st_dni As Integer) As Long
Dim d As Long, dCount As Long
datum = StartDate
For d = 1 To st_dni
datum = datum + 1
If (Weekday(datum) = vbSunday) Then
datum = datum + 1
ElseIf (Weekday(datum) = vbSaturday) Then
datum = datum + 2
End If
Next d
DelovniDnevi = datum
End Function
spremenil: podtalje (21.7.2011 ob 01.13.53)
|
|
|
Super. Funkcije delujejo. Zdej pa me zanima kje lahko spremenim ime funkcije, da bom lahko uporabljala obe hkrati (DelovniDnevi)?
|
|
|
V prvi vrstici imaš:
Function DelovniDnevi(StartDate ...
Tu lahko DelovniDnevi zamenjaš s poljubnim drugim imenom.
|
|
|
Super, hvala. Zdej pa deluje vse
|
|
|
Datum Peleti vreče Peleti kg Dni Pepel kg
2. december 2011 18 270 13 0,90
15. december 2011 17 255 -40892
Dni (A3-A2) to je 13 dni
A4-A3 to je -40892 zakaj ta številka če v tabeli še ni podan datum v celici A4
spremenil: marjanb2 (16.12.2011 ob 10.24.44)
|
|
|
Sem že ugotovil z if stavkom
|
|
Prikazujem 2 od skupno 3 strani |
|