Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

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(r) von euch hat eine Lösung für mich und bedanke mich im voraus.

LG
Wilfried
Antworten 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 Nutzer sagt Danke an Winny für diesen Beitrag:
  • Wilfried
Antworten Top
#3
Hallo Winny,

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

Durch TimeValue kann ich sogar mit Strings rechnen.

LG
Wilfried
Antworten Top


Gehe zu:


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