(287)  Registro

Español
Foro

Zeitabstände anhand de Zeitstempeln ausrechnen

 

holmol93
¡Hola miteinander

No vengo mehr de el Fragen fuera, cómo sieht....oO
Aunque Yo auch para esta Fragen una wenig rumgeschaut y no passende Antwort gefunden...

El erste Sache:
Lo va por lo tanto, si posible es, anhand zweier Zeitstempel en el Form el dt("getdate",6) ausgibt, el Stundendifferenz a calcular.

Konkret dafür, a Arbeitsstunden anhand de Ein- y Ausloggstempeln a calcular.

Damit uno se el mejor vorstellen kann, es en el Anhang una Screenshot el Stempelzeiten uno Benutzers de una Arbeitstag.

Das zweite, es más una kleines Problema.
Mangels Windows entwickle Yo mi (Windows-) Xprofan Software mithilfe de WINE en el Mac.
Jetzt Yo una vez mi Software en una Windows 7 PC getestet.
Optisch gefällt ellos me como deutlich mejor *g* aber mein Problema es, dass Choiceboxen no aufklappen. Auf el getesteten Windows 7 Maschine puede ser el Choiceboxen anklicken y el Inhalte con el Pfeiltasten durchscrollen, ellos poppen pero no en, como ellos el eigentlich debería.
Auf mi Mac con WINE funktioniert dies aber.

El Choiceboxen voluntad bastante standardmässig erstellt y befüllt (con Addstring), como el auch ser debería. Im Internet Yo nirgends una solchen Fall gefunden... Sombrero alguien una Concepto?

Soo, veces otra vez una langer Texto geworden... El kompliziertesten Einfälle Yo sólo desafortunadamente siempre entonces, si todos otro schlafen ;)

Gruss de Bern,
Danny

100 kB
Hochgeladen:12.07.2013
Ladeanzahl: 254
Descargar
 
12.07.2013  ▲
 




Jörg
Sellmeyer
Meinst du algo como?
KompilierenMarcaSeparación
Proc AddTime

    Parámetros h%,m%
    Volver Dt("getDate",6,!now + h%/24 + (m%/24/60))

ENDPROC

 $H Windows.ph
Ventana 300,160
SetDialogFont ~GetStockObject($11)
Var Ed_Hour& = Crear("Edit",%hwnd,"" ,10,10,50,20)
Crear("Text",%hwnd,"Stunden",62,10,50,20)
Var Ed_Minute& = Crear("Edit",%hwnd,"" ,10,36,50,20)
Crear("Text",%hwnd,"Minuten",62,36,50,20)
Var TimeNow& = Crear("Text",%hwnd," Jetzt: " + Dt("getDate",6,!now),116,10,170,20)
Var TimeThen& = Crear("Text",%hwnd," Zukunft: " + Dt("getDate",6,!now),116,36,170,20)

Mientras 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
Bin No sicher ob's no kürzer va
KompilierenMarcaSeparación
CLS
Declarar Tiempo1$,Tiempo2$,a$,b$,c$
Zeit1$="30.04.2013 19:15:10:00"
a$=substr$(Tiempo1$,1," ")
b$=substr$(Tiempo1$,-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,":")))
imprimir dt("DateTimeStr", "dd.mm.yyyy'|'hh:nn:ss", a!)
Zeit2$="02.05.2013 19:00:00:00"
a$=substr$(Tiempo2$,1," ")
b$=substr$(Tiempo2$,-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,":")))
imprimir dt("DateTimeStr", "dd.mm.yyyy'|'hh:nn:ss", b!)
imprimir
Var c!=a!-b!
a$= dt("DateTimeStr", "dd.mm.yyyy'|'hh:nn:ss", c!)
imprimir a$
' Null-Datum = 30.12.1899 0:0:0
b$=substr$(a$,1,"|")
c$=substr$(a$,-1,"|")
imprimir b$
imprimir c$
imprimir
Conjunto("Decimals",0)
imprimir "von Tiempo a Zeit"
imprimir str$(abs(30-val(substr$(b$,1,"."))))+" Tag(e)"
imprimir str$(abs(12-val(substr$(b$,2,"."))))+" Monat(e)"
imprimir str$(abs(1899-val(substr$(b$,-1,"."))))+" Jahr(e)"
imprimir substr$(c$,1,":")+" Stunden"
imprimir substr$(c$,2,":")+" Minuten"
imprimir substr$(c$,-1,":")+" Sekunden"
waitinput
end
 
