２．現在日付と時刻を取得及び設定

１．現在の日付と時刻を取得する ２．現在の日付と時刻を設定する ３．現在時刻を 1/100 秒単位まで取得する ４．　 ５．　 ６．

下記プログラムコードに関する補足・注意事項　 動作確認：Windows Vista・Windows 7 (32bit) / VB6.0(SP6) Option　：[Option Explicit] 参照設定：追加なし 使用 API：なし その他　： 　　　　：

１．現在の日付と時刻を取得する

Private Sub Command1_Click() 　　Debug.Print Now　　　　　　　　　　　　　　　　　　　　 '2013/07/19 15:57:53 　　Debug.Print Format$(Now, "yy年mm月dd日　hh時mm分ss秒")　'13年07月19日　15時57分53秒 　　Debug.Print Format$(Date, "gggee年mm月dd日")　　　　　　'平成25年07月19日 　　Debug.Print Format$(Date, "yyyy年mm月dd日")　　　　　　 '2013年07月19日 　　Debug.Print Format$(Time, "hh時mm分ss秒")　　　　　　　 '15時57分53秒 　　Debug.Print Format$(Time, "AM/PMhh時mm分ss秒")　　　　　'PM03時57分53秒 End Sub

２．現在の日付と時刻を設定する

Private Sub Command1_Click() '次の例は、Date ステートメントを使って、システムの日付を設定します 　　Date = "2013/08/08" '次の例は、Time ステートメントを使って、システムの時刻を設定します 　　Time = "12:12:12" 　　Debug.Print Now　　 '2013/08/08 12:12:12 End Sub

３．現在時刻を 1/100 秒単位まで取得する

Option Explicit '======================================================= '現在時刻を1/100秒単位で現す関数 fNow_Alpha　　ゆう(U)さん投稿分 '======================================================= ' result = fNow_Alpha(Expression) ' 引数　Expression:日付/時刻表示書式指定文字 '　　　　　秒には".00"が付加されます ' 戻値　result :書式指定変換後の文字列 '------------------------------------------------------- '1999年元旦午前0時ちょうどだと・・・ 'Debug.Print fNow_Alpha("yyyy/mm/dd hh:nn:ss") '結果は「1999/01/01 00:00:00.00」 'Debug.Print fNow_Alpha("s") '結果は「0.00」 '※秒(s)が書式に無いとただのFormat$(Now, Expression)です '======================================================== '●なお、Timer関数が正しくSingle値を返さないマシンでは '　正常に動作しません(常に.00になります)。 '　一部の機種でConfig.SySにHRTIMER.SYSが設定されていないと '　型はSingleですが、整数値しか戻らない場合がありました。 '　異常確認機種 '　NEC(PC9821VALUESTAR V200)、Win95B、VB5.0(SP3)pro '　HRTIMER.SYSをコメントにして確認しました '------------------------------------------------------- Private Function fNow_Alpha(ByRef Expression As String) As String 　 Dim i　　　　 As Long 　 Dim strTemp　 As String 　 Dim sngTemp　 As Single 　 Dim lngTemp　 As Long 　 Dim sngSecond As Single 　 sngTemp = Timer 　 i = InStrRev(Expression, "s", -1, vbTextCompare) 　 If i > 0& Then 　　　lngTemp = CLng(sngTemp) 　　　sngSecond = CSng(sngTemp - lngTemp) 　　　strTemp = Left$(Expression, i) _ 　　　　　　& Right$(Format$(sngSecond, ".00"), 3) _ 　　　　　　& Right$(Expression, Len(Expression) - i) 　 Else 　　　strTemp = Expression 　 End If 　 fNow_Alpha = Format$(Now, strTemp) End Function Private Sub Command1_Click() 　　Debug.Print fNow_Alpha("yyyy/mm/dd hh:nn:ss")　 '結果　　2013/07/19 16:15:22.49 End Sub

４．

５．

６．