Function Project_1_Total(monhrs1 As String, tueshrs1 As String, wedhrs1 As Strin
ID: 3660004 • Letter: F
Question
Function Project_1_Total(monhrs1 As String, tueshrs1 As String,
wedhrs1 As String, thurshrs1 As String,
friHrs1 As String, satHrs1 As String,
sunhrs1 As String) As Double
Project_1_Total = 0
If monhrs1 = "" Then
Return monhrs1 = 0
Else
Return Project_1_Total + CDbl(txtMonday.Text)
If tueshrs1 = "" Then
Return tueshrs1 = 0
Else
Return Project_1_Total + CDbl(txtTuesday.Text)
If wedhrs1 = "" Then
Return wedhrs1 = 0
Else
Return Project_1_Total + CDbl(txtWednesday1.Text)
If thurshrs1 = "" Then
Return thurshrs1 = 0
Else
Return Project_1_Total + CDbl(txtThursday1.Text)
If friHrs1 = "" Then
Return friHrs1 = 0
Else
Return Project_1_Total + CDbl(txtFriday1.Text)
If satHrs1 = "" Then
Return satHrs1 = 0
Else
Return Project_1_Total + CDbl(txtSaturday1.Text)
If sunhrs1 = "" Then
Return sunhrs1 = 0
Else
Return Project_1_Total + CDbl(txtSunday1.Text)
End If
End If
End If
End If
End If
End If
End If
Project_1_Total = monhrs1 + tueshrs1 + wedhrs1 + thurshrs1 + friHrs1 + satHrs1 + sunhrs1
Return Project_1_Total
End Function
Explanation / Answer
Function Project_1_Total(monhrs1 As String, tueshrs1 As String, wedhrs1 As String, thurshrs1 As String, friHrs1 As String, satHrs1 As String, sunhrs1 As String) As Double Project_1_Total = 0 If monhrs1 = "" Then Return monhrs1 = 0 Else Return Project_1_Total + CDbl(txtMonday.Text) ...
Related Questions
Navigate
Integrity-first tutoring: explanations and feedback only — we do not complete graded work. Learn more.