(276)  S'inscrire

Français
Forum

Zeitabstände anhand de Zeitstempeln ausrechnen

 

holmol93
allô miteinander

je viens pas plus aus dem Fragen raus, comment on voit....oO
Allerdings habe je aussi pour cet Fragen un peu rumgeschaut et aucun passende Antwort trouvé...

la première l'affaire:
und dir tout autor, si es possible ist, anhand zweier Zeitstempel dans qui forme qui dt("getdate",6) ausgibt, qui Stundendifferenz trop errechnen.

Konkret pour, à Arbeitsstunden anhand de un- et Ausloggstempeln trop errechnen.

avec cela on sich cela besser présenter peux, ist im Anhang un Screenshot qui Stempelzeiten eines Benutzers de einem Arbeitstag.

cela zweite, ist plutôt un kleines Problem.
Mangels Windows entwickle je mon (Windows-) Xprofan Software mithilfe de WINE sur dem Mac.
maintenant habe je einmal mon Software sur einem Windows 7 PC getestet.
optique comme vous mir là deutlich besser *g* mais mon Problem ist, dass Choiceboxen pas aufklappen. sur qui getesteten Windows 7 machine peux on qui Choiceboxen Vous pouvez et qui Inhalte avec den Pfeiltasten durchscrollen, vous poppen mais pas sur, so comment vous cela eigentlich devrait.
sur meinem Mac avec WINE funktioniert ca mais.

qui Choiceboxen volonté entier standardmässig erstellt et befüllt (avec Addstring), so comment cela aussi son sollte. Im Internet habe je nirgends une solchen le cas trouvé... Hat quelqu'un une concept?

Soo, la fois wieder un long Text geworden... qui kompliziertesten Einfälle habe je arrêt malheureusement toujours ensuite, si alle anderen dormir ;)

Gruss aus Bern,
Danny

100 kB
Hochgeladen:12.07.2013
Downloadcounter: 254
Download
 
12.07.2013  ▲
 




Jörg
Sellmeyer
Avez- du quelque chose comme?
KompilierenMarqueSéparation
Proc AddTime

    Paramètres h%,m%
    Retour Dt("getDate",6,!now + h%/24 + (m%/24/60))

ENDPROC

 $H Windows.ph
Fenêtre 300,160
SetDialogFont ~GetStockObject($11)
Var Ed_Hour& = Créer("Edit",%hwnd,» ,10,10,50,20)
Créer("Text",%hwnd,"Stunden",62,10,50,20)
Var Ed_Minute& = Créer("Edit",%hwnd,» ,10,36,50,20)
Créer("Text",%hwnd,"Minuten",62,36,50,20)
Var TimeNow& = Créer("Text",%hwnd," maintenant: " + Dt("getDate",6,!now),116,10,170,20)
Var TimeThen& = Créer("Text",%hwnd," Zukunft: " + Dt("getDate",6,!now),116,36,170,20)

Tandis que 1

    WaitInput 10
    SetText TimeThen&,"zeit: " + AddTime(Val(GetText $(Ed_Hour&)),Val(GetText $(Ed_Minute&)))

Wend
 
Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...
12.07.2013  ▲
 




