Janosch's Prtozedursammlung

Name

TransDate

Syntax

euroDate = TransDate([rexxDate][, rexxFormat]) [;]

Beschreibung

Umsetzen des Datums vom beliebigen REXX-Datumsformat: (DEMNOSUW[JL]) in das europäische Datumsformat (dd.mm.yyyy). .

Aufrufparameter

Parameter

Beschreibung

rexxDate

Das Datum zum Konvertieren. Muss im gültigen REXX-Datumsformat: (DEMNOSUW[JL]) vorliegen.

rexxFormat

Das gültige REXX-Datumsformat: (DEMNOSUW[JL]) des angegebenen Datums (rexxDate)

Standardwerte

Parameter

Standardwert

rexxDate

Das aktuelle Datum (heute), wie es vom Aufruf der Funktion Date('S') (yyyymmdd) zurück gegeben wird. In diesem Fall wird das Format S explizit und unabhängig von der Angabe angenommen.

rexxFormat

Das Standart-REXX-Datumsformat N.

Rückgabewerte

Name/Wert

Bedeutung

euroDate

Datum im europäischen Standardformat dd.mm.yyyy

Bemerkungen

Die Return-Klausel dieser Funktion ist ein sehr gutes Beispiel dafür, wie man die Built-in-Funktion Translate benutzen kann.

Sourcecode

/*===( Translate date in valid REXX format to european format dd.mm.jjjj )===*/
TransDate: Procedure
Arg rexxDate, rexxFormat

If rexxDate = '' Then rexxDate = Date( 'S' )
Else rexxDate = Date( 'S', rexxDate, rexxFormat )

Return Translate( '78.56.1234', rexxDate, '12345678' )
/*** End TransDate ***/

Beispiel 1

euroDate = TransDate()
Say euroDate

Ergebnis 1

13.04.2007   /* Erstellt am 13.04.2007 */

Beispiel 2

euroDate = TransDate( Date() )
Say euroDate

Ergebnis 2

13.04.2007   /* Erstellt am 13.04.2007 */

Beispiel 3

rexxDate = "56060"
rexxFormat = "B"
euroDate = TransDate( rexxDate, rexxFormat )
Say euroDate

Ergebnis 3

29.02.1956

Your privacy: This web site has no cookies, no advertising and does not provide access data to anyone for any reason.
Copyright © Janosch R. Kowalczyk 1999, 2010. All rights reserved.
Most recent revision on 25 Feb 2010 (56) - 13:24:18.