Français
Source/ Codesnippets

la distance date Differenz l'heure Zeit la date Zeitstempel

 

Julian
Schmidt
cette Quellcode berechnet qui Difference [zeitlichen Unterschied] aus deux Zeiten
Proc Differenz_Zeiten

    'Berechnet qui Differenz aus deux Zeiten
    Paramètres Zeit1$,Zeit2$
    declare heure%,minute%,seconde%, suffixstunde$,suffixminute$,suffixsekunde$
    heure%=Val(SUBSTR$(Zeit2$,1,»))-Val(SUBSTR$(Zeit1$,1,»))
    minute%=Val(SUBSTR$(Zeit2$,2,»))-Val(SUBSTR$(Zeit1$,2,»))
    seconde%=Val(SUBSTR$(Zeit2$,3,»))-Val(SUBSTR$(Zeit1$,3,»))

    si seconde%<0

        minute%=minute%-1
        seconde%=seconde%+60

    Endif

    si minute%<0

        heure%=heure%-1
        minute%=minute%+60

    Endif

    si heure%<0

        heure%=heure%+24

    Endif

    cas heure%<>1 : suffixstunde$="n"
    cas minute%<>1 : suffixminute$="n"
    cas seconde%<>1 : suffixsekunde$="n"
    la durée$=Str$(heure%) + " Stunde" + suffixstunde$ + "; " + Str$(minute%) + " Minute" + suffixminute$ + "; " + Str$(seconde%) + " Sekunde" + suffixsekunde$

ENDPROC

Windowstyle 24
Fenêtre 200,100 - 550,110
declare la durée$
Créer("GroupBox",%hwnd,"Zeit1:",25,10,100,50)
var Zeit1&=Créer("TimeEdit",%hwnd,"08:55:54",35,28,80,25)
Créer("GroupBox",%hwnd,"Zeit2:",135,10,100,50)
var Zeit2&=Créer("TimeEdit",%hwnd,"08:55:53",145,28,80,25)
Créer("GroupBox",%hwnd,"Dauer:",245,10,width(%hwnd)-245-20,50)
var Dauer&=Créer("Edit",%hwnd,»,255,28,width(%hwnd)-255-30,24)
EnableWindow dauer&,0

tandis que 1

    sleep 200
    Differenz_Zeiten Gettext$(Zeit1&),Gettext$(Zeit2&)'Rückgabewert=dauer$
    'Differenz_Zeiten Zeit1,Zeit2
    Settext Dauer&,la durée$

Endwhile

 
˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗
Webseite [...] 
21.05.2011  
 




Andreas
Miethe


peux cela stimmen ?


4 kB
Hochgeladen:21.05.2011
Downloadcounter256
Download
 
Gruss
Andreas
________ ________ ________ ________ _
Profan 3.3 - XProfanX2
Win 95,98,ME,2000,XP,Vista - Win 7 32 / 64 Bit
ASUS X93S - Intel Core I7-NVIDIA GForce 540M 8GB Arbeitsspeicher
Homepage :  [...] 
21.05.2011  
 




Julian
Schmidt
Sollte eh bien reibungslos courir
 
˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗
Webseite [...] 
21.05.2011  
 




Andreas
Miethe


maintenant passt es
 
Gruss
Andreas
________ ________ ________ ________ _
Profan 3.3 - XProfanX2
Win 95,98,ME,2000,XP,Vista - Win 7 32 / 64 Bit
ASUS X93S - Intel Core I7-NVIDIA GForce 540M 8GB Arbeitsspeicher
Homepage :  [...] 
21.05.2011  
 




Julian
Schmidt
Besser so. [...] 
 
XProfan X2
Win7 Professional, SP1, AMD FX(tm)-8350 Eight-Core Processor

˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗
Webseite [...] 
15.07.2013  
 




E.T.
Sorry, Julian, mais Andreas wohl puis pas plus répondre... [...] 
 
XProfan X2
Grüße aus Sachsen... Mario
WinXP, Win7 (64 Bit),Win8(.1),Win10, Win 11, Profan 6 - X4, XPSE, und 'nen schwarzes, blinkendes Dingens, wo ich das alles reinschütte...
16.07.2013  
 




Julian
Schmidt
je sais cela il verstorben ist.
Andreas quoi un bon XProfaner.
quoi serait wohl il eh bien dire?
 
XProfan X2
Win7 Professional, SP1, AMD FX(tm)-8350 Eight-Core Processor

˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗
Webseite [...] 
16.07.2013  
 



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

18.375 Views

Untitledvor 0 min.
Member 361000514.11.2022
p.specht20.11.2021
Uwe Lang20.11.2021
Manfred Barei19.11.2021
plus...

Themeninformationen



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