Buchempfehlung
Windows-Programmierung. Das Entwicklerhandbuch zur WIN32-API
Windows-Programmierung. Das Entwicklerhandbuch zur WIN32-API
"Der" Petzold, das über 1000 Seiten starke Standardwerk zum Win32-API - besonders nützlich u. a. bei der GUI-Programmierung in FreeBASIC! [Mehr Infos...]
FreeBASIC-Chat
Es sind Benutzer im FreeBASIC-Chat online.
(Stand:  )
FreeBASIC bei Twitter
Twitter FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!

Code-Beispiel

Code-Beispiele » System

UNIX-Timestamp

Lizenz:Erster Autor:Letzte Bearbeitung:
LGPLRedakteurVolta 12.12.2007

Der UNIX-Timestamp ist eine Datums- / Zeitangabe (als UIntegerwert) in Sekunden, die seit dem 01.01.1970 vergangen sind.
In FreeBasic wird ein anderes Format (Double) benutzt, aber es lässt sich leicht konvertieren.

#Include Once "vbcompat.bi"
Dim As integer a

Screen 18.32
?"MEZ: ";Date, Time

'Umrechnungsfaktor Tage in Sekunden 24h * 60min * 60sec = 86400
'DateSerial(1970,1,1) = 25569
a = ((Now - 25569) * 86400)
?"MEZ Timestamp: ";a
PRINT FORMAT((a / 86400) + 25569, "dd.mm.yyyy, hh:mm:ss")
?

#Include Once "crt.bi"
time_ @a
?"UTC Timestamp: ";a
PRINT FORMAT((a / 86400) + 25569, "dd.mm.yyyy, hh:mm:ss")

sleep

Zusätzliche Informationen und Funktionen
  • Das Code-Beispiel wurde am 11.12.2007 von RedakteurVolta angelegt.
  • Die aktuellste Version wurde am 12.12.2007 von RedakteurVolta gespeichert.
  Bearbeiten Bearbeiten  

  Versionen Versionen