quote:

---

Originally posted by dfiala

You are working way too hard. This stuff is all built in to the framework

Stick your original time into a DateTime structure...

Dim TheTime As DateTime = DateTime.Parse(old)
Dim NewTime As String = TheDate.ToString("HH:mm")

Also, if you just work with the DateTime structure instead of strings, you can use the ToString to format it any way you need.



Dean Fiala
Very Practical Software, Inc
Now with Blogging...
http://www.vpsw.com/blogbaby
Microsoft MVP

---

quote:

---

Originally posted by Peso

FormatDateTime("" & timeactual, 4)

Peter Larsson
Helsingborg, Sweden

---

public function FormatTime(object dateval) as string
   if IsDbNull(dateval) Then
       return "N/A"
   else
       return FormatDateTime(dateval,4)
   end if
end function

quote:

---

Originally posted by jsmith8858

if you need to explicitly handle null values.

something like:

public function FormatTime(object dateval) as string
   if IsDbNull(dateval) Then
       return "N/A"
   else
       return FormatDateTime(dateval,4)
   end if
end function

FYI -- It is recommended to use the more standard .net techniques such as casting to correct datatypes and using a datetime's ToString() method to format values. But if you are more familiar/comfortable doing it "vb-style" that is fine as well. Just be sure that Option Strict and Option Explicit are both "on".

- Jeff
http://weblogs.sqlteam.com/JeffS

---

quote:

---

Originally posted by jsmith8858

Show me your function, how you are calling it, and your error message.

More on date formatting in .NET here: http://blogs.msdn.com/kathykam/archive/2006/09/29/773041.aspx

Also the MSDN help for Visual Studio has tons of information on it.

- Jeff
http://weblogs.sqlteam.com/JeffS

---

quote:

---

Originally posted by Peso

Will that work at all?
It will put the text & FormatTime(timeactual) & in the filetext variable/textbox...


Peter Larsson
Helsingborg, Sweden

---

quote:

---

Originally posted by jsmith8858

No, that doesn't work. You are not posting the actual code that you are using. We need to see things in context. What you posted makes no sense at all. In programming, when you have errors, you can just "kind of copy more or less" what you are doing, we need to see your ACTUAL UNEDITED CODE to be able to help you. Does this make sense?

- Jeff
http://weblogs.sqlteam.com/JeffS

---

quote:

---

Originally posted by jsmith8858

Private Function foodrecipie() As String
        Dim cmd As SqlClient.SqlCommand
        Dim dbfunctions As New DatabaseUtilities
        Dim SQL As String
        Dim strConn As String
        Dim intRows As Integer
        Dim filetext As String
        strConn = CONNECTIONSTRING
        Dim myConn As New SqlConnection(CONNECTIONSTRING)
        Dim myCommand As New SqlCommand(SQL, myConn)
        myConn.Open()
        Dim dbreader As SqlDataReader = myCommand.ExecuteReader()

The SQL variable has not been yet set! The command cannot execute. Either you are getting an error here or you are not showing us your ACTUAL code.

        While dbreader.Read()
        SQL = "SELECT copyID,timeactual FROM tblfood where tblfood.invoiceNumber = '" & Me.txtinvoicenumber.Text & "'"

Never, ever, ever do what you are doing there. Always use stored procedures and/or parameters. See:
http://weblogs.sqlteam.com/jeffs/archive/2006/07/21/10728.aspx
for more on this.

And, as mentioned, you are setting the SQL variable too late to execute.

    Dim tempcopyid As String
    Dim temptimeactual As String


    If dbreader("timeactual") Is DBNull.Value Then                    
             timeactual = ""
    Else
             timeactual = dbreader("timeactual")
             temptimeactual = timeactual
    End If

You are trying to handle nulls here, but then in my function I already gave you code to handle them! You can't do it over and over. The function I wrote accepts an OBJECT, which may either be dbNull.value OR a valid datetime, and formats it. That's what you need to pass to the function, not a string variable!

     Dim copyid As String
     If dbreader("copyid") Is DBNull.Value Then                         
        copyid = ""
     Else
        copyid = dbreader("copyid")
        tempcopyid = copyid
     End If

     filetext = " & FormatTime(temptimeactual) & "" & tempcopyid & "

Set a breakpoint here. Look at the contents of the filetext variable. It is not executing the expression you are trying to execute because it is all in quotes, it's just a string literal! The code highlighting and formatting and intellisense in Visual Studio should have indicated this to you. It needs to something like:

Filetext = FileText & FormatTime(dbreader("timeactual")) & tmpcopyID

If appending to the existing FileText value is what you want to do.

      End While
     
      myConn.Close()
   end function

I hope this helps. Good luck. And please read a book on programming vb.net so that you can learn the basics.

---

quote:

---

Originally posted by tkizer

vk18, you shouldn't burn your bridges here as it is evident from your code that you will need more free help. Even if they aren't "king in programming", it is apparent that they do have more knowledge than you. You should try to learn from them rather than insulting them.

Tara Kizer
http://weblogs.sqlteam.com/tarad/

---