Hello below is my code and above is what it is supposed to do. My code works(specifically the bolded part) However, I have them coded as subprocedures and I need to convert the bolded part of the code to work with/as a function.

Public Class frmFlowerShop Structure Shop Dim ProductNumber, ProductDescription As String Dim PurchaseDate As Date Dim WholesailPrice, RetailPrice, Oldprice As Double Dim ReOrderLevel, AvailableQty As Integer End Structure

Dim flowerShop() As Shop 'Array of Structures 'Form load Private Sub frmFlowerShop_Load(sender As Object, e As EventArgs) Handles MyBase.Load

'inventory array Dim records() As String = IO.File.ReadAllLines("FlowerShop.txt")

ReDim flowerShop(records.Count - 1)

Dim line As String Dim data() As String 'might add a six between the ()

For i As Integer = 0 To records.Count - 1 line = records(i) data = line.Split(","c) flowerShop(i).ProductNumber = data(0) flowerShop(i).ProductDescription = data(1) flowerShop(i).PurchaseDate = CDate(data(2)) flowerShop(i).WholesailPrice = CDbl(data(3)) flowerShop(i).RetailPrice = CDbl(data(4)) flowerShop(i).ReOrderLevel = CInt(data(5)) flowerShop(i).AvailableQty = CInt(data(6)) Next End Sub 'Button to search Private Sub btnSearch_Click(sender As Object, e As EventArgs) Handles btnSearch.Click 'Come back to Dim item As String = InputBox("Enter the item you're looking for") lstOutput.Items.Clear()

'Fix unavalible option For i As Integer = 0 To flowerShop.Count - 1 If (flowerShop(i).ProductDescription) = item Then lstOutput.Items.Add("Item " & item & " is in our inventory;") lstOutput.Items.Add("Quantity currently in stock is " & flowerShop(i).AvailableQty & ".") End If Next End Sub 'Need to add space still 'List all inventory items in product number order Private Sub btnInventory_Click(sender As Object, e As EventArgs) Handles btnInventory.Click Dim query = From product In flowerShop Order By product.ProductNumber Ascending Select product.ProductNumber & " " & product.ProductDescription & ":" & " " & product.AvailableQty & " @ " & product.RetailPrice

lstOutput.Items.Clear() lstOutput.Items.Add("Inventory List by Departments") lstOutput.Items.Add("")

For Each line In query lstOutput.Items.Add(line) Next End Sub 'Need to still add total projected profits 'Projected Profit Private Sub btnPP_Click(sender As Object, e As EventArgs) Handles btnPP.Click Dim profitQuery = From product In flowerShop Order By product.ProductDescription Ascending Let theProfit = Profit(product.RetailPrice, product.WholesailPrice, product.AvailableQty) Let results = product.ProductNumber & " " & product.ProductDescription & ":" & " " & theProfit.ToString("c2") Select results 'Set up listbox lstOutput.Items.Clear() lstOutput.Items.Add("Projected Profits") lstOutput.Items.Add("")

'Loop through the query and display the... For Each product In profitQuery lstOutput.Items.Add(product) Next lstOutput.Items.Add("") lstOutput.Items.Add("Total projected profits ") End Sub 'Working Function Profit(retail As Double, whole As Double, qty As Integer) As Double Return (retail * qty) - (whole * qty) End Function

Private Sub btnApply_Click(sender As Object, e As EventArgs) Handles btnApply.Click 'Place code here DateDiffbythirty() ' calling the function DateDiffbythirty() DateDiffbysixty() ' calling the function DateDiffbysixty() lstOutput.Items.Clear() ' clearing the list items lstOutput.Items.Add("Price Reduction For " & Date.Now.Date) ' Displaying the current date on the top lstOutput.Items.Add("") For Each item As Shop In flowerShop lstOutput.Items.Add("Price Change for " & item.ProductDescription & ":" & " From $" & item.Oldprice & " To $" & item.RetailPrice) Next End Sub

'Need to convert to function!!! Private Sub DateDiffbythirty() 'Function to change retail price that have been in inventory over 30 days and less than or equal o 60 days For i As Integer = 0 To flowerShop.Count - 1 For i As Integer = 0 To flowerShop.Count - 1 flowerShop(i).Oldprice = flowerShop(i).RetailPrice 'storing old price value in oldprice Double Dim date1 As Date = Date.Now 'getting todays date and storing in date 1 Dim date2 As Date = flowerShop(i).PurchaseDate 'getting product purchase date and storing in date 2

Dim span = date1 - date2 ' calulating days difference

Dim days As Double = CDbl(FormatNumber(span.TotalDays, 0)) ' storing final formatted value in variable days If days > 30 And days

'Need to convert to function!!! Private Sub DateDiffbysixty() 'Function to change retail price that have been in inventory over 60 days For i As Integer = 0 To flowerShop.Count - 1 Dim date1 As Date = Date.Now 'getting todays date Dim date2 As Date = flowerShop(i).PurchaseDate 'getting product purchase date Dim span = date1 - date2 ' calulating days difference Dim days As Double = CDbl(FormatNumber(span.TotalDays, 0)) ' storing final formatted value in variable days If days > 60 Then ' if product is inventory over 60 days it will reduce product price by 50% flowerShop(i).RetailPrice = CDbl(FormatNumber(flowerShop(i).RetailPrice - (flowerShop(i).RetailPrice * 0.5), 2)) End If Next End Sub End Class

Apply Sale Prices (Array update - not a Query) Each month, price reductions are calculated and the i changes. Read through the array. If the Purchase Date is decrease the retail pr nventory array updated to reflect the more than 30 days from TODA r is higher). For item have been in inventory for over 60 days, the retail price needs to be reduced by 50% rege the wholesale price. (Hints: Review DateDiff and remember you cannot update a values array when using For Each). Create two function that will be called in this event: Calculate new price for items that have been in inventory more than 30 days, but less equal to 60 days. Calculate new price for items that have been in inventory for over 60 days. Every price change should be listed in the report. Format shown below: Flower Shop Inventory Price Reductions for 2/7/2018 tem Search Price Change for Azalea-Pink: From $12.99 To $10.39 Price Change for Paper Whites: From $4.00 To $3.20 Price Change for Comflower: From $9.99 To $7.99 Price Change for Catmint: From $9.99 To $5.00 Master Inventory Projected Proft Apply Sale Prices