I must create prices for umbrellas rent
it can be calcolate counting the days of rent
sample :
one day 9.00 euro
seven days 50,00 euro
15 days 100,00 euro
30 days 205,00 euro
but I have a problem
How I can make if I must to pay only for 14 or 18 days or 20 or 25 days ?
do U have an Idea ?
Sivio... use the Fibonacci serie
Silvio:
Just an idea
You must to know the price for each day as follow
9 euros / 1 days = 9 euros each day
50 euros / 7 days = 7.15 euros each day
100 euros / 15 days = 6.67 euros each day and
205 euros / 30 days = 6.84 euros each day
With these prices you make a table
FROM TO Price for each day
1 to 6 9 euros
7 to 14 7.15 euros each day
15 to 29 6.67 euros each day and
30 to 999 6.84 euros each day
Then, an example:
If your customer rent an umbrella for 10 days the price for each day must be 7.15 euros
because 10 is betwen 7 to 14
10 * 7.15 = 71.50 Euros
What do you think ?
Regards
it is a good idea
BUT
if I have 14 days to pay
14*7.15 = 100,1euros
but if I have 15 gg pay 100 euros
if I have 14 or 15 pay the same ??
Silvio:
Then, don't use the rounded prices for each day
9 euros / 1 days = 9 euros each day
50 euros / 7 days = 7.14 euros each day
100 euros / 15 days = 6.66 euros each day and
205 euros / 30 days = 6.83 euros each day
Regards
14 * 7.14 = 99.96 Euros
15 * 6.66 = 99.90 Euros
Regards
FUNCTION PRICE_TEST(oWnd)
LOCAL oDlg, oGET
// A array DAYS and PRICE
// ----------------------------
PRIVATE aPRICE[6][2]
aPRICE[1] := { 1, 10 }
aPRICE[2] := { 7, 50 } // 12 Days = 50 + ( ( ( 100 - 50 ) / 7 ) * 5 ) = 85.71
aPRICE[3] := { 14, 100 }
aPRICE[4] := { 21, 130 } // 25 Days = 130 + ( ( ( 200 - 130 ) / 7 ) * 4 ) = 170
aPRICE[5] := { 28, 200 }
aPRICE[6] := { 35, 200 } // 30 Days = 200 + ( ( 200 / ( 35 - 28 ) * 2 ) = 257,14 => End
// calculate the price
// ----------------------
nDAYS := 12
DEFINE DIALOG oDlg TITLE "Price Test"
@ 1, 2 GET oGet VAR nDAYS OF oDlg SIZE 30, 15 PICTURE "99"
@ 2, 2 BUTTON "Price-Test" size 50, 25 OF oDlg ;
ACTION ( oGet:Refresh(), ;
nPRICE := GETPRICE1( nDAYS, aPRICE ), ;
MsgAlert( nPrice ) )
ACTIVATE DIALOG oDlg CENTERED
RETURN ( NIL )
// ------------------------------------------
FUNCTION GETPRICE1( nDAYS, aPRICE )
nPRICE := 0
// Testing days of last Array-Element for valid input
// ------------------------------------------------------------
IF nDAYS = 0
MsgAlert( "No Days-value defined !","Error" )
RETURN( NIL )
ENDIF
IF nDAYS > aPRICE[LEN(aPRICE)][1]
MsgAlert( "To many Days !","Error" )
RETURN( NIL )
ENDIF
I := 1
FOR I := 1 to LEN( aPRICE ) // 6
IF I + 1 < LEN( aPRICE ) // < 6
// Price is defined for nDAYS ( no calculation )
// ---------------------------------------------------
IF nDAYS = aPRICE[I][1]
nPRICE := aPRICE[I][2]
EXIT
ENDIF
// 1 7 14 21 28 35
// 6 13 20 27 34
// 1-6, 7-13, 14-20, 21-27, 28-34, 35
IF nDAYS >= aPRICE[I][1] .and. nDAYS <= aPRICE[I+1][1]-1
// nPARTPRICE := ( 100 - 50 ) / ( 14 - 7 ) = 7,14
// aPRICE[3] := { 14, 100 }
// ----
// nPARTPRICE := ( 200 - 130 ) / ( 28 - 21 ) = 10
// aPRICE[5] := { 28, 200 }
// ---------------------------------------------------------
nPARTPRICE := ( aPRICE[I+1][2]- aPRICE[I][2] )/( aPRICE[I+1][1]- aPRICE[I][1] )
// nPRICE := 50 + ( 7,14 * ( 12 - 7 ) ) = 85,71
// aPRICE[2] := { 7, 50 }
// 12 Days = 50 + ( ( ( 100 - 50 ) / 7 ) * 5 ) = 85.71
// ------
// nPRICE := 130 + ( 10 * ( 25 - 21 ) ) = 170
// aPRICE[4] := { 21, 130 }
// 25 Days = 130 + ( ( ( 200 - 130 ) / 7 ) * 4 ) = 170
// -------------------------------------------------------------
nPRICE := aPRICE[I][2] + ( nPARTPRICE * ( nDAYS - aPRICE[I][1] ) )
// msgalert( aPRICE[I][2], "1")
// msgalert( nPARTPRICE, "2")
// msgalert( aPRICE[I-1][1], "3")
EXIT
ENDIF
ENDIF
// Special calculation needed for last Array-Element
// Last Array-Element only for End of days ( no extra price )
// -------------------------------------------------------------------
IF I = LEN( aPRICE ) // 6
IF nDAYS >= aPRICE[I-1][1] // Array-Element 5
// aPRICE[5] := { 28, 200 }
// aPRICE[6] := { 35, 200 } // End
// nPARTPRICE := 200 / ( 35 - 28 ) = 28,57
// ----------------------------------------------------------
nPARTPRICE := aPRICE[I][2] / ( aPRICE[I][1] - aPRICE[I-1][1] )
// 30 Days = 200 + ( ( 200 / ( 35 - 28 ) * 2 ) = 257,14
// -------------------------------------------------------------------
nPRICE := aPRICE[I][2] + ( nPARTPRICE * ( nDAYS - aPRICE[I-1][1] ) )
// msgalert( aPRICE[I][2], "1") // 200
// msgalert( nPARTPRICE, "2") // 28,57
// msgalert( aPRICE[I-1][1], "3") // 28
// msgalert( aPRICE[I][1], "4") // 35
EXIT
ENDIF
ENDIF
NEXT
RETURN ( nPRICE )
The Function is Updated ( 28.03.2009 )
Regards
Uwe 
Ukoenig:
Taking your example I get these individual prices
7 50.00 7.1429
8 57.14 7.1400
9 64.29 7.1500
10 71.42 7.1300
11 78.57 7.1500
12 85.71 7.1400
13 92.86 7.1500
14 100.00 7.1400
As we can see the price of 9 days is more expensive than the price of 8 days
and the price of 11 days is more expensive than the price of 10 days also.
and so on.
Regards
FUNCTION PRICE_TEST(oWnd)
LOCAL oDlg, oGET
// A array DAYS and PRICE
// ----------------------------
PRIVATE aPRICE[6][2]
aPRICE[1] := { 1, 10 }
aPRICE[2] := { 7, 50 }
aPRICE[3] := { 14, 100 }
aPRICE[4] := { 21, 130 }
aPRICE[5] := { 28, 200 }
aPRICE[6] := { 35, 260 }
// find the Price of a given Day ( Group )
// ---------------------------------------------
nDAYS := 12
DEFINE DIALOG oDlg TITLE "Price Test"
@ 1, 2 GET oGet VAR nDAYS OF oDlg SIZE 30, 15 PICTURE "99"
@ 2, 2 BUTTON "Price-Test" size 50, 25 OF oDlg ;
ACTION ( oGet:Refresh(), ;
nPRICE := GETPRICE2( nDAYS, aPRICE ), ;
MsgAlert( nPrice ) )
ACTIVATE DIALOG oDlg CENTERED
RETURN ( NIL )
// ------------------------------------------
FUNCTION GETPRICE2( nDAYS, aPRICE )
nPRICE := 0
// Testing days of last Array-Element for valid input
// ------------------------------------------------------------
IF nDAYS = 0
MsgAlert( "No Days-value defined !","Error" )
RETURN( NIL )
ENDIF
IF nDAYS > aPRICE[LEN(aPRICE)][1]
MsgAlert( "To many Days !","Error" )
RETURN( NIL )
ENDIF
I := 1
FOR I := 1 to LEN( aPRICE ) // 6
IF I < LEN( aPRICE )
IF nDAYS >= aPRICE[I][1] .and. nDAYS < aPRICE[I+1][1]
nPRICE := aPRICE[I][2]
EXIT
ENDIF
ELSE // For the last Array-Element
IF nDAYS = aPRICE[I][1]
nPRICE := aPRICE[I][2]
EXIT
ENDIF
ENDIF
NEXT
RETURN ( nPRICE )
FUNCTION PRICE_TEST(oWnd)
LOCAL oDlg, oGET
PRIVATE aPRICE[3][3]
aPRICE[1] := { 1, 0, 7 } // 1 day
aPRICE[2] := { 1, 15, 63 } // min 15 Days
aPRICE[3] := { 16, 30, 126 } // min >= 16 Days
nDAYS := 1
DEFINE DIALOG oDlg TITLE "Price Test"
@ 1, 2 GET oGet VAR nDAYS OF oDlg SIZE 30, 15 PICTURE "99"
@ 2, 2 BUTTON "Price-Test" size 50, 25 OF oDlg ;
ACTION ( oGet:Refresh(), ;
nPRICE := GETPRICE3( nDAYS, aPRICE ), ;
MsgAlert( nPrice ) )
ACTIVATE DIALOG oDlg CENTERED
RETURN ( NIL )
// -----------------------
FUNCTION GETPRICE3( nDAYS, aPRICE )
nPRICE := 0
IF nDAYS = 0
MsgAlert( "Day-value missing !","Error" )
RETURN( NIL )
ENDIF
I := 1
FOR I := 1 to nDAYS
// Days < 15 ( max 14 * 7 = 98 Euro )
// ---------------------------------------
IF nDAYS < aPRICE[2][2]
nPRICE := aPRICE[1][3] * nDAYS
ENDIF
// longer >= 15 Days
// --------------------
IF nDAYS >= aPRICE[2][2] .and. nDAYS <= aPRICE[3][2]
// 63 Euro / 15 = 4,20 Euro
// --------------------------------
nPRICE := ( aPRICE[2][3] / aPRICE[2][2] ) * nDAYS
ENDIF
// longer > 30 Days same calculation of 4,20 Euro each day
// ------------------------------------------------------------------
IF nDAYS > aPRICE[3][2]
// 63 Euro / 15 Days = 4,20 Euro
// -----------------------------------
nPRICE := ( aPRICE[2][3] / aPRICE[2][2] ) * nDAYS
ENDIF
NEXT
RETURN ( nPRICE )