XProfan

Français

Stefan
Schnell

allô Community,
anbei qui Possibilité qui Speicherung eines Datums dans einer Long-Variablen, avec einigen Funktionen et Prozeduren:
Kompilieren Marque Séparation

-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 cela date entsprechend einer banque de données verwenden trop peut est cela l'an pour vorne, ca pourrait (habe je pas getestet) par folgende Changement trop erreichen son:
Kompilieren Marque Séparation

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

Viel Amusement beim Programmieren.
Salut
Stefan

14.04.2005 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

p.specht

15 Jahre später une Version pour XProfan-11.2 free. Dank qui Date-Funktion eigentlich vieilli, mais ici wäre zB qui Sortierreihenfolge libre wählbar:

Kompilieren Marque Séparation

cls
Déclarer date#:Faible date#,8 : Def &Year 0 : Def &Month 4 : Def &Day 6
:Proc getDay :Retour Byte(date#,&Day):ENDPROC
:Proc setDay :Paramètres Day&:cas (Day&>0) And (Day&<32):Byte date#,&Day=Day&:ENDPROC
:Proc getMonth :Retour Byte(date#,&Month):ENDPROC
:Proc setMonth :Paramètres Month&:cas (Month&>0) And (Month&<13):Byte date#,&Month=Month&:ENDPROC
:Proc getYear :Retour Word(date#,&Year):ENDPROC
:Proc setYear :Paramètres Year&:cas (Year&>-32769) And (Year&<32768):Word date#,&Year=Year&:ENDPROC
:Proc getDate :Retour Str$(getDay())+"."+Str$(getMonth())+"."+Str$(getYear()):ENDPROC
:Proc setDate :Paramètres Day&,Month&,Year&:setDay(Day&):setMonth(Month&):setYear(Year&):ENDPROC
SetDate(32,13,-32769)
imprimer date#
imprimer getdate()
waitinput