Thomas
Freier
suis Je ne sûrement ob's pas kürzer allez
KompilierenMarqueSéparation
CLS
Déclarer Zeit1$,Zeit2$,a$,b$,c$
Zeit1$="30.04.2013 19:15:10:00"
a$=substr$(Zeit1$,1," ")
b$=substr$(Zeit1$,-1," ")
Var a! = dt("setDateTime",val(substr$(a$,-1,".")), \
val( substr$(a$,2,".")), \
val( substr$(a$,1,".")), \
val( substr$(b$,1,»)), \
val( substr$(b$,2,»)), \
val( substr$(b$,3,»)), \
val( substr$(b$,-1,»)))
imprimer dt("DateTimeStr", "dd.mm.yyyy'|'hh:nn:ss", a!)
Zeit2$="02.05.2013 19:00:00:00"
a$=substr$(Zeit2$,1," ")
b$=substr$(Zeit2$,-1," ")
Var b! = dt("setDateTime",val(substr$(a$,-1,".")), \
val( substr$(a$,2,".")), \
val( substr$(a$,1,".")), \
val( substr$(b$,1,»)), \
val( substr$(b$,2,»)), \
val( substr$(b$,3,»)), \
val( substr$(b$,-1,»)))
imprimer dt("DateTimeStr", "dd.mm.yyyy'|'hh:nn:ss", b!)
imprimer
Var c!=a!-b!
a$= dt("DateTimeStr", "dd.mm.yyyy'|'hh:nn:ss", c!)
imprimer a$
' zéro-date = 30.12.1899 0:0:0
b$=substr$(a$,1,"|")
c$=substr$(a$,-1,"|")
imprimer b$
imprimer c$
imprimer
Set("Décimal",0)
imprimer "von Zeit trop Zeit"
imprimer str$(abs(30-val(substr$(b$,1,"."))))+" journée(e)"
imprimer str$(abs(12-val(substr$(b$,2,"."))))+" mois(e)"
imprimer str$(abs(1899-val(substr$(b$,-1,"."))))+" l'an(e)"
imprimer substr$(c$,1,»)+" Stunden"
imprimer substr$(c$,2,»)+" Minuten"
imprimer substr$(c$,-1,»)+" Sekunden"
waitinput
end
 
Gruß Thomas
Windows XP SP2, XProfan X2
12.07.2013  ▲
 




Julian
Schmidt
allez wohl dans qui direction. [...] 

Thomas son Beispiel berechnet mais encore Tage, Montate et Jahre
 
XProfan X2
Win7 Professional, SP1, AMD FX(tm)-8350 Eight-Core Processor
˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗
Webseite [...] 
12.07.2013  ▲
 




holmol93
allô miteinander,

Dankeschön, hat parfait geklappt

Pour qui paire Stunden, qui es trop berechnen gilt, musste je nichtmal qui Routinen zum berechnen qui Tage intégrer

maintenant ist simple encore cela zweite Problem là:
qui Choiceboxen, qui sous Windows 7 pas aufklappen.

Habe pour la fois un Beispiel comme Screenshot eingefügt.

Gruess,

Danny

202 kB
Hochgeladen:12.07.2013
Downloadcounter: 237
Download
 
12.07.2013  ▲
 




Jörg
Sellmeyer
Mach am besten un nouveau Thema pour sur et gib un minimales, lauffähiges Codebeispiel dabei à.
 
Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...
12.07.2013  ▲
 




holmol93
Heyho

Okay, ensuite mach je cela la fois ;)

merci pour den Hinweis

Gruess us Bärn,

Danny
 
12.07.2013  ▲
 




Julian
Schmidt
Thomas Freier (12.07.13)
suis Je ne sûrement ob's pas kürzer allez


