XProfan

Español

Stefan
Schnell

¡Hola Comunidad,
anbei el Möglichkeit el Speicherung uno Datums en uno Largo-Variables, con algunos Características y Prozeduren:
Kompilieren Marca Separación

-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---------------------------------------------------------------s2>----

Um el Datum entsprechend uno Datenbank uso a puede gehört el Jahr después de vorne, dies dürfte (Yo no getestet) por folgende Änderung a erreichen ser:
Kompilieren Marca Separación

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

Viel Spaß beim Programmieren.
Saludo
Stefan

14.04.2005 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

p.specht

15 Jahre später una Versión para XProfan-11.2 free. Dank el Date-Función eigentlich veraltet, aber hier wäre zB el Sortierreihenfolge frei wählbar:

Kompilieren Marca Separación

cls
Declarar Datum#:Dim Datum#,8 : Def &Year 0 : Def &Month 4 : Def &Day 6
:Proc getDay :Volver Byte(Datum#,&Day):ENDPROC
:Proc setDay :Parámetros Day&:caso (Day&>0) And (Day&<32):Byte Datum#,&Day=Day&:ENDPROC
:Proc getMonth :Volver Byte(Datum#,&Month):ENDPROC
:Proc setMonth :Parámetros Month&:caso (Month&>0) And (Month&<13):Byte Datum#,&Month=Month&:ENDPROC
:Proc getYear :Volver Word(Datum#,&Year):ENDPROC
:Proc setYear :Parámetros Year&:caso (Year&>-32769) And (Year&<32768):Word Datum#,&Year=Year&:ENDPROC
:Proc getDate :Volver Str$(getDay())+"."+Str$(getMonth())+"."+Str$(getYear()):ENDPROC
:Proc setDate :Parámetros Day&,Month&,Year&:setDay(Day&):setMonth(Month&):setYear(Year&):ENDPROC
SetDate(32,13,-32769)
imprimir Datum#
imprimir getdate()
waitinput