VBA Excel racunanje vremena koje je vece od 24 sata

[ hrg @ 24.02.2025. 15:28 ] @

dobar dan

Format celija je general (@), string. Unutra je vrijeme od 01:00:00 do 34:00:00.
Vrijeme od 24 sata na više je vrijeme koje je sljedeći dan. 00 je 24 sata, 01 je 25 sati, 02 je 26 sati itd
A1="24:05:05". funkcija timeValue(A1) daje grešku, ne pokazuje ništa.
Ako funkcijom pretvorim sate u vrijednost 1 do 00 kod racunanja diff(endTime-startTime) ne pokazuje mi dobro jer broj sati izmedu 1 sat danas i 2 sata drugog dana nije 1 sat vec 26-1=25 sati.

Ja sam razmisljao dodavanje danasnjeg datuma u celije koje su do 24 sata, a u celije sa 24 i naviše dodavati današnji datum + 1 dan (DateAdd(days,"1",A1) pa onda racunati ali mi se cini moja ideja prekoplicirina.

Ima li netko ideju kako bi riješio taj problem.

[ 3okc @ 24.02.2025. 15:44 ] @

Zašto string!? "Vreme" je u Excelu -broj a za unete brojeve onda rade i funkcije. Prvo odluči šta je na prvom mestu, Excelov format, ili tvoj. Ako hoćeš po svome, napravi tablicu sa strane iz koje ćeš iščitavati šta konkretno koji string treba da znači brojčano pa, pre funkcije, izvlači te vrednosti.

Alternativno, možeš da razbiješ unos vremena na individualne ćelije i da sate unosiš celobrojno (i minute itd, zasebno).

[ Jpeca @ 25.02.2025. 09:39 ] @

Ako ti je bio problem da primeniš format vremena na vrednosti preko 24 h koristiš Custom format [h]:mm:ss. I onda ne bi trebalo da bude problema u oduzumanju, sabiranju

[ hrg @ 25.02.2025. 12:02 ] @

da to radi što se tiće table. Ako je formatirano kao tekst pokazat će decimalni broj.
Ja sam zapeo u VBA,

Code:

Sub proba()

    Dim red As Integer
    Dim datumVrijeme As String
    Dim danasnjiDatum As Date
    Dim vrijeme As String

    danasnjiDatum = Format(Now(), "dd.mm.yyyy")

    For red = 1 To 3
        vrijeme = Cells(red, 1).Text
        datumVrijeme = danasnjiDatum + TimeSerial(Left(vrijeme, 2), Mid(vrijeme, 4, 2), Right(vrijeme, 2))
        MsgBox datumVrijeme
    Next red

    Stop
End Sub

24:19:00
23:19:00
27:12:00

dodajem danasnji datum svakoj kucici i kada je vrijeme veće od 24 on automatski uveca datum za 1 dan

Ne znam što će biti kasnije, da li ću zaglaviti u formatiranju celija. Možda i odustanem od svega :)

[ 3okc @ 25.02.2025. 12:43 ] @

Excel već sam "uveća" za dan jer on tako i računa vreme. Prikaz u satima i minutima itd je tek jedna od opcija za izlazni format jedne iste brojčane vrednosti (dakle koja nije tekst).

Tu brojčanu vrednost recimo možeš predstaviti i kao razlomak - unesemo =25/24 i rezultat će biti dugačka decimalna vrednost veća od 1. Kada je formatiraš u h:mm:ss videćeš samo odsečak unutar 24h što je ograničenje ovog formata ali ako uneseš za format [h]:mm:ss prikazaće vrednosti i preko 24. Itd.

[ djoka_l @ 25.02.2025. 12:44 ] @

Zaboga, stavi kao primer excel sa tetnim podacima koji ti prave problem, umesto da pogađamo.
Ovde pišeš jednu stvar, pa drugu, a nigde nema primeera. Treba da ti čitamo misli?

[ hrg @ 25.02.2025. 14:59 ] @

ne znam zakačit za poruku ni sliku ni fajl. nemogu naći kako se to radi

[ djoka_l @ 25.02.2025. 15:03 ] @

Pogledaj svoju poslednju poruku. Imaš tster upload uz poruku.
Dakle, prvo ostaviš poruku, onda na upload dodaš fajl

[ Jpeca @ 25.02.2025. 19:02 ] @

Citat:

hrg:
ne znam zakačit za poruku ni sliku ni fajl. nemogu naći kako se to radi

https://www.elitesecurity.org/t326656-0#2161587

U tvom kodu ima jedan problem danasnjiDatum deklarišeš kao Date a onda mu dodelješ string - Format?

Može jednostavno
danasnjiDatum = Date

U tom slučaju ako su ovo kod tebe navedeno ulazni podaci u MsgBox dobijam:
27/02/2025 00:19:00
26/02/2025 23:19:00
27/02/2025 03:12:00

Nisam razumeo šta očekuješ kao rezultat?

_{[Ovu poruku je menjao Jpeca dana 26.02.2025. u 09:04 GMT+1]}

[ hrg @ 26.02.2025. 09:27 ] @

dobro jutro
nevjerojatno, juce sam htio uploadat i više puta sam pročitao ovo:

23. Upload fajla uz poruku.
Ako želite da uploadujete neki fajl uz vašu poruku, kliknite na link “Upload uz poruku” koji se nalazi ispod vaše poruke. U polje Izbor fajla upišite adresu do fajla koji se nalazi na vašem disku. Preporučljivo je da koristite “Izaberi” dugme sa kojim ćete sami moći da pronađete fajl.
Kada završite se izborom fajla, pritisnite dugme “Upload” i fajl će biti uploadovan. Fajlove možete uploadovati najviše 24h od slanja poruke. Kada uploadujete fajl, svi će moći da ga downloaduju iz vaše poruke. Link će se pojaviti u dnu poruke.

ispod moje poruke se nalaze dvije kucice: smajliji u ovoj poruci i obaveštavanje emailom o novim odgovorima
ispod toga : pogledaj kako odgovor izgleda i Pošalji odgovor

sa lijeve strane poruka instant dodavanja: url [att_img][att_url]

jedino da neki servis za upload slika

[att_img]https://imgur.com/a/FIraM1b[att_img]
slika

uspio, pojavilo se nakon slanja poruke. neobicno malo ali ok

_{[Ovu poruku je menjao hrg dana 26.02.2025. u 10:41 GMT+1]}

pitanje:
Kako sa vba formatirati celiju kao korisnicku [h]:mm:ss?

_{[Ovu poruku je menjao hrg dana 26.02.2025. u 11:44 GMT+1]}

[ Jpeca @ 26.02.2025. 17:50 ] @

Citat:

Kako sa vba formatirati celiju kao korisnicku [h]:mm:ss?

Code:
Range("A1").NumberFormat = "[h]:mm:ss"

U principu kad nisi siguran oko konkretne sintakse možeš da snimiš makro koji odradi to što ti treba i onda pogledaš kod i izbaciš višak. ChatGPT će isto poslužiti u većini situacija.

[ hrg @ 27.02.2025. 12:49 ] @

da, snimanje makronaredbe mi je znalo pomoći.
zahvaljujem

[ 3okc @ 20.03.2025. 08:43 ] @

Suvišno ti je pretvaranje vremena iz teksta u broj s obzirom da aritm. operacije to odrade u letu.

Drugo, da bi izbegao grešku koja se dešava kod negativne vrednosti za vreme, koristi MOD(1), odnosno >1 vrednost za mogućnost da broj sati prelazi nx24 sata.

_{[Ovu poruku je menjao 3okc dana 20.03.2025. u 09:56 GMT+1]}