[過去ﾛｸﾞ] Access VBA 質問スレ Part1 (1002ﾚｽ)

Access VBA 質問スレ Part1 http://mevius.5ch.net/test/read.cgi/tech/1328536426/

上下前次1-新
通常表示 512ﾊﾞｲﾄ分割 ﾚｽ栞
抽出解除 ﾚｽ栞

---

このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索 歴削→次ｽﾚ 栞削→次ｽﾚ 過去ﾛｸﾞﾒﾆｭｰ

---

99: デフォルトの名無しさん [sage] 2013/04/12(金) 22:29:10.45 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")) というアドバイスをしてくれた方がいましたが、 これに相当するコードが全くわかりません。 丸投げですがどなたか教えてくださいませ。 http://mevius.5ch.net/test/read.cgi/tech/1328536426/99

100: 桃白白 [sage] 2013/04/13(土) 02:40:34.80 >>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 http://mevius.5ch.net/test/read.cgi/tech/1328536426/100

---

ﾒﾓ帳

(0/65535文字)

---

上下前次1-新書関写板覧索設栞歴

---

ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ

---

Google検索

Wikipedia

---

ぬこの手 ぬこTOP 0.032s