The Code-Bin
Links
Home
Add your code!
All Listings
About
Latest Entry
Featured Scripts
Author's Website
Latest Entries
FFMPEG Thumbnail Scr...
PHP, 0.8KB
Jul. 29, 10:24pm
John
Z80 Assembler, 190 bytes
Feb. 17, 3:36am
John
Z80 Assembler, 176 bytes
Sep. 13, 2:19am
John
Z80 Assembler, 77 bytes
Sep. 13, 2:18am
John
Z80 Assembler, 209 bytes
Sep. 13, 2:17am
untitled VisualBasic Code
Posted by: lars | February 21, 2011 @ 12:18pm
VisualBasic Code
[
Download
]
Public Function Rabatberegning(pris As Long, antalpkr As Integer, Bestillingsdato As Date, leveringsdato As Date) Dim maengderabat As Double, leveringsrabat As Double 'Udregning af m�ngderabat If antalpkr > 10 Then maengderabat = (antalpkr - 10) * pris * 1.5 / 100 Else maengderabat = 0 End If 'udregning af leveringsrabat If DateDiff("d", Bestillingsdato, leveringsdato) > 2 And Weekday(Bestillingsdato) > 1 And Weekday(Bestillingsdato) < 5 Then leveringsrabat = pris * antalpkr * 0.025 Else leveringsrabat = 0 End If 'udregning af samlet bel�b excl. moms Rabatberegning = antalpkr * pris - maengderabat - leveringsrabat 'Funktionen returnere v�rdien i rabatberegning End Function Sub rabatmacro() Rabat.Show End Sub
Syntax Highlighting
[
Open in new window
]
Author Comments
none
Rating
5.02 / 8
95 Votes
http://codebin.yi.org/1137
page generated in 0.00 seconds