Форум программистов, компьютерный форум, киберфорум
Наши страницы
VBA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.71/7: Рейтинг темы: голосов - 7, средняя оценка - 4.71
Ю.А.
0 / 0 / 0
Регистрация: 24.12.2010
Сообщений: 14
1

программа в VBA

27.12.2010, 19:32. Просмотров 1210. Ответов 9
Метки нет (Все метки)

Написать программу, которая на ввод времени суток выводит соответствующее пожелание доброго утра, доброго дня, доброго вечера и спокойной ночи.
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
27.12.2010, 19:32
Ответы с готовыми решениями:

VBA Написать, что программа делает программа, написать комментарий к каждой строке
Option Explicit Sub SortVect(InV() As Single, OutVect() As Integer, N As...

программа VBA
написать программу для решения задач. Для первой кнопки- For...Next,для...

программа на VBA
Создать программу языком VBA, с помощью которой можно ввести закупочную цену...

Программа в VBA
Как сделать так , чтобы в Label9.Caption высвечивались слова введённые в...

программа в VBA
помогите написать программы в VBA 1. Даны две точки А(x1, y1) и В(x2, y2)....

9
Busine2009
Заблокирован
27.12.2010, 21:28 2
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
Sub m_1()
Dim vВремя As Date
vВремя = Format(CDate(InputBox("Введите время по шаблону: чч:мм")), "hh:mm")
If vВремя >= Format(CDate("06:00"), "hh:mm") And vВремя < Format(CDate("12:00"), "hh:mm") Then
        MsgBox "С добрым утром"
ElseIf vВремя >= Format(CDate("12:00"), "hh:mm") And vВремя < Format(CDate("18:00"), "hh:mm") Then
        MsgBox "С добрым днём"
ElseIf vВремя >= Format(CDate("18:00"), "hh:mm") Then
        MsgBox "С добрым вечером"
Else
        MsgBox "С доброй ночью"
End If
End Sub
1
Ю.А.
0 / 0 / 0
Регистрация: 24.12.2010
Сообщений: 14
27.12.2010, 21:58  [ТС] 3
огромное спасибо=)
0
Sasha_Smirnov
5467 / 1310 / 143
Регистрация: 08.02.2009
Сообщений: 4,027
Записей в блоге: 29
27.12.2010, 23:17 4
А можно по умолчанию ставить в инпутбоксе... вы не поверите... время!
Цитата Сообщение от Busine2009 Посмотреть сообщение
Visual Basic
1
vВремя = Format(CDate(InputBox("Введите время по шаблону: чч:мм")), Time(Now))
Пользователю лишь останется нажать OK (возможно, добавив к нему слева нолик, если Time < #12:00#).
0
gaw
6633 / 1500 / 169
Регистрация: 09.01.2010
Сообщений: 4,274
27.12.2010, 23:28 5
вариант /без проверки на корректн. ввод.)
Visual Basic
1
2
3
a = Array("n", "u", "d", "v")
v = Split(InputBox("Введите время по шаблону: чч:мм"), ":")
MsgBox a(v(0) \ 6)
1
Sasha_Smirnov
5467 / 1310 / 143
Регистрация: 08.02.2009
Сообщений: 4,027
Записей в блоге: 29
27.12.2010, 23:29 6
Visual Basic
1
vВремя = Format(CDate(InputBox("Введите время по шаблону: чч:мм",, Time)),"Ч:м")
При таком вот формате приписывать ноль не потребуется. Даже утром ранним!

(Пост #4 неверен — но пока я отлаживал ввод, отпущенные 10 минут истекли!)
0
Миниатюры
программа в VBA  
XoFfiCEr
исследователь
323 / 101 / 3
Регистрация: 18.03.2010
Сообщений: 1,079
Записей в блоге: 2
27.12.2010, 23:42 7
Можно проще:
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Dim h As Byte
Dim s As String
h=Val(InputBox("Введите час"))
h=Int(h/6)
Select Case h
Case 0
s="утром"
Case 1
s="днем"
Case 2
s="вечером"
Case 3
s="ночью"
End Select
s="с добрым " & s
MsgBox s
End Sub
минуты вообще не нужны
0
gaw
6633 / 1500 / 169
Регистрация: 09.01.2010
Сообщений: 4,274
27.12.2010, 23:42 8
чуть дописал
Visual Basic
1
2
3
4
5
6
a = Array("n", "u", "d", "v")
On Error GoTo err
v = Split(InputBox("Введите время по шаблону: чч:мм", , Format(CStr(Time), "hh:mm")), ":")
MsgBox a(v(0) \ 6)
Exit Sub
err: MsgBox "Error"
0
XoFfiCEr
исследователь
323 / 101 / 3
Регистрация: 18.03.2010
Сообщений: 1,079
Записей в блоге: 2
27.12.2010, 23:45 9
зачем вообще минуты вводить?
Ну значит их нужно вводить и никак не использовать
0
gaw
6633 / 1500 / 169
Регистрация: 09.01.2010
Сообщений: 4,274
27.12.2010, 23:47 10
по условию задачи
Цитата Сообщение от Ю.А. Посмотреть сообщение
на ввод времени суток
0
27.12.2010, 23:47
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
27.12.2010, 23:47

VBA программа
Составить алгоритм (блок-схему) и программу построения двухмерного массива...

программа на строки VBA
Доброго времени суток! кто может написать программу на VBA? Написать...

Программа на Visio, VBA
Нужно средствами Visio, VBA, базами данных написать программу Программа для...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
10
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru