Español
Fuente/ Codesnippets

Datum Largo Guardar Variable

 

Stefan
Schnell
¡Hola Comunidad,
anbei el Möglichkeit el Speicherung uno Datums en uno Largo-Variables, con algunos Características y Prozeduren:
KompilierenMarcaSeparació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:
KompilierenMarcaSeparación
-Konstanten--------------------------------------------------------
Def &Day 6
Def &Month 4
Def &Year 0

Viel Spaß beim Programmieren.
Saludo
Stefan
 
14.04.2005  
 




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



Zum Quelltext


Título del Tema, max. 100 Signo.
 

Systemprofile:

Kein Systemprofil creado. [anlegen]

XProfan:

 Contribución  Font  Smilies  ▼ 

Bitte registro en una Contribución a verfassen.
 

Tema opciones

2.407 Views

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

Themeninformationen

Dieses Thema ha 2 subscriber:

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


Admins  |  AGB  |  Applications  |  Autores  |  Chat  |  Política de Privacidad  |  Descargar  |  Entrance  |  Ayuda  |  Merchantportal  |  Pie de imprenta  |  Mart  |  Interfaces  |  SDK  |  Services  |  Juegos  |  Búsqueda  |  Support

Ein Projekt aller XProfan, el lo son!


Mi XProfan
Privado Noticias
Eigenes Ablageforum
Temas-Merkliste
Eigene Beiträge
Eigene Temas
Zwischenablage
Cancelar
 Deutsch English Français Español Italia
Traducciones

Política de Privacidad


Wir uso Cookies sólo como Session-Cookies wegen el technischen Notwendigkeit y en uns hay no Cookies de Drittanbietern.

Wenn du hier en unsere Webseite klickst oder navigierst, stimmst du unserer Erfassung de Informationen en unseren Cookies en XProfan.Net a.

Weitere Informationen a unseren Cookies y dazu, como du el Kontrolle darüber behältst, findest du en unserer nachfolgenden Datenschutzerklärung.


einverstandenDatenschutzerklärung
Yo möchte no Cookie