HardWired Blog

Im in a computing lesson. Yay.

Private Sub btnGo_Click()

Dim strInput as string

Dim intOutput as integer

strInput = textbox1.text

intOutput = convert(strInput)

textbox2.text = intOutput.tostring.

Private Function  convert(strOld as string)

dim intdays as integer

dim intweeks as integer

dim intNew as integer

intweeks = strOld.substring(0,1)

intdays= strOld.substring(2,1)

intNew = (intWeeks * 7) + days

return intNew

End Function

Converts weeks and days into days. Not that i couldn't do that with my brain.