avec Funktionen sur jeden le cas.
KompilierenMarqueSéparation
Def @Date(1) dt("setDateTime",val(substr$(substr$(@$(1),1," "),-1,".")), val(substr$(substr$(@$(1),1," "),2,".")), val(substr$(substr$(@$(1),1," "),1,".")), val(substr$(substr$(@$(1),-1," "),1,»)), val(substr$(substr$(@$(1),-1," "),2,»)), val(substr$(substr$(@$(1),-1," "),3,»)), val(substr$(substr$(@$(1),-1," "),-1,»)))
Def @DateDiff(2) dt("DateTimeStr", "dd.mm.yyyy'|'hh:nn:ss:zzz", Date(@$(1))-Date(@$(2)))
Def @YearsBetween(2) val(abs(1899-val(substr$(substr$(DateDiff(@$(1),@$(2)),1,"|"),3,"."))))
Def @MonthsBetween(2) val(abs(12-val(substr$(substr$(DateDiff(@$(1),@$(2)),1,"|"),2,"."))))
Def @DaysBetween(2) val(abs(30-val(substr$(substr$(DateDiff(@$(1),@$(2)),1,"|"),1,"."))))
Def @HoursBetween(2) val(substr$(substr$(DateDiff(@$(1),@$(2)),-1,"|"),1,»))
Def @MinutesBetween(2) val(substr$(substr$(DateDiff(@$(1),@$(2)),-1,"|"),2,»))
Def @SecondsBetween(2) val(substr$(substr$(DateDiff(@$(1),@$(2)),-1,"|"),3,»))
Def @MilliSecondsBetween(2) val(substr$(substr$(DateDiff(@$(1),@$(2)),-1,"|"),-1,»))
CLS
Var Zeit1$="30.04.2013 19:15:10:01"
Var Zeit2$="02.05.2013 19:00:00:00"
imprimer Zeit1$
imprimer Zeit2$
imprimer
imprimer YearsBetween(Zeit1$, Zeit2$);" l'an(e)"
imprimer MonthsBetween(Zeit1$, Zeit2$);" mois(e)"
imprimer DaysBetween(Zeit1$, Zeit2$);" journée(e)"
imprimer HoursBetween(Zeit1$, Zeit2$);" heure(n)"
imprimer MinutesBetween(Zeit1$, Zeit2$);" minute(n)"
imprimer SecondsBetween(Zeit1$, Zeit2$);" seconde(n)"
imprimer MilliSecondsBetween(Zeit1$, Zeit2$);" Millisekunde(n)"
waitinput
 
XProfan X2
Win7 Professional, SP1, AMD FX(tm)-8350 Eight-Core Processor
˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗
Webseite [...] 
14.07.2013  ▲
 




holmol93
@Julian

so wäre es kürzer, mais rein fonctionnel wäre es cela gleiche ou bien?
seulement dass on qui Funktionen ensuite überall dedans qui Software appel peux
 
15.07.2013  ▲
 




Julian
Schmidt
oui oui c'est ca. je hab Thomas seinen Voir le texte source une trop une dans qui Funktionen umgeschrieben.

