Français
Source/ Codesnippets

Age, Alter

 

Michael
W.

Cls
' Alter berechnen (Pi la fois pouce)
' qui Konstanten achten aussi un bisserl sur Schaltjahres-Gedöhns
' Startdatum, Endedatum
' quoique qui XProfan-la date une anderen Startwert hat (pas l'an 0 mais 1900),
' ist qui Differenz ähnlich et peux c'est pourquoi verwendet volonté.
' Vorteil avec la date - qui Wert ist genauer, si on aussi Uhrzeiten angibt.

Proc Age

    Paramètres int T1,M1,J1, T2,M2,J2
    Déclarer int T3,M3,J3,  float f
    Var float cJ = 365.2425
    Var float cM = 30.4375
    f = (J2 * cJ) + (M2 * cM) + T2
    f = f - ((J1 * cJ) + (M1 * cM) + T1)'ergibt presque gleiche Differenz comment XProfan-la date
    J3 = Int(f / cJ) : f = f - (cJ * J3)
    M3 = Int(f / cM) : f = f - (cM * M3)
    T3 = Int(f + 0.5)
    Retour J3' aus paresse wird seulement Nombre de Jahre geliefert

ENDPROC

' xAge beachtet aussi qui Uhrzeiten (arbeitet avec Zeitpunkten; ab X2)

Proc xAge

    Paramètres float DatumAlt, DatumNeu
    Déclarer int T,M,J,  float f
    Var float cJ = 365.2425
    Var float cM = 30.4375
    f = DatumNeu - DatumAlt
    J = Int(f / cJ) : f = f - (cJ * J)
    M = Int(f / cM) : f = f - (cM * M)
    T = Int(f + 0.5)
    Retour Format $("%u J, ",J) + Format $("%u M, ",M) + Format $("%u T",T)

ENDPROC

Imprimer "\n Alter berechnen \n"
Imprimer " Age: "; Age(27,12,1961, 18,3,2016)
Imprimer "xAge: "; xAge( dt("SetDate", "27.12.1961"), dt("SetDate", "18.03.2016") )
WaitInput
Fin
 
System: Windows 8/10, XProfan X4
Programmieren, das spannendste Detektivspiel der Welt.
20.03.2016  
 



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

4.020 Views

Untitledvor 0 min.
Michael W.30.03.2022
RGH26.12.2021
Thomas Zielinski02.12.2021
Uwe ''Pascal'' Niemeier24.11.2021
plus...

Themeninformationen

cet Thema hat 1 participant:

Michael W. (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