時刻の部分だけを取得する
VB6 では、DateTime モジュールの TimeValue 関数が使えそうです。引数を文字列で指定する必要があるので、ちょっとつらいです。
サンプルコード
以下にサンプルコードを示します。
VB6.0
' 必要な変数を宣言する
Dim dtNow As Date
dtNow = DateTime.Now
' 時刻の部分だけを取得する
stPrompt = CStr(DateTime.TimeValue(CStr(dtNow)))
' 取得した時刻を表示する
Call MsgBox(stPrompt)
