Access VBA 質問スレ Part1 at TECHAccess VBA 質問スレ Part1 - 暇つぶし2ch■コピペモード□スレを通常表示□オプションモード□このｽﾚｯﾄﾞのURL■項目テキスト100:デフォルトの名無しさん 13/04/12 22:29:10.45 .net Excelスレでも聞いたのですが、 以下のような時間の計算結果を出す関数として 0:00～0:44 0:30 0:45～1:14 1:00 1:15～1:44 1:30 =IF(A1<"0:15"*1,"0:30"*1,MROUND(A1,"0:30")) というアドバイスをしてくれた方がいましたが、 これに相当するコードが全くわかりません。 丸投げですがどなたか教えてくださいませ。 101:桃白白 13/04/13 02:40:34.80 .net >>99 Function marume(ByVal s As Double) As Double Dim Q As Double Dim H As Double Q = TimeValue("0:15") H = TimeValue("0:30") If s < Q Then marume = H Else marume = Fix((s + Q) / H) * H End If End Function 102:デフォルトの名無しさん 13/04/13 17:33:29.73 .net >>100 フォームの[実時間]の時間によって[時間]に結果を出す場合で、 Function 時間(ByVal 実時間 As Double) As Double Dim Q As Double Dim H As Double Q = TimeValue("0:15") H = TimeValue("0:30") If 実時間 < Q Then 時間 = H Else 時間 = Fix(([実時間] + Q) / H) * H End If End Function としましたがうまくいかず、どこをどうしたら良いのかまるでわかりません。 ご指摘お願いいたします。 次ページ最新レス表示レスジャンプ類似スレ一覧スレッドの検索話題のニュースおまかせリストオプションしおりを挟むスレッドに書込スレッドの一覧暇つぶし2ch