Gruß Thomas
Windows XP SP2, XProfan X2
12.07.2013  ▲
 




Julian
Schmidt
Geht wohl en el Richtung. [...] 

Thomas ser Ejemplo berechnet aber todavía Tage, Montate y Jahre
 
XProfan X2
Win7 Professional, SP1, AMD FX(tm)-8350 Eight-Core Processor
˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗
Webseite [...] 
12.07.2013  ▲
 




holmol93
¡Hola miteinander,

Dankeschön, ha perfekt geklappt

Für el pocos Stunden, el lo a berechnen gilt, musste Yo nichtmal el Routinen para berechnen el Tage integrieren

Jetzt es simplemente todavía el zweite Problema como:
El Choiceboxen, el bajo Windows 7 no aufklappen.

Posesiones dafür veces una Ejemplo como Screenshot eingefügt.

Gruess,

Danny

202 kB
Hochgeladen:12.07.2013
Ladeanzahl: 237
Descargar
 
12.07.2013  ▲
 




Jörg
Sellmeyer
Mach al besten una neues Thema dafür en y gib una minimales, lauffähiges Codebeispiel esta a.
 
Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...
12.07.2013  ▲
 




holmol93
Heyho

Okay, entonces mach Yo el veces ;)

Gracias para el Referencia

Gruess us Bärn,

Danny
 
12.07.2013  ▲
 




Julian
Schmidt
Thomas Freier (12.07.13)
Bin No sicher ob's no kürzer va


Mit Características en cada Fall.
KompilierenMarcaSeparación
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 Tiempo1$="30.04.2013 19:15:10:01"
Var Tiempo2$="02.05.2013 19:00:00:00"
imprimir Tiempo1$
imprimir Tiempo2$
imprimir
imprimir YearsBetween(Tiempo1$, Tiempo2$);" Jahr(e)"
imprimir MonthsBetween(Tiempo1$, Tiempo2$);" Monat(e)"
imprimir DaysBetween(Tiempo1$, Tiempo2$);" Tag(e)"
imprimir HoursBetween(Tiempo1$, Tiempo2$);" Stunde(n)"
imprimir MinutesBetween(Tiempo1$, Tiempo2$);" Minute(n)"
imprimir SecondsBetween(Tiempo1$, Tiempo2$);" Sekunde(n)"
imprimir MilliSecondsBetween(Tiempo1$, Tiempo2$);" Millisekunde(n)"
waitinput
 
XProfan X2
Win7 Professional, SP1, AMD FX(tm)-8350 Eight-Core Processor
˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗
Webseite [...] 
14.07.2013  ▲
 




holmol93
@Julian

así wäre lo kürzer, aber rein funktional wäre lo el gleiche oder?
Nur dass uno el Características entonces überall innerhalb el Software aufrufen kann
 
15.07.2013  ▲
 




Julian
Schmidt
Sí genau. Yo Thomas seinen Ver código fuente eins a eins en el Características umgeschrieben.

