4D v14.3

Current date

Home

 
4D v14.3
Current date

Current date 


 

Current date {( * )} -> Funktionsergebnis 
Parameter Typ   Beschreibung
Operator in Gibt das aktuelle Datum vom Server zurück
Funktionsergebnis  Datum in Aktuelles Datum

Die Funktion Current date gibt das aktuelle Tagesdatum zurück. Es entspricht dem Datum vom System des Rechners.

4D Server: Verwenden Sie den optionalen Parameter (*) auf dem remote Rechner, gibt er das aktuelle Datum des Servers zurück.

Folgendes Beispiel zeigt eine Meldung mit dem aktuellen Datum an:

 ALERT("Das Datum ist "+String(Current date)+".")

Erstellen Sie eine Anwendung für den internationalen Markt, müssen Sie u.U. wissen, ob Ihre 4D Version mit Datumsangaben im Format MM/DD/YYYY (US Version) oder DD.MM.YYYY (deutsche Version) läuft. Das ist hilfreich beim Einrichten von Feldern zur Eingabe von Datum.

Verwenden Sie dafür die folgende Projektmethode:

  ` Sys date format globale Funktion
  ` Sys date format -> String
  ` Sys date format -> Standardmäßiges 4D Datumsformat
 
 C_STRING(31;$0;$vsDate;$vsMDY;$vsMonth;$vsDay;$vsYear)
 C_LONGINT($1;$vlPos)
 C_DATE($vdDate)
 
  `Erhalte Datumswert, wo Werte für Monat, Tag und Jahr alle unterschiedlich sind.
 $vdDate:=Current date
 Repeat
    $vsMonth:=String(Month of($vdDate))
    $vsDay:=String(Day of($vdDate))
    $vsYear:=String(Year of($vdDate)%100)
    If(($vsMonth=$vsDay)|($vsMonth=$vsYear)|($vsDay=$vsYear))
       vOK:=0
       $vdDate:=$vdDate+1
    Else
       vOK:=1
    End if
 Until(vOK=1)
 $0:="" `Initialisiere Funktionsergebnis
 $vsDate:=String($vdDate)
 $vlPos:=Position("/";$vsDate`Suche ersten / Trenner im String ../../..
 $vsMDY:=Substring($vsDate;1;$vlPos-1) `Extrahiere die erste Stelle vom Datum
 $vsDate:=Substring($vsDate;$vlPos+1) `Entferne die ersten Stellen und ersten / Trenner
 Case of
    :($vsMDY=$vsMonth`Stellen zeigen den Monat an
       $0:="MM"
    :($vsMDY=$vsDay`Stellen zeigen den Tag an
       $0:="DD"
    :($vsMDY=$vsYear`Stellen zeigen das Jahr an
       $0:="YYYY"
 End case
 $0:=$0+"/" `Starte mit Aufbau des Funktionsergebnisses
 $vlPos:=Position("/";$vsDate`Suche zweiten / Trenner im String ../..
 $vsMDY:=Substring($vsDate;1;$vlPos-1) `Extrahiere die nächsten Stellen aus dem Datum
 $vsDate:=Substring($vsDate;$vlPos+1) `Reduziere den String auf die letzten Stellen im Datum
 Case of
    :($vsMDY=$vsMonth`Stellen zeigen den Monat an
       $0:=$0+"MM"
    :($vsMDY=$vsDay`Stellen zeigen den Tag an
       $0:=$0+"DD"
    :($vsMDY=$vsYear`Stellen zeigen das Jahr an
       $0:=$0+"YYYY"
 End case
 $0:=$0+"/" `Fahre fort mit Aufbau des Funktionsergebnisses
 Case of
    :($vsDate=$vsMonth`Stellen zeigen den Monat an
       $0:=$0+"MM"
    :($vsDate=$vsDay`Stellen zeigen den Tag an
       $0:=$0+"DD"
    :($vsDate=$vsYear`Stellen zeigen das Jahr an
       $0:=$0+"YYYY"
 End case
  `An diesem Punkt ist $0 gleich MM/DD/YYYY oder DD.MM.YYYY oder...

 
EIGENSCHAFTEN 

Produkt: 4D
Thema: Datum und Zeit
Nummer: 33

Im remote Modus anderes Verhalten

 
GESCHICHTE 

Erstellt: < 4D v6

 
SIEHE AUCH 

Datumsoperatoren
Day of
Month of
Year of

 
ARTIKELVERWENDUNG

4D Programmiersprache ( 4D v12.4)
4D Programmiersprache ( 4D v11 SQL Release 6)
4D Programmiersprache ( 4D v14 R2)
4D Programmiersprache ( 4D v13.5)
4D Programmiersprache ( 4D v14 R3)
4D Programmiersprache ( 4D v14.3)
4D Programmiersprache ( 4D v14 R4)