日付の計算

質問

ＶＢ6.0　ACCESS2000で開発しています。
下の様に開始時間と終了時間をテキストボックスに入力して
ACCESSへ書き込んでいますが
例えば
作業開始が2：20で作業終了が4：50
ならは作業が2：30となりますが
これを作業を2.5としたいのですがどうすればいいでしょうか？
お願いします。
With rst
.AddNew
![作業開始] = Text1.Text & ":" & Text2.Text
![作業終了] = Text3.Text & ":" & Text4.Text
![作業] = Text1.Text - Text3.Text & ":" & Text2.Text - Text4.Text
.Update
End With

回答No.2

dsuekichi · ベストアンサー

> ＶＢ6.0
なら、「DateDiff 関数」で「分単位」の差分を求めて、「６０で割る」とか・・・

お礼

教えていただいた通りしたところ
出来ました。
ありがとうございます。

回答No.3

otto0001otto

Dim jStart As Data
Dim jEnd As Date
Dim jTime As Single

jStart = "2:20"
jEnd = "4:50"
jTime = (jEnd - jStart) * 24
Debug.Print jTime

元の数には日付も入れられます。

回答No.1

miracle3535

覚えている範囲での考え方を記します。
２：３０を「２」と「３０」
「３０」をＶＡＬ関数で数値にし、それを６０で割ってください。
そうすれば「0.5」になります。
これをSTR$関数で文字にし、「.5」だけ取り出し
「2」と言う文字と「.5」の文字列を足してください。
他にも方法があると思いますが、簡単に思いついたアルゴリズムを記しました。