Yo denke el Ver código fuente liese se con @dt("Get..." más verkürzen.
Vlt incluso soweit el uno el meisten Konstanten-Características sparen kann.
 
XProfan X2
Win7 Professional, SP1, AMD FX(tm)-8350 Eight-Core Processor
˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗
Webseite [...] 
15.07.2013  ▲
 




Julian
Schmidt
Naja soweit bekomme Yo gekürzt. Dann es aber auch ya Schluss.
KompilierenMarcaSeparación
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 Tiempo1$="30.04.2013 19:15:10"
Var Tiempo2$="02.05.2013 19:00:00"
imprimir Tiempo1$
imprimir Tiempo2$
imprimir
imprimir YearsBetween(Tiempo1$, Tiempo2$);" Jahr(e)"
imprimir MonthsBetween(Tiempo1$, Tiempo2$);" Monat(e)"
imprimir DaysBetween(Tiempo1$, Tiempo2$);" Tag(e)"
imprimir HoursBetween(Tiempo1$, Tiempo2$);" Stunde(n)"
imprimir MinutesBetween(Tiempo1$, Tiempo2$);" Minute(n)"
imprimir SecondsBetween(Tiempo1$, Tiempo2$);" Sekunde(n)"
waitinput

KompilierenMarcaSeparación
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) If(@$(1)="Year",1899,If(@$(1)="Month",12,If(@$(1)="Day",30,0)))-dt("get"+@$(1), Date(@$(2))-Date(@$(3)))*If(@$(1)="Hour",-1,If(@$(1)="Min",-1,If(@$(1)="Sec",-1,1)))
CLS
Var Tiempo1$="30.04.2013 19:15:10"
Var Tiempo2$="02.05.2013 19:00:00"
imprimir Tiempo1$
imprimir Tiempo2$
imprimir
imprimir DTBetween("Year",Tiempo1$, Tiempo2$);" Jahr(e)"
imprimir DTBetween("Month",Tiempo1$, Tiempo2$);" Monat(e)"
imprimir DTBetween("Day",Tiempo1$, Tiempo2$);" Tag(e)"
imprimir DTBetween("Hour",Tiempo1$, Tiempo2$);" Stunde(n)"
imprimir DTBetween("Min",Tiempo1$, Tiempo2$);" Minute(n)"
imprimir DTBetween("Sec",Tiempo1$, Tiempo2$);" Sekunde(n)"
waitinput
 
XProfan X2
Win7 Professional, SP1, AMD FX(tm)-8350 Eight-Core Processor
˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗
Webseite [...] 
15.07.2013  ▲
 




Julian
Schmidt
So puede ser sowohl una Datumsstring como auch una Zeitpunkt uso
KompilierenMarcaSeparación
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) If(@$(1)="Year",1899,If(@$(1)="Month",12,If(@$(1)="Day",30,0)))-dt("get"+@$(1), @!(2)-@!(3))*If(@$(1)="Hour",-1,If(@$(1)="Min",-1,If(@$(1)="Sec",-1,1)))
CLS
Var Tiempo1!=Date("24.12.2012 12:00:00")
Var Tiempo2!=!Now
imprimir dt("DateTimeStr", "dd.mm.yyyy hh:nn:ss", Tiempo1!)
imprimir dt("DateTimeStr", "dd.mm.yyyy hh:nn:ss", Tiempo2!)
imprimir
imprimir DTBetween("Year",Tiempo1!, Tiempo2!);" Jahr(e)"
imprimir DTBetween("Month",Tiempo1!, Tiempo2!);" Monat(e)"
imprimir DTBetween("Day",Tiempo1!, Tiempo2!);" Tag(e)"
imprimir DTBetween("Hour",Tiempo1!, Tiempo2!);" Stunde(n)"
imprimir DTBetween("Min",Tiempo1!, Tiempo2!);" Minute(n)"
imprimir DTBetween("Sec",Tiempo1!, Tiempo2!);" Sekunde(n)"
waitinput
 
XProfan X2
Win7 Professional, SP1, AMD FX(tm)-8350 Eight-Core Processor
˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗
Webseite [...] 
15.07.2013  ▲
 



12
►

Respuesta


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

Unreaded
subscribe
Remember-List
Notes
guests
Delete
Constantemente
Hecho

19.140 Views

Untitledvor 0 min.
H.Brill09.10.2021
Uwe Lang22.08.2019
Walter12.04.2018
Langer04.04.2017
Más...

Themeninformationen

Dieses Thema ha 4 subscriber:

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