{{fbdoc item="title" value="HOUR"}}----
Gets the hour of day from a [[ProPgDates Date Serial]] 

{{fbdoc item="syntax"}}##
	[[KeyPgDeclare declare]] [[KeyPgFunction function]] **Hour** ( [[KeyPgByval byval]] //date_serial// [[KeyPgAs as]] [[KeyPgDouble double]] ) [[KeyPgAs as]] [[KeyPgLong long]]
##
{{fbdoc item="usage"}}##
	#include "vbcompat.bi"
	//result// = **Hour**( //dateserial// )
##
{{fbdoc item="param"}}
	##//date_serial//##
		the date serial

{{fbdoc item="ret"}}
	Returns the hour from a variable containing a date in [[ProPgDates Date Serial]] format.

{{fbdoc item="desc"}}
	The compiler will not recognize this function unless ##vbcompat.bi## is included.

{{fbdoc item="ex"}}
{{fbdoc item="filename" value="examples/manual/dates/hour.bas"}}%%(freebasic)
#include "vbcompat.bi"

dim ds as double = DateSerial(2005, 11, 28) + TimeSerial(7, 30, 50)

print format(ds, "yyyy/mm/dd hh:mm:ss "); Hour(ds)
%%

{{fbdoc item="diff"}}
	- Did not exist in QB. This function appeared in PDS and VBDOS

{{fbdoc item="see"}}
	- [[ProPgDates Date Serials]]

{{fbdoc item="back" value="CatPgDate|Date and Time Functions"}}