एक्सेल vba

Question

में एक समय में मिनट (एचएच: मिमी) जोड़ें मैं उत्पादन शेड्यूल कर रहा हूं, और पूर्व जोड़ना चाहता हूं। एक समय पूर्व में 78 मिनट। वीबीए में 7:05 (एमएम)। मैं ऐसा कैसे कर पाऊंगा? यह वही है मैं अब तक की कोशिश की है, लेकिन मैं एक त्रुटि 13 प्रकार हो रही है: बेमेल

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

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

मैं सोच रहा हूँ कि यह मेरे चर आयाम या मेरे समय की प्रारूप के साथ कुछ है, लेकिन मेरे पास है मुझे नहीं पता कि मैं क्या गलत कर रहा हूं। किसी भी मदद की सराहना की है, और अग्रिम धन्यवाद!

Answer 1

DATEADD समारोह का उपयोग करें:

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

"n" मिनट का मतलब है।

Answer 2

टाइम्स को डबल इस प्रकार के लिए वर्र्स माना जाना चाहिए। समय एक दिन का दशमलव भाग (1) है। 0.5 दोपहर है और 0.666666 04:00 बजे है। मैंने पाया है कि TimeSerial function तिथियों के निर्माण के लिए अच्छा है।

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)