XmlConvert.ToString converts the DateTime to a String.
Imports System Imports System.IO Imports System.Xml Public Class Sample Public Shared Sub Main() Dim custID as Int16 = 1 Dim orderID as String = "2" Dim orderDate as DateTime orderDate = DateTime.Now Dim price as Double = 1.95 Dim writer as XmlTextWriter = new XmlTextWriter (Console.Out) writer.Formatting = Formatting.Indented writer.WriteStartElement("order") writer.WriteAttributeString("date", XmlConvert.ToString(orderDate, "yyyy-MM-dd")) writer.WriteAttributeString("time", XmlConvert.ToString(orderDate, "HH:mm:ss")) writer.WriteElementString("orderID", orderID) writer.WriteElementString("custID", XmlConvert.ToString(custID)) writer.WriteElementString("price", XmlConvert.ToString(price)) writer.WriteEndElement() writer.Flush() writer.Close() End sub End class