Hinzufügen Minuten zu einer Zeit (hh: mm) in Excel Vba

Ich mache einen Produktionsplan, und möchte Ex hinzufügen. 78 Minuten zu einer Zeit ex. 7:05 (morgens) in VBA. Wie würde ich das machen? Dies ist, was ich bisher versucht, aber ich bin immer einen Fehler 13 Typ: MismatchHinzufügen Minuten zu einer Zeit (hh: mm) in Excel Vba

Dim TUntilPump As Integer 
Dim TFPump As Long, TStartPump As Long 

TUP = 78 
TFP = Time(0, TUP, 0) 
TSP = Time(7,05,0) + TFP

Ich denke, es hat etwas mit meinen variablen Abmessungen oder das Format von meiner Zeit zu tun, aber ich habe keine Ahnung, was ich falsch mache. Jede Hilfe wird geschätzt, und danke im Voraus!

Quelle

2016-01-07 FruitUser

verwenden, außer der Veränderung "d" bis "n": http://stackoverflow.com/questions/16259166/add-x-number-of-days-to-a-date-with-vba -in-excel – PKatona

@ScottCraner, yeah, wurde mir klar, sobald ich sie kommentierte und auf "n" editierte, während du mich korrigierst. – PKatona

hat eine dieser Antworten funktioniert? Bitte wählen Sie einen als richtig aus. –

verwenden, um die Funktion DATEADD:

TRP = dateadd("n",78,"7:05:00")

die "n" bedeutet Minuten.

Quelle

2016-01-07 21:06:54

Warum nicht "m"? Was bedeutet "n" für VBA? (Nur neugierig) – BruceWayne

Weil 'm' für' Monat' steht –

@BruceWayne Ich musste es auch nachschlagen. Daher der Link. Ich wollte zurück. –

Zeiten sollten berücksichtigt werden Doppel Typ Vars für diese. Die Zeit ist ein dezimaler Teil eines Tages (1). 0,5 ist Mittag und 0,6666666 ist 04:00 Uhr. Ich habe festgestellt, dass die TimeSerial function ist gut für die Konstruktion von Daten.

dim TFP as double, TSP as double, TUP as integer 

TUP = 78 
TFP = TimeSerial(0, TUP, 0) 
TSP = TimeSerial(7, 5, 0) + TFP 
'alternate 
TSP = TimeSerial(7, 5 + TUP, 0)

Quelle

2016-01-07 21:08:37 Jeeped

Hinzufügen Minuten zu einer Zeit (hh: mm) in Excel Vba

Antwort

Verwandte Themen