Вопросы Теги

Как создать текстовое поле только с часовым форматом (ЧЧ: мм) на VBA

Да, вы можете создать новое развертывание, используя CLI AWS, и, как вы поняли, RebuildEnvironment не является вызовом API. Вы ищете комбинацию из трех вызовов: от одного до S3 и двух до Beanstalk

  1. , создайте zip-файл вашего кода приложения
  2. Загрузите zip-файл в S3 , Обратите внимание на имена ковша и ключа (это позволит сделать новую версию AWS и, следовательно, Beanstalk)
  3. выполнить вызов API CreateApplicationVersion ElasticBeanstalk: 
    aws elasticbeanstalk create-application-version --application-name  --version-label  --description  --source-bundle S3Bucket="
  4. выполнить вызов API UpdateEnvironment Beanstalk: 
    aws elasticbeanstalk update-environment --environment-name  --version-label

Очевидно, это утомительно, поэтому я также предлагаю вам изучить развертывание через EBCLI, который делает все это для вас через одну команду - eb deploy

0
задан PGCodeRider 18 January 2019 в 22:41
поделиться

3 ответа

Лучше всего подойдет пользовательская функция, которая возвращает True или False. Если пользователь вводит что-то, что возвращает False, верните код и пользователь вводит новый номер.

Это было лучшее из того, что я мог придумать для защиты от неискушенных записей пользователей. 

Function CheckTime(inputasString) As Boolean

Dim theDoubleDotThing As Long

theDoubleDotThing = InStr(1, inputasString, ":", vbBinaryCompare)

If theDoubleDotThing = 0 Then
    GoTo NOPE
End If



Dim theHOUR As Long, theMinute As Long

On Error GoTo NOPE
    theHOUR = CLng(Mid(inputasString, 1, theDoubleDotThing - 1))
    theMinute = CLng(Right(inputasString, 2))
On Error GoTo 0

If Right(inputasString, 3) <> ":" & Right(inputasString, 2) Then
    GoTo NOPE

ElseIf theHOUR > 12 Then
    GoTo NOPE

ElseIf theMinute > 60 Then
    GoTo NOPE
End If

CheckTime = True

Exit Function
NOPE:


End Function

Так что вставьте это в свой код .... 

Private Sub bTNOK_Click()

    If CheckTime(textboxhour.Value) Then

    textboxhour.Value = Format(textboxhour.Value, "HH:mm")

    Else
        MsgBox "what the heck is " & textboxhour.Value & "?!?!?", vbCritical, Title:="Come On Man"

    End If

End Sub

РЕДАКТИРОВАТЬ Чтобы помочь оператору, я построил файл сэмпла , в котором есть кнопка для приглашения, а затем проверяет строку.

0
ответ дан PGCodeRider 18 January 2019 в 22:41
поделиться

Я бы предложил сделать логическую проверку, как предложил PGCodeRider. Вот моя предложенная функция 

    Public Function IsGoodTime(ByVal strInString As String) As Boolean
        Dim blnOut As Boolean
        Dim intPos As Integer
        Dim strTemp As String
        Dim strLeft As String
        Dim strRight As String
        Dim intLeft As Integer
        Dim intRight As Integer

        blnOut = True
        strTemp = Trim(strInString)

        intPos = InStr(1, strTemp, ":")
        If intPos > 0 Then
            strLeft = Mid(strTemp, 1, intPos - 1)
            strRight = Mid(strTemp, intPos + 1, Len(strTemp))
        Else
            strRight = Right(strTemp, 2)
            strLeft = Mid(strTemp, 1, Len(strTemp) - 2)
        End If

        intLeft = 0
        intRight = 0
        If IsNumeric(strLeft) Then intLeft = CInt(strLeft)
        If IsNumeric(strRight) Then intRight = CInt(strRight)

        If (Not ((intLeft > 0) And (intLeft < 13))) Then blnOut = False
        If (Not ((intRight > 0) And (intRight < 60))) Then blnOut = False

        IsGoodTime = blnOut

    End Function
0
ответ дан IAmNerd2000 18 January 2019 в 22:41
поделиться

Использовать событие выхода 

Private Sub TextBoxHour_Exit(ByVal Cancel As MSForms.ReturnBoolean)
        If IsDate(TextBoxHour.Value) And Len(TextBoxHour.Text) = 5 Then
        Else
            MsgBox "Input Hour like this Example 05:35"
            TextBoxHour.Text = ""
        End If
End Sub
0
ответ дан Dy.Lee 18 January 2019 в 22:41
поделиться
Другие вопросы по тегам:

Похожие вопросы: