Access VBA 質問スレ Part1 at TECH

---

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

---

次ページ

続きを表示

1を表示

最新レス表示

レスジャンプ

類似スレ一覧

スレッドの検索

話題のニュース

おまかせリスト

オプション

しおりを挟む

スレッドに書込

スレッドの一覧

暇つぶし2ch