Kleiner Rechner der PayPal gebühren in zwei Richtungen kann.
Zb. wieviel muss ich zahlen das der Empfänger 10 Euro erhält
oder wieviel erhalte ich wenn der Sender 10 Euro Zahlt
Dabei hat man die Auswahl ob das Geld aus der EU kommt oder nicht.
[Blockierte Grafik: http://img228.imageshack.us/img228/276/screenshotns.jpg]
vieleicht kann es ja der eine oder andere auch gebrauchen.
* Es wird ein Wert mit Punkt und als Komma als Dezimaltrennzeichen akzeptiert.
Spoiler anzeigen
#NoTrayIcon
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
GUICreate("Gebühren Rechner", 298, 288, 459, 210)
GUICtrlCreateGroup("Zahlungswert", 8, 8, 281, 81)
GUICtrlCreateLabel("Preis", 16, 24, 171, 17, $SS_RIGHT)
$ZahlungWert = GUICtrlCreateInput("0,00", 200, 24, 73, 21,$ES_RIGHT)
GUICtrlCreateLabel("€", 276, 24, 10, 17)
$Radio1 = GUICtrlCreateRadio("Eu 1,9 %", 16, 48, 73, 17)
$Radio2 = GUICtrlCreateRadio("Nicht EU 3,9%", 16, 64, 113, 17)
$Berechnen = GUICtrlCreateButton("Berechnen", 200, 56, 75, 25, $WS_GROUP)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUICtrlCreateGroup("Erhalt von Zahlungen", 8, 176, 281, 73)
$eippg = GUICtrlCreateInput("", 200, 137, 73, 21, BitOR($ES_RIGHT,$ES_AUTOHSCROLL,$ES_READONLY))
GUICtrlCreateLabel("€", 276, 117, 10, 17)
$eppg = GUICtrlCreateInput("", 200, 117, 73, 21, BitOR($ES_RIGHT,$ES_AUTOHSCROLL,$ES_READONLY))
GUICtrlCreateLabel("€", 276, 141, 10, 17)
GUICtrlCreateLabel("PayPal gebühren", 16, 121, 171, 17, $SS_RIGHT)
GUICtrlCreateLabel("Abzüglich von PayPal gebühren", 16, 141, 171, 17, $SS_RIGHT)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUICtrlCreateGroup("Sendung von Zahlungen", 8, 96, 281, 73)
$zippg = GUICtrlCreateInput("", 200, 216, 73, 21, BitOR($ES_RIGHT,$ES_AUTOHSCROLL,$ES_READONLY))
GUICtrlCreateLabel("€", 276, 195, 10, 17)
$zppg = GUICtrlCreateInput("", 200, 196, 73, 21, BitOR($ES_RIGHT,$ES_AUTOHSCROLL,$ES_READONLY))
GUICtrlCreateLabel("€", 276, 218, 10, 17)
GUICtrlCreateLabel("PayPal gebühren", 16, 200, 171, 17, $SS_RIGHT)
GUICtrlCreateLabel("Aufschlag inc PayPal gebühren", 16, 220, 171, 17, $SS_RIGHT)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Exit = GUICtrlCreateButton("Beenden", 200, 256, 75, 25, $WS_GROUP)
GUICtrlSetState($Radio1,$GUI_CHECKED)
Dim $AccelKeys[1][2] = [["{ENTER}", $Berechnen]]
GUISetAccelerators($AccelKeys)
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Exit
Exit
Case $Berechnen
_calcpaypal()
EndSwitch
WEnd
Func _calcpaypal()
$eu = 0
If GUICtrlRead($Radio1) = 1 Then $eu = 1
_paypalgebuehren(GUICtrlRead($ZahlungWert),$eu)
EndFunc
Func _paypalgebuehren($preis,$eu = 1)
$preis = StringReplace($preis,",",".")
$prozent = 1.9
If Not $eu Then $prozent = 3.9
;~ Aufrechnen der PayPal gebühren
$prozentn = 100 - $prozent
$r1 = $preis * 100 + 0.35
$r2 = $r1 / $prozentn
$r3 = Round(($r2-$preis) +0.35,2)
If not $r3 = Round((($r2-$preis) +0.35) + 0.05,2) Then $r3 = Round((($r2-$preis) +0.35) + 0.05,2)
$return = $r3 + $preis
GUICtrlSetData($zppg,StringFormat("%.2f\n",$r3))
GUICtrlSetData($zippg,StringFormat("%.2f\n",$return))
;~ Abziehen der PayPal gebühren
$r1 = Round(($preis * $prozent / 100) + 0.35,2)
If not $r1 = Round((($preis * $prozent / 100) + 0.35) + 0.05,2) Then $r1 = Round((($preis * $prozent / 100) + 0.35) + 0.05,2)
GUICtrlSetData($eppg,StringFormat("%.2f\n",$r1))
GUICtrlSetData($eippg,StringFormat("%.2f\n",$preis - $r1))
EndFunc
Super 