XML Maken

[Copyright]

If Format(Selection.Cells(Rij, 3).Value) <> "" Then
Print #1, " <TAAK_EINDDATUM>" + Format(Selection.Cells(Rij, 3).Value) + "</TAAK_EINDDATUM>"
End If

Met de bovenstaande stuk code probeer ik de datums die in rij 3 staan ingevoerd naar een XML bestand toe te exporteren(hoort nog meer code bij voor een goeie XML maar voor de duidelijkheid heb ik die hier niet gepubliceerd). Nu word de datum ge-exporteerd naar het XML bestand in de notatie dd-mm-jjjj ondanks dat ik de notatie van de rij/cellen heb veranderd in jjjj-mm-dd.

Weet iemand hoe ik de code kan uitbreiden zodat de export van de datum gebeurt met de notatie jjjj-mm-dd?

Bij voorbaat dank.

 

[wampier]

Je kunt de format doorgeven aan format

Format(Selection.Cells(Rij, 3).Value, "yyyy-mm-dd")

is volgens mij wat je zoekt. Als ik het goed begrijp wil dit nog wel eens nukkig zijn als je het direct hanteert in een expressie. Mocht de functie opstandig zijn probeer dan even:

dim test as string
test = Format(Selection.Cells(Rij, 3).Value, "yyyy-mm-dd")
print test1

en kijk even wat ie dan doet

 

[Copyright]

dim test as string
test = Format(Selection.Cells(Rij, 3).Value, "yyyy-mm-dd")
print test1

Helemaal goed. Hartstikke bedankt :thumb: .