Now

NOW　左にメニュー・フレームが表示されていない場合は、ここをクリックして下さい

←リンク元に戻る　プログラム開発関連に戻る

Date Serial として、現在のシステム時間を取得します。

構文:

declare function Now ( ) as double

用法:

#include "vbcompat.bi" result = Now

戻り値:

実行時の、システム日付けと時刻を含む、日付けの連続値を返します。

記述:

時間は、日付けの連続値の小数部なので、Now の値が整数になると、その時間は、00:00:00 にリセットされます。

vbcompat.bi を含めないと、コンパイラは、この関数を認識しません。

例:

#include "vbcompat.bi"

Dim a As Double = Now()

Print a
Print Format (a, "yyyy/mm/dd hh:mm:ss")
Sleep

'処理時間計測
#include "vbcompat.bi"   'Now を使えるようにする

Dim TimeStart As Double
Dim TimeEnd As Double


TimeStart = Now         ' 開始時刻を変数に格納します。

Sleep (10000)

TimeEnd = Now           ' 終了時刻を変数に格納します。

Print  "処理時間は、" ;
Print Format (TimeEnd - TimeStart, "hh:mm:ss")

Sleep

QBからの違い:

QB では、存在しませんでした。
この関数は、PDS と VBDOS で、現れました。

参照:

日付と時間に戻る

FreeBASIC Now

NOW 左にメニュー・フレームが表示されていない場合は、ここをクリックして下さい

NOW　左にメニュー・フレームが表示されていない場合は、ここをクリックして下さい