Add tasks for all the new languages

This commit is contained in:
Tina Müller 2016-12-05 23:44:36 +01:00
parent 9dc3c2bb62
commit bba7bfd280
13208 changed files with 134745 additions and 0 deletions

View file

@ -0,0 +1,16 @@
' FB 1.05.0 Win64
#Include "vbcompat.bi"
' The first argument to the Format function is a date serial
' and so the first statement below displays the epoch.
Dim f As String = "mmmm d, yyyy hh:mm:ss"
Print Format( 0 , f) '' epoch
Print Format( 0.5, f) '' noon on the same day
Print Format(-0.5, f) '' noon on the previous day
Print Format(1000000, f) '' one million days after the epoch
Print Format(-80000, f) '' eighty thousand days before the epoch
Print
Print "Press any key to quit"
Sleep

View file

@ -0,0 +1,15 @@
include "ConsoleWindow"
print date$
print date$("d MMM yyyy")
print date$("EEE, MMM d, yyyy")
print date$("MMMM d, yyyy ")
print date$("MMMM d, yyyy G")
print "This is day ";date$("D");" of the year"
print
print time$
print time$("hh:mm:ss")
print time$("h:mm a")
print time$("h:mm a zzz")
print
print time$("h:mm a ZZZZ "); date$("MMMM d, yyyy G")

View file

@ -0,0 +1,2 @@
date(0.00)
date(0)

View file

@ -0,0 +1,6 @@
put 0 into somedate
convert somedate to internet date
put somedate
-- output GMT (localised)
-- Thu, 1 Jan 1970 10:00:00 +1000

View file

@ -0,0 +1,3 @@
import times
echo getGMTime(fromSeconds(0))

View file

@ -0,0 +1,3 @@
import: date
0 asDateUTC println

View file

@ -0,0 +1,14 @@
load "guilib.ring"
New qApp {
win1 = new qMainWindow() {
setwindowtitle("Using QDateEdit")
setGeometry(100,100,250,100)
oDate = new qdateedit(win1) {
setGeometry(20,40,220,30)
oDate.minimumDate()
}
show()
}
exec()
}

View file

@ -0,0 +1 @@
say Time.new(0).gmtime.ctime;

View file

@ -0,0 +1 @@
0 | todate

View file

@ -0,0 +1 @@
"1970-01-01T00:00:00Z"