View previous topic :: View next topic |
Author |
Message |
wert202
Joined: 02 Nov 2006 Posts: 10
|
(Separately) Posted: Tue Nov 21, 2006 10:36 Post subject: |
|
|
Volniy Громадное спасибо. Все работаем. Только одно но.
Хотелось бы чтоб дата ставилась 2006.11.21
Нучтоб год был первым, далее месяц, потом число
Спасибо |
|
Back to top |
|
|
Volniy
Joined: 15 Dec 2004 Posts: 585 Location: Местный
|
(Separately) Posted: Tue Nov 21, 2006 14:02 Post subject: |
|
|
wert202 wrote: | Хотелось бы чтоб дата ставилась 2006.11.21
Нучтоб год был первым, далее месяц, потом число |
ОК. Замени в скрипте строку Code: | theFile.Name = FormatDateTime(Date,vbShortDate) & " " & theFile.Name | на Code: | theFile.Name = Year(Date) & "." & Month(Date) & "." & Day(Date) & " " & theFile.Name
|
|
|
Back to top |
|
|
wert202
Joined: 02 Nov 2006 Posts: 10
|
(Separately) Posted: Wed Dec 06, 2006 13:02 Post subject: |
|
|
Volniy wrote: | wert202 wrote: | Хотелось бы чтоб дата ставилась 2006.11.21
Нучтоб год был первым, далее месяц, потом число |
ОК. Замени в скрипте строку Code: | theFile.Name = FormatDateTime(Date,vbShortDate) & " " & theFile.Name | на Code: | theFile.Name = Year(Date) & "." & Month(Date) & "." & Day(Date) & " " & theFile.Name
|
|
Громадное спасибо. Все работает. Не мог раньше написать, инета не было |
|
Back to top |
|
|
wert202
Joined: 02 Nov 2006 Posts: 10
|
(Separately) Posted: Fri Dec 08, 2006 17:59 Post subject: |
|
|
Volniy wrote: | ОК. Замени в скрипте строку Code: | theFile.Name = FormatDateTime(Date,vbShortDate) & " " & theFile.Name | на Code: | theFile.Name = Year(Date) & "." & Month(Date) & "." & Day(Date) & " " & theFile.Name
|
|
А где нужно подправить чтобы дата получалась не 2006.12.8,
а 2006.12.08, чтобы к дню даты добавлялась к единичным цифрам 0.
Правда не смотрел еще может быть тоже самое с месяцами получается. |
|
Back to top |
|
|
Volniy
Joined: 15 Dec 2004 Posts: 585 Location: Местный
|
(Separately) Posted: Sat Dec 09, 2006 18:12 Post subject: |
|
|
wert202 wrote: | А где нужно подправить чтобы дата получалась не 2006.12.8, а 2006.12.08, чтобы к дню даты добавлялась к единичным цифрам 0. |
Теперь замени Code: | theFile.Name = Year(Date) & "." & Month(Date) & "." & Day(Date) & " " & theFile.Name | на Code: | Dim M,D
M=Month(Date): If M<10 Then M= "0" & M
D=Day(Date): If D<10 Then D= "0" & D
theFile.Name = Year(Date) & "." & M & "." & D & " " & theFile.Name
|
|
|
Back to top |
|
|
|