#1
  1. No Profile Picture
    Contributing User
    Devshed Newbie (0 - 499 posts)

    Join Date
    Apr 2003
    Posts
    45
    Rep Power
    12

    How to return a value from a Function?


    I have a problem with a function .. i need to return a value and i cant make
    it work.. this is my code an a little explanation about what it should do.
    hope you can help me

    PHP Code:
    ALL THIS CODE IS IN A FORM----->

    Function formatearFecha(ByRef fecha) As String

        Dim miAno
    miMesmiDia

        miAno 
    Mid(fecha14)
        
    miMes Mid(fecha52)
        
    miDia Mid(fecha78)

        
    fecha miDia "/" miMes "/" miAno

    End 
    Function

    Private 
    Sub Form_Load()
    Dim temp As String

        SOME CODE HERE
    ....

        Do While 
    Not rs.EOF()
        
    temp formatearFecha(rs!fecha)
            
    msgbox temp
        rs
    .MoveNext
        Loop
    End Sub 
    Well the explanation: i retrieve a number from rs!fecha like 20030611 then
    in the function i convert it to "date" format so i want the return value
    something like "11/06/2003". the function works ok.. i mean it does what it
    should do (trsnformthe number into date format) , but my problem is that in
    the form load in the MSGBOX temp line it shows nothing, i mean .. temp
    variable is NULL.. Why the the "fecha" variable is not passed to the
    variable temp??? how do i return that value from the function? what im doing
    wrong here??
  2. #2
  3. No Profile Picture
    Contributing User
    Devshed Newbie (0 - 499 posts)

    Join Date
    May 2002
    Location
    Phoenix
    Posts
    42
    Rep Power
    12
    To return a value from a function in VB, the last line of your function should assign the return value to a variable with the exact same name as your function, like this:
    PHP Code:
    formatearFecha miDia "/" miMes "/" miAno 
  4. #3
  5. No Profile Picture
    Contributing User
    Devshed Newbie (0 - 499 posts)

    Join Date
    Apr 2003
    Posts
    45
    Rep Power
    12
    Thanks man.. now it works!!!

IMN logo majestic logo threadwatch logo seochat tools logo