fb:porticula NoPaste

Info / Hilfe Liste

Übersicht / Liste Neu

Datei hochladen Suche

Quellcode suchen

Dateidownload

NOW und Date Serials

Uploader:	Sebastian
Datum/Zeit:	01.10.2011 12:30:32

#INCLUDE "vbcompat.bi"

Dim a as Double

a = NOW  'gibt Datum als Serial Number zurück.

PRINT "Seit dem 30.12.1899 (0 Uhr) sind "; Str(a); " Tage vergangen."

PRINT "(Das entspricht "; Str(a/365#); " Jahren.)"

PRINT "Aus dieser Information laesst sich das heutige Datum ermitteln:"

PRINT "Datum/Uhrzeit heute: "; FORMAT( a, "dd.mm.yyyy, hh:mm:ss" )

SLEEP

END

Impressum • Nutzungsbedingungen • Datenschutz

Microsoft, Windows, Windows NT, XBOX und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.