ИЗ xlsm в xml : формат даты

[Евгений Таб]

Добрый день ув. программисты,

Пож-ста помогите разобраться с наcтройкой вывода даты в xml файл. Этот макрос преобразует определенную область в xml-структуру.
По умолчанию (возможно из-за региональных настроек машины), в xml дата прилетает в формате 17/6/2015 а нужно чтобы было 2015-6-17.

Код использую такой, подскажите куда нужно прописать формат :

Option Explicit


Sub Convert_Excel_Data_to_XML()
    
    Dim doc As MSXML2.DOMDocument
    Dim rng As Range, rngRow As Range
    Dim root As MSXML2.IXMLDOMNode
    Dim child As MSXML2.IXMLDOMElement
    Dim xmlDecl As MSXML2.IXMLDOMProcessingInstruction
    Dim sXmlFilePath As String
    
    'Create new XML doc
    Set doc = New MSXML2.DOMDocument
    
    'Root for creation
    sXmlFilePath = ThisWorkbook.Path & "\Output.xml"
    
    'XML declaration
    Set xmlDecl = doc.createProcessingInstruction("xml", "version='1.0' encoding='windows-1251'")
    doc.appendChild xmlDecl
    
    'Add root
    Set root = doc.createElement("Order")
    doc.appendChild root
    
    'Add element
    Set rng = Range("Ëèñò1!A2:J10")
    For Each rngRow In rng.Rows
        Set child = doc.createElement("Invoice")
        child.setAttribute "DocNo", rngRow.Cells(1)
        child.setAttribute "Date", rngRow.Cells(2) ' < вот тут дата
        child.setAttribute "PointId", rngRow.Cells(3)
        child.setAttribute "WBID", rngRow.Cells(4)
        child.setAttribute "SupplyDate", rngRow.Cells(5)  ' < вот тут дата
        child.setAttribute "PalletQnt", rngRow.Cells(6)
        child.setAttribute "PackQnt", rngRow.Cells(7)
        child.setAttribute "Weight", rngRow.Cells(8)
        child.setAttribute "Sum", rngRow.Cells(9)
        child.setAttribute "Comment", rngRow.Cells(10)
        root.appendChild child
      
    Next
    
    'Prepared and creation
    doc.Save sXmlFilePath
    
    MsgBox "XML ôàéë ñîõðàí¸í â '" & sXmlFilePath & "'"
    
End Sub

Cпасибо!

[Евгений Таб]

child.setAttribute "Date", Format(rngRow.Cells(2), "yyyy-d-m")

Решено