Print unixzeit(2013,9,3,19,38,39)

Function unixzeit(jahr:Int, monat:Int , tag:Int , stunde:Int , minute:Int , sekunde:Int )

 Local tage_seit_jahresanfang:Int[] = [0,31,59,90,120,151,181,212,243,273,304,334] '/* Tage seit Jahresanfang ohne Tage des aktuellen Monats und ohne Schalttag */
 
Local  unix_zeit:Double
 Local jahre:Int =jahr-1970

Print "Jahre: "+jahre
  Int schaltjahre=((jahr-1)-1968)/4 - ((jahr-1)-1900)/100 + ((jahr-1)-1600)/400;
Print schaltjahre
 
  unix_zeit=sekunde + 60*minute + 60*60*stunde +(tage_seit_jahresanfang[monat-1]+tag-1)*60*60*24 +    (jahre*365+schaltjahre)*60*60*24
 
  If ( (monat>2) And (jahr Mod 4=0 And (jahr Mod 100 <> 0 Or jahr Mod 400=0)) )
    unix_zeit = unix_zeit + 60*60*24          ' /* +Schalttag wenn jahr Schaltjahr ist */
   End If
 
  Return unix_zeit

End Function