Lemur zaprasza
Strona: [ > ] z 1 Autor Temat: jak odejmować czas anonim Typ: Nie zarejestrowany jak odejmować czas ak odejmować czas ? Timevalue("00:100" + Timevalue("0010" wynik: 00:110 spoko ? Timevalue("00:100" - Timevalue("0010" wynik: 0.00625 Co to za wynik? W radianach czy innych jednostkach? Jak odejmować czas żeby wynik był w formacie hh:mm:ss ? 29-07-2003 21:04 losmac "profesorek" Typ: neutral Postów: 758 Zarejestrowany: May 2003 Trochę o czasie... Funkcja TimeValue() zwraca wartość typu Variant (Date) zawierającą godzinę. Czyli każda data i godzina jest tak naprawdę wartością liczbową!!! Popatrz na to: Sub JakiCzas() Dim godz_po As Long Dim min_po As Long Dim sek_po As Long Dim moj_czas As String godz_po = DateDiff("h", CDate(TimeValue("00:100"), CDate(TimeValue(Now))) min_po = DateDiff("n", CDate(TimeValue("00:100"), CDate(TimeValue(Now))) sek_po = DateDiff("s", CDate(TimeValue("00:100"), CDate(TimeValue(Now))) moj_czas = TimeSerial(godz_po, min_po, sek_po) MsgBox moj_czas, , "nowy czas" End Sub _____________________________________________ POSTULATY STARUSZKA: 1) Ludzie, dbajcie o polszczyznę!!! 2) Ludzie, zadawajcie kompletne pytania, a nie rzucacie ochłapy i trzeba się domyślać o co chodzi!!! Powodzenia Maciej Łoś 29-07-2003 21:59 Wszystkich odpowiedzi: 1 :: Maxymalnie na stronę: 20 Strona: [ > ] z 1 |