11 lines
243 B
Text
11 lines
243 B
Text
|
' FB 1.05.0 Win64
|
||
|
|
|
||
|
|
#Include "vbcompat.bi"
|
||
|
|
|
||
|
|
Dim d As Long = Now
|
||
|
|
Print "This example was created on : "; Format(d, "yyyy-mm-dd")
|
||
|
|
Print "In other words on : "; Format(d, "dddd, mmmm d, yyyy")
|
||
|
|
Print
|
||
|
|
Print "Press any key to quit the program"
|
||
|
|
Sleep
|