Das Clever-Excel-Forum.de - Treffen
findet vom 15. - 17. September 2017 in Thüringen / Region Großer Inselsberg statt. Hotelbuchung ab sofort möglich.


Text in Uhrzeit wandeln
#1
Hallo,

ich habe ein Form in das ich Uhrzeiten (Arbeitszeiten) eingebe.

wenn ich die Felder auslese, bekomme ich den Inhalt als Text(in Hochkommas)

Um mit den Werten rechne zu können brauche ich die Werte als Uhrzeit.

Code:
Private Sub aze_Click()
'    azende = Date
'    azende = Format(Time, "hh:nn")
'    frmzeiterfassung.txtaze = azende
   

   'Berechnungen

   
   azbegin = frmzeiterfassung.txtazb
   azbegin = CDate(azbegin)
   azbegin = Format(azbegin, "hh:nn")
   
   azende = frmzeiterfassung.txtaze
   azende = CDate(azende)
   azende = Format(azende, "hh:nn")
   
   pbegin = frmzeiterfassung.txtpb
   pbegin = CDate(pbegin)
   pbegin = Format(Time, "hh:nn")
   
   pende = frmzeiterfassung.txtpe
   pende = CDate(pende)
   pende = Format(Time, "hh:nn")
   
   gesaz = azende - azbegin
   gesaz = Format(gesaz, "hh:nn")
   
   gesp = pende - pbegin
   gesp = Format(gesp, "hh:nn")
   
   gestag = gesaz - gesp
   gestag = Format(gestag, "hh:nn")
   
   frmzeiterfassung.txtgesaz = gestag
   
End Sub

zum Verständnis.

die auskommentierten Zeilen geben mir die Systemzeit an. Zu Testzwecken habe ich die Text felder mit werten belegt.
azbegin = Arbeitszeit Beginn
azende = Arbeitszeit Ende
pbegin = Pausen Beginn
pende = Pausen Ende
gesaz = Gesamtarbgeitszeit
gesp = Gesamt Pausenzeit
gestag = Gesamtarbeitszeit des Tages

Alle Variablen sind als Variant deklariert. Mit Date und Time kam ich nicht zum Ziel. Huh
ich möchte nur den Wert aus den Textfeldern in Uhrzeit wandeln.

Ich hoffen eine® von euch hat eine Lösung für mich und bedanke mich im voraus.

LG
Wilfried
to top
#2
Hi

hiermit kannst Du rumspielen
Code:
Option Explicit

Sub Zeit()
  Dim Kommt As String, Geht As String
  Dim Anwesend As Date
 
  Kommt = "07:35"
  Geht = "18:25"
  Anwesend = TimeValue(Geht) - TimeValue(Kommt)
  MsgBox Anwesend
End Sub
Grüße,
Winny
[-] Folgende(r) 1 Benutzer sagt Danke an Winny für diesen Beitrag:
Wilfried
to top
#3
Hallo Winny,

zunächst einmal vielen Dank für deinen Tipp.

Durch TimeValue kann ich sogar mit Strings rechnen.

LG
Wilfried
to top


Möglicherweise verwandte Themen...
Thema Verfasser Antworten Ansichten Letzter Beitrag
  Datum/Uhrzeit automatisch eintragen Marius4444 13 236 05.11.2016, 14:08
Letzter Beitrag: schauan
Photo Wenn Abfrage bei Berechnete Uhrzeit erst nach Mitternacht adamelsheimer 14 428 20.08.2016, 22:57
Letzter Beitrag: adamelsheimer
  Uhrzeit als Schichtzuteilung MATTIS2016 5 207 17.08.2016, 19:16
Letzter Beitrag: MATTIS2016
  Datum und Uhrzeit in der X Achse gentlel 4 335 26.07.2016, 19:27
Letzter Beitrag: schauan
  Zelleninhalt im Format hh:mm in Format hh:mm:ss wandeln fanthomas 36 1.311 19.07.2016, 16:06
Letzter Beitrag: shift-del
  Bei Bestimmter Uhrzeit wert eintragen pilger00 1 194 18.07.2016, 12:55
Letzter Beitrag: gbr
  MsgBox bei uhrzeit aus Zelle magro24 4 406 13.07.2016, 15:55
Letzter Beitrag: schauan
  Uhrzeit Felix 14 876 03.06.2016, 16:52
Letzter Beitrag: schauan
  Messdatei auswerten aus Uhrzeit Zeit berechnen und suchen chris13u 7 594 25.05.2016, 09:02
Letzter Beitrag: chris13u
  Uhrzeit mit mit ner Zahl aus Textbox adieren will dazu lernen 21 908 13.05.2016, 20:16
Letzter Beitrag: will dazu lernen

Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste