version=1.0.2 vdate=19.10.2015 fname=cast_numtodate.bas ns=%NAMESPACE% fpath=/vba/cast ====== [VBA] numToDate() ====== //Wandelt eine Zahl (auch Unixtimestamps) in ein Datum.// ==Version %%version%% - %%vdate%%== {{%%fname%%|Download %%fname%% (V-%%version%%)}} ===== Beispiele ===== > Für die Ausgabe der Resultate verwendete ich die Funktion [[:vba:functions:print_r:]]. 'Ein Unix-Timestamp (1970) d numToDate(1446460704,,ntdUnixTimestamp) 02.11.2015 10:38:24 'Tage seit dem Microsoft-Null (1900) d numToDate(52158, "d") 19.10.2042 ===== Code =====