автоматизация из ексел в txt

[ocean_regata]

Уважаемый SAS888!
Огромное Вам спасибо!
спасибо!спасибо!спасибо!спасибо!спа сибо!спасибо!спасибо!спасибо!спасиб о!спасибо!спасибо!спасибо!спасибо!с пасибо!спасибо!спасибо!спасибо!спас ибо!спасибо!спасибо!спасибо!спасибо !спасибо!спасибо!спасибо!спасибо!сп асибо!спасибо!спасибо!спасибо!

[ocean_regata]

Бонжорно, синьоре!

Тут такое дело: из ексель сохраняем в текстовик и если дата дня или месяца начинается с нуля, то в текстовом файле сохряняется одна цифра без нуля... как подправить, подскажите плиз?!




Function Date2Txt(MyStr)
Dim dt As String, a
dt = CStr(Day(MyStr) & "/" & Month(MyStr) & "/" & Year(MyStr))
On Error Resume Next
a = Split(dt, "/")
If Len(a(0)) = 1 Then dt = "0" & dt
If Len(a(1)) = 1 Then dt = a(0) & "/" & "0" & a(1) & "/" & a(2)
If Len(a(2)) = 1 Then dt = dt & "0"
On Error GoTo 0
Date2Txt = dt
End Function



SAS888 - заранее спасибо!

[SAS888]

Замените функцию на

Function Date2Txt(MyStr)
    Dim dt As String, a() As String
    dt = CStr(Day(MyStr) & "/" & Month(MyStr) & "/" & Year(MyStr))
    On Error Resume Next
    a = Split(dt, "/")
    If Len(a(0)) = 1 Then a(0) = "0" & a(0)
    If Len(a(1)) = 1 Then a(1) = "0" & a(1)
    Date2Txt = a(0) & "/" & a(1) & "/" & a(2)
    On Error GoTo 0
End Function

[ocean_regata]

SAS888! Благодарствую!
...уж и не знаю КАК Вас отблагодарить?!