2016-01-07 35 views
5

私は生産スケジュールを作成しています。 78分から時間までVBAの7:05(am)。これをどうやってやりますか?これは私がこれまで試してみました何ですが、私はエラー13種類を取得しています:不一致excel vbaで時間を分(hh:mm)分追加する

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

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

私はそれが私の変数寸法や私の時間のフォーマットとは何かを持っていると思っていますが、私は持っています何が間違っているのか分かりません。どんな助力も感謝しており、事前に感謝しています!

+0

使用この、変更を除く "D" から "N":http://stackoverflow.com/questions/16259166/add-x-number-of-days-to-a-date-with-vba -in-excel – PKatona

+1

@ScottCraner、ええ、あなたが私を訂正している間に私がコメントして「n」に編集すると、すぐに実現しました。 – PKatona

+0

これらの回答のどちらも機能しましたか?正しいものを1つ選択してください。 –

答えて

9

DATEADD機能を使用します。

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

"n" は分を意味します。

+0

「m」はなぜですか? "n"はVBAの意味ですか? (ちょっと好奇心) – BruceWayne

+4

「m」は「月」のため –

+3

@ BruceWayne私もそれを調べなければなりませんでした。したがってリンク。私はバックアップしたかった。 –

7

時刻は、doubleとする必要があります。時間は1日の小数部分です(1)。 0.5は正午、0.666666は午後4時です。私は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) 
関連する問題