Не возможно написать

STRINGA = "NamewordStuff" & Format(Date, "YYYY-MM-DD") & "-" & Hours(Now) & _
If Minute(Now)<10 then
    "0" & Minute(Now)
Else
    Minute(Now)
End If _
& ".xlsm"

Как можно было сделать это наиболее, я полагаю, элегантным способом?

2 ответа2

1

Вы можете использовать Iif:

STRINGA = "NamewordStuff" & Format(Date, "YYYY-MM-DD") & "-" & Hours(Now) & _
Iif(Minute(Now)<10,    "0" & Minute(Now),    Minute(Now)) & ".xlsm"
1

Или отформатируйте число:

STRINGA = "NamewordStuff" & Format(Date, "YYYY-MM-DD") & "-" & Hours(Now) & _
     Format(Minute(Now),"00") & "xlsm"

Всё ещё ищете ответ? Посмотрите другие вопросы с метками .