Strona: [  << <   1   > >>  ]  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
Pokaż profil losmac  Wyślij email do losmac   Odwiedź stronę losmac  
Wszystkich odpowiedzi: 1 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1