| 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 |
|
|
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
