No.1ベストアンサー
- 回答日時:
左から2桁、右から2桁取り出し、数値に変換して、分に換算して引き算します。
>時間の平均計算の方法はどうしたらいいですか?
分でも秒でもいいので、単位を揃えて、全部足して、個数で割ります。
----------------------------------------------------------------
Public Sub Sample()
Dim STime As String 'HHMM'
Dim ETime As String
Dim SM As Long, EM As Long
Dim DiffM As Long
STime = "0820" '入力した文字列
ETime = "1710"
SM = StrToTime(STime) '分に換算
EM = StrToTime(ETime)
DiffM = EM - SM '引く
MsgBox DiffM & "分" '530分
MsgBox aveM(StrToTime("0820"), StrToTime("1710"), StrToTime("1550")) & "分" 'それぞれ分に換算して平均を出す
End Sub
Public Function StrToTime(t As String) As Long
'"HHMM" 形式の文字列を分を基準とする時間に変換する
StrToTime = CLng(Left(t, 2)) * 60 + CLng(Right(t, 2))
End Function
Public Function aveM(ParamArray Ms()) As Double
Dim n As Integer
Dim sum As Double
Dim x
sum = 0#
n = 0
For Each x In Ms
sum = sum + x '引数を全部足す
n = n + 1 '引数の個数を数える
Next
aveM = sum / n '合計を個数で割る(平均)
End Function
No.2
- 回答日時:
「:」付け加えたらどうですかね。
Dim D1 As String
Dim D2 As String
Dim T1 As Date
Dim T2 As Date
Dim Z As Long
D1 = "0820"
D2 = "1710"
T1 = Mid(D1, 1, 2) & ":" & Mid(D1, 3, 2)
T2 = Mid(D2, 1, 2) & ":" & Mid(D2, 3, 2)
Z = (T2 - T1) * 1440
Debug.Print T1, T2, Z
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- その他(Microsoft Office) 時間の平均値を計算する方法を教えて。 1 2023/08/06 12:02
- その他(開発・運用・管理) 時間給の計算方法をお教えください 2 2022/06/01 12:21
- 人事・法務・広報 4月からの残業60時間以上の割増の計算式 2 2023/03/14 14:44
- その他(Microsoft Office) Excelで時間計算(負) 8 2023/02/26 05:47
- Excel(エクセル) 表計算ソフトcalcにおいて、1時間10分を1.1と表記する方法とそれらを集計する方法は? 4 2022/04/06 16:54
- Excel(エクセル) 【スプレッドシート】日報を統合して各業務の所要時間をピボットで表示したい 1 2023/07/06 16:49
- アルバイト・パート パートで1時間当たりの時給が違う場合に自動で給料計算する方法はありませんか? 6 2023/08/28 13:46
- 数学 平均の速さの求め方について質問させて頂きます。 12 2023/08/09 17:13
- その他(法律) 有給金額の計算について 5 2023/06/23 17:44
- 建設業・製造業 土量算出 3 2022/09/26 19:57
関連するカテゴリからQ&Aを探す
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Accessのクエリの値を変換(代入...
-
Matlabで群遅延特性
-
カラーコード 濃くしたい
-
単位計算のアルゴリズム
-
時間領域と周波数領域
-
秒数を入力すると○時間○分○秒と...
-
FORTRANの課題
-
アウトルックが起動しているか...
-
chatgpt 4oを使っています。あ...
-
vba 時間の引き算 例えば 15:00...
-
Designer.vbは直接コードをいじ...
-
意味不明の実行時エラーで困っ...
-
excel vbaから実行するexe実行...
-
Visual Studio 「AnyCpu」について
-
「読み込み違反」が起きたとき...
-
VBAでOutlookを終了させたい Ex...
-
ビルドが実行できない 先へ進...
-
EXCEL VBAから他アプリケーショ...
-
実行ファイルへのドラッグ&ド...
-
Windows PowerShellでC言語を実...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
matplotlibで任意の角度の円弧...
-
Accessのクエリの値を変換(代入...
-
画像を二次元フーリエ変換
-
VB2013での時間帯判定で困って...
-
経過日数を調べたい
-
VB2010で、時刻と時間の計算に...
-
秒数を入力すると○時間○分○秒と...
-
DateDiff関数の怪!?
-
電卓の作成 VB
-
時間領域と周波数領域
-
C言語のプログラム
-
Matlabで群遅延特性
-
カラーコード 濃くしたい
-
あと何日or何日目?を計算する方法
-
c言語またはVBのSin Cos Tan
-
VBで時間計算の方法
-
2進数を10進数にする方法
-
擬似マインスイーパー
-
Visual Basicで多角形を描くプ...
-
精度を上げたいのですが…
おすすめ情報