VB6 Problem oko sabiranja vremena

[kakanjinfo]

E ovako dragi forumasi:
Imam jedan problem pravim administratorski program za internet caffe admin ali nesto neznam napraviti pa se nadam da cete mi vi pomoci
stavr je u tome da sam napravio da se na racunar moze pustiti određeno vrijeme ali me interesuje kako da nastimam da administrator moze da produzi to vrijeme znaci ako je korisniku ostalo 5 min i kada administrator produzi vrijeme za 30 min da se korisniku pise preostalo 00:35:00 min
jeli sada jasno
ali ja kada bi produzivao tovrijeme ja bih rucno u jedan textbox upisivao koliko zelis produziti vrijeme
pa milio bih za pomoc

[Stevvan]

Ne znam VB, ali ovo za dodavanje vremena bi trebalo da je jednostavno. Samo iscitas postojece vreme (ono je varabla ako se nevaram) i na njenu vrednost dodas koliko zelis. Sad verovatno se vreme zapisuje samo u sekundama a korisniku se konvertuje i prikazuje kao sati, minuti i sekunde. Stoga kad ti napises 30 min njih treba konvertovati u sekunde itd... Nadam se da sam pomogao

[Marko_L]

Najlakše ti je da sve pretvoriš u sekunde, sabereš, i onda vratiš u hh:nn:ss prikaz. Dakle, uzmeš postojeće preostale vreme, nek je 5 minuta i 17 sekundi, pa razložiš i sabereš. Nešto ovako (pod uslovom da si očitano vreme smestio u vraijablu dTime_Left, a da je vreme koje želiš da dodaš upisano u minutima u Text1.Text)

Dim lSeconds As Long
lSeconds = Second(dTimeLeft)
lSeconds = lSeconds + Minute(dTime_Left) * 60
lSeconds = lSeconds + Hour(dTime_Left) * 60 * 60
lSeconds = lSeconds + Val(Text1.Text) * 60

A onda vratiš u željeni format i prikažeš gde hoćeš

MsgBox lSeconds \ 3600 & ":" & (lSeconds Mod 3600) \ 60 & ":" & (lSeconds Mod 3600) Mod 60