bankesbusters was funktioniert denn an dem Beispiel von AspirinJunkie nicht, dies einzubauen?
Das gibt doch bereits die ms aus, wobei $tNow = Startzeit und $tThen = Endzeit wäre.
Diese ms musst du dann natürlich noch in hh, mm, ss , ms umrechnen und entsprechend ausgeben.
Achtung: Ich würde in Zeile 22 time1 von time2 abziehen (aktuell andersherum), sonst bekommst du immer negative Werte.
aber man erkennt, dass das program noch laeuft
Hmm, da denke ich eher an den Balken, der in der Taskleiste im Titel z.B. bei Downloads im Browser durchläuft.
Zugegeben, ich weiß gerade nicht, wie man das umsetzt aber fände ich die wesentlich sinnvollere Variante, da man den Mauszeiger nicht anfässt.
also nicht immer verbal mit der kelle zuschlagen, nur weil man nicht genau weiss was der sinn dahinter ist.
Ich fühle mich dabei mal nicht angesprochen, denn wie Schnuffel es bereits gesagt hat, oft liegen Welten zwischen dem was hier angefragt wird und dem eigentlichen "Problem".
meist haben die User keine Adminrechte. Daher gibt es ja Tools wie den „MouseMover“
Und dann dem von den Sysadmins vorgegebenen Settings zu umschiffen ist dann natürlich die Lösung... (nicht böse gemeint) Dann muss hier mit ihnen entsprechend kommuniziert werden und der PC an die Anforderungen angepasst werden.
Warum diesen nicht generell abschalten?
Für mich hört sich das ganze so an, als würde hier versucht eine Art Kiosk-Modus zu generieren, ohne am OS erst mal an den richtigen Stellschrauben zu drehen.
Ich muss ja zugeben beim weiteren darüber nachdenken, dass der Anwendungsfall doch recht speziell ist. Ich meine wenn ich die Daten per AutoIt vorliegen habe, kann ich auch dort direkt die Kalkulationen vornehmen und die fertigen (berechneten) Daten dann als CSV, xlsx etc. speichern. Kein Grund Formeln der Tabellenkalkulation zu nutzen.
Den Gedanken hatte ich auch schon aber ich gehe davon aus das entsel hier eine Exceldatei erstellen will, die dann später von anderen weiterbearbeitet wird.
Ansonsten bin ich da ganz bei dir 
Und entsel, ggf. versuchst du mal mit dem neuen Wissen (welche au3 du einbinden musst etc.) einfach mal ein Beispiel zu bauen wie weit du kommst, ggf. mit Beispieldaten und dann schauen wir wo wir dir noch weiter helfen können/müssen.
Ja würde ich auch, war einfach nur als Beispiel gedacht, dass dies auch geht.
Spannend, ich konnte einfach die CSV in Excel importieren "Aus Text/CSV" und dann F9 und fertig.
Ich nutze "Microsoft Office Professionell Plus 2019", vielleicht gibt es da Funktionsunterschiede in den Versionen von Excel bzw. Office.
Ich versuche jegliche Office Produkte zu vermeiden, wenn nur möglich, doch arbeitstechnisch ist es nicht immer möglich 😅 .Naja, am Ende wie so oft: "Alle Wege führen nach Rom."
Viele Grüße
Sven
Hier ist M365 im Einsatz und ich habe das exakt so gemacht wie du es hier beschreibst
Aber dennoch interessant das esje nach Version zu klappen scheint.
Interessant SOLVE-SMART, sehe zum ersten mal das das geht über die CSV 
Das muss ich mir auch erst mal anschauen 
Bei mir bleibt es Text (1 Beispiel die CSV direkt geöffnet, 1 mit "Daten aus CSV"):
Erst wenn man im 2. Beispiel hinter die Formeln klickt und mit Enter bestätigt, führt er die Berechnung aus.
Sie sind bereits als "Standard" deklariert und F9 hat keine Auswirkung, Schade.
Ich bleibe dabei das am besten über die .au3 Dateien zu lösen.
entsel Das liegt im übrigen auch dadran, das Excel alles in einer csv Datei als Daten/"Text" ansieht und nicht als Formeln betrachtet (Tipp: Speichere mal eine Excel Tabelle mit Formeln als csv und schau dir das Ergebnis an, du wirst dort keine Formeln etc. finden )
Daher ist der Hinweis von gmmg hier schon ganz richtig auf die entsprechenden au3 für Excel oder Libre.
Alternativ, erfordert aber einiges an Einarbeitung, benenn mal eine Excel Dateiendung von .xls(x) in .zip um (ich empfehle eine Datei zu nehmen, die du dir schon mal als Beispiel/Template zurecht legst) und öffne sie.
Dann siehst du die Struktur der Datei und wo du was ablegen musst.
Im Prinzip liegen die Daten und ihr Aufbau in einer xml Datei (z.B. xl/worksheets/sheet1.xml), die du durchaus verändern/generieren könntest und am Ende mit den anderen Dateien wieder zippen und in xlsx umbennen könntest.
Das ganze habe ich persönlich jedoch noch nie probiert, sondern immer mit der Excel au3 gearbeitet, da dabei immer ein gewisses Risiko besteht bzgl. Kompatiblität, fehlerhaften Daten/Aufbau, fehlende Verweise in den anderen Dateien in der ZIP etc.
Hmm, hab ich eigentlich irgendwo die Definition de rLaufzeit übersehen? 
Ja, so habe ich das im Prinzip auch gemacht
Kurze Anmerkung und Tipp für andere: Dein Text bei der Bonusaufgabe ist irreführend "Input date in the format "YYYY/MM/DD[ HH:MM:SS]" denn tatsächlich übergibst und erwartest du es anders (Beispiel: "31/12/2679 14:55:38"). Du müsstest also bei dem Text YYYY und DD tauschen und die [ weg lassen, das hat mich kurz verwirrt. Die tatsächliche Anforderung wäre hier also: "Input date in the format "DD/MM/YYYY HH:MM:SS" ".
Func _IntegerToRoman($sInteger)
Local $Return = ''
If not (($sInteger >= 1) and ($sInteger <= 3999)) then Return False
While $sInteger <> 0
Select
Case $sInteger >= 1000
$Return &= 'M'
$sInteger -= 1000
Case $sInteger >= 500
If $sInteger >= 900 then
$Return &= 'CM'
$sInteger -= 900
Else
$Return &= 'D'
$sInteger -= 500
EndIf
Case $sInteger >= 100
If $sInteger >= 400 then
$Return &= 'CD'
$sInteger -= 400
Else
$Return &= 'C'
$sInteger -= 100
EndIf
Case $sInteger >= 50
If $sInteger >= 90 then
$Return &= 'XC'
$sInteger -= 90
Else
$Return &= 'L'
$sInteger -= 50
EndIf
Case $sInteger >= 10
If $sInteger >= 40 then
$Return &= 'XL'
$sInteger -= 40
Else
$Return &= 'X'
$sInteger -= 10
EndIf
Case $sInteger >= 5
If $sInteger >= 9 then
$Return &= 'IX'
$sInteger -= 9
Else
$Return &= 'V'
$sInteger -= 5
EndIf
Case $sInteger >= 1
If $sInteger >= 4 then
$Return &= 'IV'
$sInteger -= 4
Else
$Return &= 'I'
$sInteger -= 1
EndIf
EndSelect
WEnd
Return $Return
EndFunc ;==>_IntegerToRoman
Func _RomanToInteger($sRoman)
Local $Return, $aRoman = StringSplit($sRoman, ''), $Value, $Value2
Local Const $I = 1
Local Const $V = 5
Local Const $X = 10
Local Const $L = 50
Local Const $C = 100
Local Const $D = 500
Local Const $M = 1000
If not (($aRoman[0] >= 1) and ($aRoman[0] <= 15)) then Return False
For $Char = 1 to $aRoman[0]
$Value = Execute('$' & $aRoman[$Char])
If $Char < $aRoman[0] then
$Value2 = Execute('$' & $aRoman[$Char+1])
Else
$Value2 = 0
EndIf
If $Value < $Value2 Then
$Return += $Value2 - $Value
$Char += 1
Else
$Return += $Value
EndIf
Next
Return $Return
EndFunc ;==>_RomanToInteger
; Bonus-Aufgabe für Ambitionierte ;-)
Func _DateToRoman($sDate) ;Input date in the format "YYYY/MM/DD[ HH:MM:SS]", Output in same date-format with roman sign
Local $Return, $Year, $Month, $Day, $Hour, $Minute, $Sec, $aDate
$aDate = StringSplit($sDate, '/')
$Day = _IntegerToRoman($aDate[1])
$Month = _IntegerToRoman($aDate[2])
$Return = $Day & '/' & $Month & '/'
If not StringInStr($aDate[3], ' ') then ;only date
$Year = _IntegerToRoman($aDate[3])
$Return &= $Year
Else
$aDate = StringSplit($aDate[3], ' ')
$Year = _IntegerToRoman($aDate[1])
$Return &= $Year
If not StringInStr($aDate[2], ':') then ;only hour
$Hour = _IntegerToRoman($aDate[2])
$Return &= ' ' & $Hour
Else
$aDate = StringSplit($aDate[2], ':')
$Return &= ' ' & _IntegerToRoman($aDate[1])
For $Row = 2 to $aDate[0]
$Return &= ':' & _IntegerToRoman($aDate[$Row])
Next
Endif
EndIf
Return $Return
EndFunc ;==>_DateToRomanDie Bonusaufgabe hole ich ggf. noch nach
So, Bonusaufgabe mit drin
Alles gut, die meisten Anwendungen auf meiner Seite müssen nicht 0.x Sekunden (je Durchlauf) schneller sein, da meist nur enmalige oder wenige Durchläufe nötig sind.
Aber wegen deiner Whileschleifen Frage: Nein, ich ziehe immer den kompletten Bereich ab (und dann noch 1 um die "0.Stelle" mit zu zählen), besser wäre hier die reine Rechenoperation gewesen und mit dem Rest dann weiter zu machen aber wie gesagt, ich hatte mir gedacht das einige diesen Weg gehen werden und wollte das mit einer Schleife lösen. Auch und gerade um Unterschiede aufzuzeigen und nicht immer kann man Sachen mit "simplen" Rechenoperationen lösen, da kann man auf sowas immer mal Gedanklich zurück greifen. Daher sehe ich das immer sportlich
Hmm, naja. Ich habe das mit dem Array Add auch nur gemacht weil dies nur 1mal gemacht werden muss zum Skript start und danach immer zur Verfügung steht. (hätte ja auch die Zahlen einfach plump als vorgegebenes Stringarray anlegen können).
Meine Messung bezieht sich zu 100% auf das dekodieren (+1mal das Array für die Sonderzeichen bauen), sprich ich habe deinen Aufruf ConsoleWrite(_Check() & @CRLF) in eine 2000er For Schleife geschmissen und dann das Endergebnis aus der Konsole gelesen, was dann die dennoch im Vergleich sehr langsam war (eigentlich habe ich das erwartet, da die Schleifendurchläufe mit Sicherheit mehr Zeit brauchen als die direkte Rechenoperation, ich wollte aber wie so oft gegen den Strom schwimmen^^)
Hmm, Schnuffel: Bei mir hat das Skript 745 Selunden gebraucht für 2000 Durchläufe. Ja, immernoch extrem langsam aber weit von dem was du hier angibst. (Ohne explizite Angabe ob 32 oder 64bit genutzt werden soll, sprich einfach F5 ohne zus. Parameter)
Ok, dann war es einfach wirklich mein denkfehler
Danke Schnuffel
#include<Array.au3>
Global $aSonder[] = []
For $Row = 32 to 126
Switch $Row
Case 32 to 64 ;special characters 1
_ArrayAdd($aSonder, $Row)
Case 91 to 96 ;special characters 2
_ArrayAdd($aSonder, $Row)
Case 123 to 126 ;special characters 3
_ArrayAdd($aSonder, $Row)
EndSwitch
Next
$aSonder[0] = Ubound($aSonder, $UBOUND_ROWS)-1
Func _CypherEnigma(Const $sString, $nKlein, $nGross, $nSonder, $nExtra)
Local $Return, $ASCII
Local Const $aArray = Stringsplit($sString, '')
For $Row = 1 to $aArray[0]
$ASCII = ASC($aArray[$Row])
Switch $ASCII
Case 32 to 64, _
91 to 96, _
123 to 126 ;special characters
$Return &= _Shift_Sonder($nSonder, $Row * $nExtra, $ASCII)
Case 65 to 90 ;Upper Case
$Return &= _Shift( 65, 90, $nGross , $Row * $nExtra, $ASCII)
Case 97 to 122 ;lower case
$Return &= _Shift( 97, 122, $nKlein , $Row * $nExtra, $ASCII)
Case Else ;rest stays like they are
$Return &= $aArray[$Row]
EndSwitch
Next
Return $Return
EndFunc ;==>_CypherEnigma
Func _Shift(Const $Start, $End, $Shift, $Extra, $Data)
Local $Return = $Data + $Shift + $Extra
While $Return > $End
$Return = $Return - ($End - $Start) - 1
WEnd
Return Chr($Return)
Endfunc
Func _Shift_Sonder(Const $Shift, $Extra, $Data)
Local $Return = _ArraySearch($aSonder, $Data) + $Shift + $Extra
While $Return > $aSonder[0]
$Return = $Return - ($aSonder[0])
WEnd
Return Chr($aSonder[$Return])
EndfuncHmm, das kanns natürlich sein, ich habe die Sonderzeichen in 3 einzelne Gruppen aufgeteilt XD
Schnuffel So, beim Extra part scheine ich meinen Denkfehler nicht zu finden, da sämtliche (Ergebnis) Prüfungen dementsprechen was ich ich erwarten würde, in deiner Prüfung aber auf Fehler laufen XD
Und da mir nur eine limitierte Zeit zur Verfügung steht, muss ich leider passen :(, diesmal aber scheinbar eher vom Verständnis (obwohl ich finde das du es oben gut erklärt hast).
Ggf. wenn es hier vorbei ist, poste ich mein bisheriges dann hier, möchte doch gerne wissen wo ich meinen Denkfehler habe^^
Nur FYI: Wenn du MS nutzt, kannst du auch die in Outlook integrierten "Tasks" nutzen.
Gefällt mir persönlich am besten, da du dort Gruppen erstellen kannst, denen du Aufgaben zuteilen kannst und auch div. Einstellungen und Benachrichtigungen etc. vornehmen kannst und diese auch in Outlook selber direkt einsehen kannst (bis jetzt noch, eine der Previews hat das mal Grundlegend geändert wobei ich hoffe das sie das wieder verworfen haben).
Den Gruppen gibt man dann entspr, Berechtigungen für die jeweiligen Benutzer.
Aber auch das ist Geschmackssache.
Ja, zumindest mich dran ausprobieren wollte ich 