Thema Datum  Von Nutzer Rating
Antwort
25.03.2013 10:08:50 Leo
NotSolved
25.03.2013 13:23:44 Gast33181
NotSolved
25.03.2013 13:49:54 Leo
NotSolved
Blau Was bedeutet .value bei Uhrzeiten?
 25.03.2013 20:03:47 Gast33181
NotSolved
26.03.2013 14:22:55 Leo
Solved

Ansicht des Beitrags:
Von:
Gast33181		 Datum:
25.03.2013 20:03:47		 Views:
620		 Rating:
     
Antwort:
  Ja
Thema:
Was bedeutet .value bei Uhrzeiten?

Ich schätze mal du willst die Zeit bestimmen die dazwischen liegt ...

Option Explicit

Sub blablub()
  
  Dim dtVon(1 To 2) As Date
  Dim dtBis(1 To 2) As Date
  
  dtVon(1) = "00:30:00": dtVon(2) = "23:30:00"
  dtBis(1) = "23:30:00": dtBis(2) = "00:30:00"
  
  Dim tmp As String
  Dim i As Long
  
  For i = 1 To 2
    tmp = tmp & IIf(tmp <> "", vbNewLine & vbNewLine, "") & _
            dtVon(i) & " - " & dtBis(i) & " = " & IrgendEinGerassel(dtVon(i), dtBis(i))
  Next
  
  MsgBox tmp
  
End Sub

Function IrgendEinGerassel(ZeitVon As Date, ZeitBis As Date) As Date
  
  Dim t1 As Date
  Dim t2 As Date
  
  t1 = DateAdd("d", 1, Format$(ZeitVon, "dd.mm.yyyy")) & " " & TimeValue(ZeitVon)
  t2 = DateAdd("d", 1 + Abs(ZeitVon > ZeitBis), Format$(ZeitBis, "dd.mm.yyyy")) & " " & TimeValue(ZeitBis)
  
  IrgendEinGerassel = t1 - t2
  
End Function

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
25.03.2013 10:08:50 Leo
NotSolved
25.03.2013 13:23:44 Gast33181
NotSolved
25.03.2013 13:49:54 Leo
NotSolved
Blau Was bedeutet .value bei Uhrzeiten?
 25.03.2013 20:03:47 Gast33181
NotSolved
26.03.2013 14:22:55 Leo
Solved