Toni
|
 Posted: Mon Sep 12, 2005 12:14 Post subject: |
 |
|
| Rulchik wrote: | Toni
И не забудь про FeedBack! 
| Code: | MyDate = "FeedBack " & Year(Date) & "." & Month(Date) & "." & Day(Date) |
|
Сэнск. Помогло. Правда, формат изначальный не совсем устраивал, нужны были "0" в месяцах и днях (т.е что бы дата выглядела вот так 2005.09.12)
В общем, в итоге решил так (самым премитивным способом!):
if (Month(Date)<10) then mMonth="0" & Month(Date) else mMonth=Month(Date)
if (Day(Date)<10) then mDay="0" & Day(Date) else mDay=Day(Date)
MyDate = Year(Date) & "." & mMonth & "." & mDay
WScript.CreateObject("WScript.Shell").SendKeys "{F7}" & MyDate & "{Enter}"
Если есть варианты по проще добиться того же результата - буду весьма благода, а, то у меня, как-то с этим не очень!!!  |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
