Mega Code Archive

 

Categories / VB.Net / XML

 

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