XProfan

Español

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

screenshot.png	100 kB

Hochgeladen:	12.07.2013

Ladeanzahl:
		Descargar

12.07.2013 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

- Página 1 -

Thomas
Freier

Bin No sicher ob's no kürzer va

Kompilieren Marca Separació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 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

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 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

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

screenchoicebox.png	202 kB

Hochgeladen:	12.07.2013

Ladeanzahl:
		Descargar

XProfan X2

12.07.2013 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

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 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

holmol93

Heyho

Okay, entonces mach Yo el veces ;)

Gracias para el Referencia

Gruess us Bärn,

Danny

XProfan X2

12.07.2013 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Julian
Schmidt

Thomas Freier (12.07.13)

Bin No sicher ob's no kürzer va

Mit Características en cada Fall.

Kompilieren Marca Separació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

14.07.2013 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

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

XProfan X2

15.07.2013 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

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.

15.07.2013 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Julian
Schmidt

Naja soweit bekomme Yo gekürzt. Dann es aber auch ya Schluss.

Kompilieren Marca Separació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

Kompilieren Marca Separació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

15.07.2013 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Julian
Schmidt

So puede ser sowohl una Datumsstring como auch una Zeitpunkt uso

Kompilieren Marca Separació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

15.07.2013 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

- Página 2 -

holmol93

Boah vielen Dank para Eure hilfreichen Respuesta!

El Función ha perfekt funktioniert y erfüllt el, qué ellos hacer se!

Mi Software rechnet siempre el Abstände zwischen zwei IN y OUT Stempeln de y addiert el Differenzen jeweils a Tagesarbeitszeit.

Greetz y Merci para el zahlreichen Respuesta

Danny

XProfan X2

28.07.2013 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Julian
Schmidt

Joa, kein Problema.

Damit dejar se de paso auch bastante simplemente Counter bauen.

Kompilieren Marca Separació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) Formato$("00",Str$(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)))))
Declarar Tiempo2!, Tiempo1!
Mensajes del usuario 513, 516
Windowstyle 1024+16+64
Cls 0
SetWindowPos %hwnd= 100,100 - 209,34;-1

Sinestar encargado (getfocus(%hwnd) and iskey(27)) or (%umessage=516)

    Case %uMessage=513 : SendMessage(%hwnd,$112,$F012,0)
    Tiempo1!=!Now
    Tiempo2!=Date("07.05."+ Str$(Val(Substr$(Date$(0),-1,"."))+1)+" 00:00:00")
    Color del texto 0,RGB(180,180,220)
    UseFont "Sans Serif",30,0,1,0,0
    DrawText 3, 2, \
    DTBetween("Year",Tiempo1!, Tiempo2!)+"."+\
    DTBetween("Month",Tiempo1!, Tiempo2!)+"."+\
    DTBetween("Day",Tiempo1!, Tiempo2!)+" "+\
    DTBetween("Hour",Tiempo1!, Tiempo2!)+":"+\
    DTBetween("Min",Tiempo1!, Tiempo2!)+":"+\
    DTBetween("Sec",Tiempo1!, Tiempo2!), 0
    Waitinput 1000

EndWhile