Re: Function Warning - Null Reference




Return hh & "h " & mm & "m " & ss & "s"


"Terry" <news-grps@xxxxxxxxxxxxxxxxxxxxxxxx> wrote in message
news:uQE7EocNHHA.3596@xxxxxxxxxxxxxxxxxxxxxxx
I am getting the following warning for the below function. I understand
what it means but how do I handle a null reference? Then how do I pass the
resulting value?

Regards



Warning 1 Function 'Dec2hms' doesn't return a value on all code paths. A
null reference exception could occur at run time when the result is used.
G:\Project Development\Visual Studio
2005\Projects\Ascension\Ascension\SwephConversions.vb 64 3 Ascension


' Convert decimal hours to hours/minutes/seconds

Public Function Dec2hms(ByVal x As Decimal) As String

Dim hh As Int32, mm As Int32, ss As Decimal, remainder As Decimal

'Dim x a decimal, hh as integer

hh = CType(x, Integer)

remainder = (x - hh)

mm = CType((remainder * 60), Integer)

remainder = ((remainder * 60) - mm)

ss = Int(remainder * 60)

remainder = ((remainder * 60) - ss)

If remainder >= 0.5 Then

ss = ss + 1

Else

ss = ss

End If

hms = hh & "h " & mm & "m " & ss & "s"

End Function




.



Relevant Pages

  • Re: Function Warning - Null Reference
    ... It's not just the 'newcomer' who can fall into the various traps. ... whilst under 'Common Reference Types' is listed ... Dim hh As Int32, mm As Int32, ss As Decimal, remainder As Decimal ...
    (microsoft.public.dotnet.languages.vb)
  • Re: Function Warning - Null Reference
    ... Going back to my copy of .NET Framework 2.0 App Dev Foundation Training Kit, ... whilst under 'Common Reference Types' is listed System.String. ... Dim hh As Int32, mm As Int32, ss As Decimal, remainder As Decimal ...
    (microsoft.public.dotnet.languages.vb)
  • Function Warning - Null Reference
    ... Warning 1 Function 'Dec2hms' doesn't return a value on all code paths. ... null reference exception could occur at run time when the result is used. ... Dim hh As Int32, mm As Int32, ss As Decimal, remainder As Decimal ...
    (microsoft.public.dotnet.languages.vb)
  • RE: open arguments.
    ... The original to add a complete new quote, one to edit a quote and one to ... Dim rst As Recordset ... This opens the form specified by stDocName in data entry mode and passes the ... You want to store your reference so poke it into the reference field. ...
    (microsoft.public.access.modulesdaovba)
  • RE: open arguments.
    ... Dim rst As DAO.Recordset ... Just realised there is an Access object called Reference. ... This opens the form specified by stDocName in data entry mode and passes the ...
    (microsoft.public.access.modulesdaovba)