• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

MS Excel

Téma: počet dnů mezi dvěma daty

Zaslal/a adosl 18.8.2014 10:10

v buňce B1 mám datum ve tvaru "14.4. - 18.4.2014" a potřeboval bych spočítat počet dnů mezi těmito daty. Vytvořil jsem tyto pomocné funkce

Function Cil(datumC)
Dim delkaRetezce As Long
Dim poZnak As Byte
delkaRetezce = Len(datumC)
poZnak = InStr(1, datumC, "-")
Kserazeni = Replace(Right(datumC, delkaRetezce - poZnak), " ", "")
Cil = Trim(Kserazeni)
End Function

Function Start(datumC)
Dim delkaRetezce As Long
Dim poZnak As Byte
delkaRetezce = Len(datumC)
poZnak = InStr(1, datumC, "-")
Kserazeni = Left(datumC, poZnak - 1)
rok = Right(datumC, 4)
Start = Trim(Kserazeni) & rok
End Function



a zkoušel jsem použít Cil - Start v makru VBA


Sub prepoctiCv()

Cil = Cil(Sheets("list1").Range("B1"))
Start = Start(Sheets("list1").Range("B1"))
vysledek As Long
vysledek = Cil.Value - Start.Value
Debug.Print vysledek

End Sub

, ale tam to zaboha nefunguje. Přitom pokud zapíšu do buňky vzorec =Cil(B1) - Start(B1) tak to funguje. Můžete mi s tím někdo pomoct.

Zaslat odpověď >

---

Palooo(18.8.2014 11:40)#021188

skuste to konvertnut na date a potom to odpocitavat

napr.
dim vysledek as Date

vysledek = CDate(Cil.Value) - CDate(Start.Value)citovat

Pavlus(18.8.2014 11:43)#021189

Máš tam problémy s datovými typy.

U funkcí bych definoval, co která vrací, tedy: Function Cil(datumC As String) As Date
Function Start(datumC As String) As DateNavíc některé proměnné nemáš definované vůbec (Kserazeni, rok).

V proceduře prepoctiCv pak nemáš definované proměnné Cil a Start, navíc používáš stejné názvy jako u funkcí, to bych nedělal. Výsledek lze spočítat v jednom řádku...

Sub prepoctiCv()
Dim vysledek As Long
vysledek = Cil(Sheets("List1").Range("B1").Value) - Start(Sheets("List1").Range("B1").Value)
Debug.Print vysledek
End SubP.citovat

adosl(18.8.2014 12:42)#021191

Můžete mi prosím předělat ten kod aby to fungovalo? Zkusil jsem použít vaše rady ale nejde to.citovat

Palooo(18.8.2014 12:49)#021192

alebo klasicky "=B3-C3"

napriklad takto:

Příloha: 21192_test.zip (11kB, staženo 29x)

citovat

Pavlus(18.8.2014 12:50)#021193

Když uděláš přesně to, co jsem napsal, tak to fungovat bude, zkoušel jsem to.
Jen si ještě nejsem jistý, zda víš, co dělá příkaz "Debug.Print vysledek" ;-). Google ti to případně prozradí, my nevíme, co přesně s tím výsledkem chceš dělat, takže nemůžeme ani více poradit...
P.citovat

Opičák(18.8.2014 12:52)#021194

Rozdíl jde samozřejmě i vzorcem, ale trochu nepřehledným i když v podstatě jednoduchým.

Příloha: 21194_rozdil-dnu-datum-txt.zip (7kB, staženo 29x)

citovat

Opičák(18.8.2014 13:15)#021195

tvoje upravené funkce - oranžové bunky

Příloha: 21195_rozdil-dnu-datum-txt2.zip (14kB, staženo 30x)

citovat

marjankaj(18.8.2014 13:29)#021196

Opičák napsal/a:

Rozdíl jde samozřejmě i vzorcem, ale trochu nepřehledným i když v podstatě jednoduchým.Příloha: 21194_rozdil-dnu-datum-txt.zip

No vymyslel som jednoduchší.
=IFERROR(TRIM(RIGHT(A2;LEN(A2)-FIND("-";A2)))-TRIM(LEFT(A2;FIND("-";A2)-1)&RIGHT(A2;4));"")citovat

Palooo(18.8.2014 13:30)#021197

aha, vy ste to potrebovali len v jednej bunke tak potom napriklad takto:

Public Function aCucajRok(ByVal aDate As String) As Date
aValue = Split(aDate, "-")
aCucajRok = CDate(aValue(0)) - CDate(aValue(1))
End Function

Příloha: 21197_test.zip (12kB, staženo 28x)

citovat

adosl(18.8.2014 21:36)#021203

Všem díky za pomoc a nejvíce Opičákovi za "21195_rozdil-dnu-datum-txt2.zip" to je to co jsem potřeboval, ikdyž moc nerozumím tomuto řádku:
Cil = Split(Cil, ".")(2) & "/" & Split(Cil, ".")(1) & "/" & Split(Cil, ".")(0)

,ale celkově to dělá přesně co jsem chtěl a po menší úpravě a dotvoření makra to počítá jak má.
Ještě jednou moc dík všem.citovat

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

Formulář Faktura

Helios iNuvio

On-line nástroje