je denke qui Voir le texte source liese sich avec @dt("Get..." plus verkürzen.
Vlt sogar soweit cela on sich qui meisten Konstanten-Funktionen sparen peux.
 
XProfan X2
Win7 Professional, SP1, AMD FX(tm)-8350 Eight-Core Processor
˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗
Webseite [...] 
15.07.2013  ▲
 




Julian
Schmidt
bof soweit bekomme je es gekürzt. ensuite ist mais aussi déjà Schluss.
KompilierenMarqueSéparation
Def @Date(1) dt("setDateTime",val(substr$(@$(1),3,".")), val(substr$(@$(1),2,".")), val(substr$(@$(1),1,".")), val(substr$(substr$(@$(1),-1," "),1,»)), val(substr$(@$(1),2,»)), val(substr$(@$(1),3,»)), 0)
Def @YearsBetween(2) 1899-dt("getYear", Date(@$(1))-Date(@$(2)))
Def @MonthsBetween(2) 12-dt("getMonth", Date(@$(1))-Date(@$(2)))
Def @DaysBetween(2) 30-dt("getDay", Date(@$(1))-Date(@$(2)))
Def @HoursBetween(2) dt("getHour", Date(@$(1))-Date(@$(2)))
Def @MinutesBetween(2) dt("getMin", Date(@$(1))-Date(@$(2)))
Def @SecondsBetween(2) dt("getSec", Date(@$(1))-Date(@$(2)))
CLS
Var Zeit1$="30.04.2013 19:15:10"
Var Zeit2$="02.05.2013 19:00:00"
imprimer Zeit1$
imprimer Zeit2$
imprimer
imprimer YearsBetween(Zeit1$, Zeit2$);" l'an(e)"
imprimer MonthsBetween(Zeit1$, Zeit2$);" mois(e)"
imprimer DaysBetween(Zeit1$, Zeit2$);" journée(e)"
imprimer HoursBetween(Zeit1$, Zeit2$);" heure(n)"
imprimer MinutesBetween(Zeit1$, Zeit2$);" minute(n)"
imprimer SecondsBetween(Zeit1$, Zeit2$);" seconde(n)"
waitinput

KompilierenMarqueSéparation
Def @Date(1) dt("setDateTime",val(substr$(@$(1),3,".")), val(substr$(@$(1),2,".")), val(substr$(@$(1),1,".")), val(substr$(substr$(@$(1),-1," "),1,»)), val(substr$(@$(1),2,»)), val(substr$(@$(1),3,»)), 0)
Def @DTBetween(3) Si(@$(1)="Year",1899,Si(@$(1)="Month",12,Si(@$(1)="Day",30,0)))-dt("get"+@$(1), Date(@$(2))-Date(@$(3)))*Si(@$(1)="Hour",-1,Si(@$(1)="Min",-1,Si(@$(1)="Sec",-1,1)))
CLS
Var Zeit1$="30.04.2013 19:15:10"
Var Zeit2$="02.05.2013 19:00:00"
imprimer Zeit1$
imprimer Zeit2$
imprimer
imprimer DTBetween("Year",Zeit1$, Zeit2$);" l'an(e)"
imprimer DTBetween("Month",Zeit1$, Zeit2$);" mois(e)"
imprimer DTBetween("Day",Zeit1$, Zeit2$);" journée(e)"
imprimer DTBetween("Hour",Zeit1$, Zeit2$);" heure(n)"
imprimer DTBetween("Min",Zeit1$, Zeit2$);" minute(n)"
imprimer DTBetween("Sec",Zeit1$, Zeit2$);" seconde(n)"
waitinput
 
XProfan X2
Win7 Professional, SP1, AMD FX(tm)-8350 Eight-Core Processor
˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗
Webseite [...] 
15.07.2013  ▲
 




Julian
Schmidt
So peux on sowohl une Datumsstring comme aussi un la date verwenden
KompilierenMarqueSéparation
Def @Date(1) dt("setDateTime",val(substr$(@$(1),3,".")), val(substr$(@$(1),2,".")), val(substr$(@$(1),1,".")), val(substr$(substr$(@$(1),-1," "),1,»)), val(substr$(@$(1),2,»)), val(substr$(@$(1),3,»)), 0)
Def @DTBetween(3) Si(@$(1)="Year",1899,Si(@$(1)="Month",12,Si(@$(1)="Day",30,0)))-dt("get"+@$(1), @!(2)-@!(3))*Si(@$(1)="Hour",-1,Si(@$(1)="Min",-1,Si(@$(1)="Sec",-1,1)))
CLS
Var Zeit1!=Date("24.12.2012 12:00:00")
Var Zeit2!=!Now
imprimer dt("DateTimeStr", "dd.mm.yyyy hh:nn:ss", Zeit1!)
imprimer dt("DateTimeStr", "dd.mm.yyyy hh:nn:ss", Zeit2!)
imprimer
imprimer DTBetween("Year",Zeit1!, Zeit2!);" l'an(e)"
imprimer DTBetween("Month",Zeit1!, Zeit2!);" mois(e)"
imprimer DTBetween("Day",Zeit1!, Zeit2!);" journée(e)"
imprimer DTBetween("Hour",Zeit1!, Zeit2!);" heure(n)"
imprimer DTBetween("Min",Zeit1!, Zeit2!);" minute(n)"
imprimer DTBetween("Sec",Zeit1!, Zeit2!);" seconde(n)"
waitinput
 
XProfan X2
Win7 Professional, SP1, AMD FX(tm)-8350 Eight-Core Processor
˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗
Webseite [...] 
15.07.2013  ▲
 



12
►

répondre


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

Unreaded
abonner
La liste de voeux
Notes
guests
Effacer
Permanent
Done

19.099 Views

Untitledvor 0 min.
H.Brill09.10.2021
Uwe Lang22.08.2019
Walter12.04.2018
Langer04.04.2017
plus...

Themeninformationen

cet Thema hat 4 participant:

Julian Schmidt (6x)
holmol93 (5x)
Jörg Sellmeyer (2x)
Thomas Freier (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