XProfan

Deutsch

Stefan
Schnell

Hallo Community,
anbei die Möglichkeit der Speicherung eines Datums in einer Long-Variablen, mit einigen Funktionen und Prozeduren:
Kompilieren Markieren Separieren

-Begin-----------------------------------------------------------------
-Datum-Funktionen----------------------------------------------------
Declare Datum#
Dim Datum#, 8
-Konstanten--------------------------------------------------------
Def &Day 0
Def &Month 2
Def &Year 4
-Tag---------------------------------------------------------------

Proc getDay

    Return @Byte(Datum#, &Day)

EndProc

Proc setDay

    Parameters Day&

    If Day& > 0 And Day& < 32

        Byte Datum#, &Day = Day&

    EndIf

EndProc

-Monat-------------------------------------------------------------

Proc getMonth

    Return @Byte(Datum#, &Month)

EndProc

Proc setMonth

    Parameters Month&

    If Month& > 0 And Month& < 13

        Byte Datum#, &Month = Month&

    EndIf

EndProc

-Jahr--------------------------------------------------------------

Proc getYear

    Return @Word(Datum#, &Year)

EndProc

Proc setYear

    Parameters Year&

    If Year& > -32769 And Year& < 32768

        Word Datum#, &Year = Year&

    EndIf

EndProc

-Datum-------------------------------------------------------------

Proc getDate

    Return @Str$(getDay()) + . + @Str$(getMonth()) + . +
    @Str$(getYear())

EndProc

Proc setDate

    Parameters Day&, Month&, Year&
    setDay(Day&)
    setMonth(Month&)
    setYear(Year&)

EndProc

-End-------------------------------------------------------------------

Um das Datum entsprechend einer Datenbank verwenden zu können gehört das Jahr nach vorne, dies dürfte (habe ich nicht getestet) durch folgende Änderung zu erreichen sein:
Kompilieren Markieren Separieren

-Konstanten--------------------------------------------------------
Def &Day 6
Def &Month 4
Def &Year 0

Viel Spaß beim Programmieren.
Gruß
Stefan

14.04.2005 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

p.specht

15 Jahre später eine Version für XProfan-11.2 free. Dank der Date-Funktion eigentlich veraltet, aber hier wäre zB die Sortierreihenfolge frei wählbar:

Kompilieren Markieren Separieren

cls
Declare Datum#:Dim Datum#,8 : Def &Year 0 : Def &Month 4 : Def &Day 6
:Proc getDay :Return Byte(Datum#,&Day):EndProc
:Proc setDay :Parameters Day&:case (Day&>0) And (Day&<32):Byte Datum#,&Day=Day&:EndProc
:Proc getMonth :Return Byte(Datum#,&Month):EndProc
:Proc setMonth :Parameters Month&:case (Month&>0) And (Month&<13):Byte Datum#,&Month=Month&:EndProc
:Proc getYear :Return Word(Datum#,&Year):EndProc
:Proc setYear :Parameters Year&:case (Year&>-32769) And (Year&<32768):Word Datum#,&Year=Year&:EndProc
:Proc getDate :Return Str$(getDay())+"."+Str$(getMonth())+"."+Str$(getYear()):EndProc
:Proc setDate :Parameters Day&,Month&,Year&:setDay(Day&):setMonth(Month&):setYear(Year&):EndProc
SetDate(32,13,-32769)
print Datum#
print getdate()
waitinput