Datum aus Excel eingelesen in Datum umwandeln mit Hilfe von Basisdatum Excel

Es gibt Situationen bei welchen man ein Excel in GuiXT einliest und dabei ein Datumsfeld dann als Zahl daherkommt. Mit untenstehendem GuiXT Skript kann man in so einem Fall, basierend auf dem Basisdatum von Excel, das Datum neu berechnen.

// Prüfen ob Datum im Excel als Zahl vorliegt
// dann rechnen wir die Zahl in ein Datum um

if V[Datum>0] and V[Datum<99999] // dann Zahl
   Set V[Datum] "30.12.1899" + "&V[Datum]" // 30.12.1899 ist Basisdatum von Excel = Zahl 0
endif