Zmaga.com Prijava in registracija

Domov > Računalništvo > Microsoft Office > Microsoft Excel > Excel vodiči Koliko dni je minilo?

Avtor: NikMan | Objavljeno: dne 22. februar 2008, 12:02 Dodaj med priljubljene

V dve različni celici bomo vpisali dva različna datuma in potem izračunali število dni med njima.

Komentiraj

kaval Objav: 108		10.3.2010, 10:31 Zdravo Naredil sem točno, kot je opisano, pa mi ne izračuna število dni pač pa neki nov datum. Kaj je narobe

podtalje Administrator Objav: 9019		10.3.2010, 11:11 Spremeni format celice (desni miški gumb na celico) ter določi, da to polje vsebuje številko. spremenil: podtalje (11.9.2010 ob 00.13.02)

grizek Objav: 35		10.9.2010, 18:24 deluje zelo dobro za računat

tamicena Objav: 23		28.6.2011, 19:49 Kako izračunati tole: Npr. prvi dan je 10.5.2011, kateri je 30 delovni dan, če je delovnih 6 dni v tednu? Katero funkcijo naj uporabim za izračun 31 delovnega dneva? (excel) [Prihodnjič izključi Caps Lock, te bomo ravno tako razumeli in ti skušali pomagati. ] spremenil: Matej V. (28.6.2011 ob 20.58.55)

tamicena Objav: 23		3.7.2011, 9:56 dobro bom izključila, ampak vseeno me zanima če ste razumeli moje vprašanje? Hvala

podtalje Administrator Objav: 9019		3.7.2011, 14:37 Mislim, da je vprašanje jasno. Večji problem je odgovor na vprašanje. Za podobne namene se sicer uporablja funkcija WORKDAY, ki izključi vikende in praznike. Vendar pa je v tvojem primeru zahteva, da ima delovni teden 6 dni, kar pa ni ravno običajno, zato trenutno ne vem za nobeno funkcijo, ki bi ji lahko uporabil. Trenutno mi pade na pamet edina rešitev, da bi napisal novo funkcijo v VBScriptu, za kar pa je potrebno že nekaj znanja programiranja.

tamicena Objav: 23		4.7.2011, 20:25 Hvala za odgovor. Sem poskusila že tudi s funkcijo workday, za kar pa mi ta funkcija čisto ne odgovarja. Upam, da dobimo kdaj tudi to funkcijo na to stran, ker bi bila zelo uporabna pri našem delu. Lep pozdrav

podtalje Administrator Objav: 9019		5.7.2011, 0:08 Sedaj sem na hitro pripravil en skript: 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 Then 'Nedelja datum = datum + 1 End If Next d DelovniDnevi = datum End Function Funkcijo prilepiš v VBScript modul v dokument, nato pa jo lahko uporabljaš normalno v celicah, npr.: =DelovniDnevi(A1,B1) Omenjena funkcije vzame kot parameter začetni datum (A1) ter število dni (B1), nato pa izračuna, kateri datum bo čez toliko dni. Pri tem se nedelje preskočijo, kar potem ustreza 6 delovnim dnem v tednu. Se pa prazniki tu zaenkrat ne upoštevajo, tako da ne vem, če bo kaj uporabno zate.

tamicena Objav: 23		13.7.2011, 8:43 Hvala za zelo koristno formulo, sedaj pa bi vas samo še prosila, če lahko iz te formule izračunam, če ima teden 5 delovnih dni, da potem dobim 31. dan. Ker če uporabim formulo workday je zelo zamudno, ker moram označiti praznike in vikende, pa še ugibati je potrebno kateri naj bi bil 31. dan? Hvala

podtalje Administrator Objav: 9019		13.7.2011, 11:32 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

tamicena Objav: 23		14.7.2011, 8:05 Bi bilo mogoče napisat celoten postopek za tole zadnjo formulo, ker nekak mi ne gre...

podtalje Administrator Objav: 9019		14.7.2011, 17:26 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)

tamicena Objav: 23		20.7.2011, 13:36 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

podtalje Administrator Objav: 9019		21.7.2011, 1:13 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)

tamicena Objav: 23		21.7.2011, 7:35 Super. Funkcije delujejo. Zdej pa me zanima kje lahko spremenim ime funkcije, da bom lahko uporabljala obe hkrati (DelovniDnevi)?

podtalje Administrator Objav: 9019		21.7.2011, 17:00 V prvi vrstici imaš: Function DelovniDnevi(StartDate ... Tu lahko DelovniDnevi zamenjaš s poljubnim drugim imenom.

tamicena Objav: 23		22.7.2011, 9:02 Super, hvala. Zdej pa deluje vse

marjanb2 Objav: 5		16.12.2011, 9:55 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)

marjanb2 Objav: 5		16.12.2011, 10:25 Sem že ugotovil z if stavkom

renataa Objav: 11		15.1.2018, 14:45 A bi mi lahko naredili še funkcijo, če delavec dela 4 ure na teden. Hvala in lep pozdrav.

Za komentiranje morate biti prijavljeni.

Prijava in registracija