Français
Source/ Codesnippets

date Long Sauver Variable

 

Stefan
Schnell
allô Community,
anbei qui Possibilité qui Speicherung eines Datums dans einer Long-Variablen, avec einigen Funktionen et Prozeduren:
KompilierenMarqueSé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:
KompilierenMarqueSéparation
-Konstanten--------------------------------------------------------
Def &Day 6
Def &Month 4
Def &Year 0

Viel Amusement beim Programmieren.
Salut
Stefan
 
14.04.2005  
 




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:
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
 
Computer: Gerät, daß es in Mikrosekunden erlaubt, 50.000 Fehler zu machen...
02.02.2021  
 



Zum Quelltext


Topictitle, max. 100 marque.
 

Systemprofile:

ne...aucune Systemprofil angelegt. [anlegen]

XProfan:

 Posting  Font  Smilies  ▼ 

s'il te plaît s'inscrire um une Beitrag trop verfassen.
 

Options du sujet

2.408 Views

Untitledvor 0 min.
Ernst vor 6 Tagen
p.specht vor 8 Tagen
Roland Schäffer vor 31 Tagen
Uwe Lang04.03.2021
plus...

Themeninformationen

cet Thema hat 2 participant:

p.specht (1x)
Stefan Schnell (1x)


Admins  |  AGB  |  Applications  |  Auteurs  |  Chat  |  protection des données  |  Télécharger  |  Entrance  |  Aider  |  Merchantportal  |  Empreinte  |  Mart  |  Interfaces  |  SDK  |  Services  |  Jeux  |  cherche  |  Support

un projet aller XProfaner, qui il y a!


Mon XProfan
Privé Nouvelles
Eigenes Ablageforum
Sujets-La liste de voeux
Eigene Posts
Eigene Sujets
Zwischenablage
Annuler
 Deutsch English Français Español Italia
Traductions

protection des données


Wir verwenden Cookies seulement comme Session-Cookies à cause de qui technischen Notwendigkeit et chez uns gibt es aucun Cookies de Drittanbietern.

si du ici sur unsere Webseite klickst ou bien navigierst, stimmst du unserer Erfassung de Informationen dans unseren Cookies sur XProfan.Net trop.

Weitere Informationen trop unseren Cookies et en supplément, comment du qui Kontrolle par-dessus behältst, findest du dans unserer nachfolgenden Datenschutzerklärung.


d'accordDatenschutzerklärung
je voudrais keinen Cookie