Access VBAの質問です

質問

アルバイト給与計算をVBAで作っていますが、
出勤・退勤で労働時間で200分と計算したあとで
15分単位に切り捨てがあります。

200分の場合、3.25としたいのですが、60で割った
あとどうすれば良いか教えてください。

200分の場合、3.25（3時間15分）
290分の場合、4.75（4時間45分)

どうぞ、宜しくお願い致します。

回答No.2

TaketsuruOishi · ベストアンサー

ああ、大失敗。
６０で割った余りを、１５で割ってから、INTEGERにして、つまり小数点以下を切り捨ててから、０．２５を掛ける。で、時間と足す。
時間+(Int(分/15)*0.25)

回答No.5

yorozu_ya

ごく単純に

int(分/15)/4

お礼

yorozu_yaさん

大変ありがとうございます。
単純に出来るのですね

回答No.4

osamuy

いかん、Access VBAでしたか。引数が整数値型で、戻り値を倍精度浮動小数点型として、

Public Function a(t As Integer) As Double
a = (t \ 60) + CDbl((t Mod 60) \ 15) / 4
End Function

――とか。

お礼

osamuyさん

大変ありがとうございます。

回答No.3

osamuy

A1に時間(たとえば200。)が入力されているとして：

=INT(A1/60)+FLOOR(MOD(A1,60),15)/60

回答No.1

TaketsuruOishi

６０で割った余りを、１５で割って、０．２５を掛ければ良くないですか？