Topic: date conflict US Europe

[Amsterdammed]

Hello all together.

I have a problem with the different date version in the States and in Europe.
So is there a way I can get the today’s date in a d-m-yyyy  format as return from an English Office version?

Thanks in advance,


Bernd

[Jeff_M]

How about this?

Code: [Select]


Function EuroDate() As String
Dim MyDate
Dim dateVar

MyDate = Date
dateVar = Split(MyDate, "/")
MyDate = dateVar(1) & "/" & dateVar(0) & "/" & dateVar(2)

EuroDate = MyDate
End Function

Sub test()

Debug.Print EuroDate

End Sub


[Amsterdammed]

Jeff,

I just found something easy

Code: [Select]




Sub test()
Dim EDate As String
EDate = Date
EDate = Format(EDate, ("DD-MM-YYYY"))
MsgBox EDate
End Sub


I need the date also as part of a filename, so i need the - in it, no \

I just learned about the split finction, new to me.Really handy. You know VBA is pretty unknown to me.

Thanks
 Bernd

[Amsterdammed]

But that works only if edate is declared as string not as date

[Jeff_M]

Sub test()
MsgBox Format(Date, ("DD-MM-YYYY"))
End Sub

This works, too.

[Kerry]

or

MsgBox Format(Date, ("YYYY-MM-DD"))

[Amsterdammed]

Yep, but i needed the string for a filename, the MsgBox was just for the test.