До Нового Года осталось....

[CRClub]

Привествую всех !!!
Есть один вопрос. Как реализовать Подсчёт дней до Нового Года ???
Я зделала так :

Код: Выделить всё

Private Sub Form_Load()
Dim NewYear As Variant
Dim Datenow As Variant
Datenow = Format(Date, "mm,dd")
NewYear = Format(Date, "12,31")
NewYear = NewYear - Datenow
Label1.Caption = NewYear
End Sub


В моём коде на Label1 будет показано сколько осталось месяцев и сколько дней...
Как же зделать чтоб показывало одни дни ???
Типа До Нового Года осталось 234 дня
Просто я новичок и тока учусь ....
Помогите пожалуйста если мона то кодом ...
Жду ответов

[Amed]

Debug.Print "До нового года осталось " & DateDiff("d", Date, #1/1/2005#, vbUseSystemDayOfWeek, vbUseSystem); " день/ей" :Santa:

[xolod]

И это будущие программисты?
Вроде мою подпись только не зрячий ни увидет

[Sonic the Hedgehog]

Да,кстати
ВСЕХ С НОВЫМ ГОДОМ

[CRClub]

Спасибки

[CRClub]

ТОка Чёто у меня не чё не пашет
Мона этот код преработать на подобе с моим ???
А то я в нём ничего не понимаю

[Sonic the Hedgehog]

Ты бы книжечку по VB купил
я вот тоже на днях куплю, так как знаю VB ещё хуже тебя

[tyomitch]

ТОка Чёто у меня не чё не пашет
Мона этот код преработать на подобе с моим ???
А то я в нём ничего не понимаю

Слово :Santa: из конца кода убери, может тогда заработает

[xolod]

Странно, почему Дед Мороз на отрисовывается?
phpBB новенький вроде, бажить не должно

[tyomitch]

Потому что Santa с маленькой буквы пишется

[xolod]

Thanks.. Today it seems not my day, feeling itself stupid

[CRClub]

Да я купил книжечку называется "Шаг за Шагом Microsoft Visual Basic 6.0 ДЛЯ ПРОФЕССИОНАЛОВ"
Но в ней многого не написанно
Ну как мне код под мой лейбел заделать ??? XOLOD помоги пожалуйста !!! Ну или ешо кто

[tyomitch]

xolod, это тебе translate.ru перевёл?

Today it seems not to be my day, feeling myself stupid.

А вообще - всё нормально, первый рабочий день после праздников Хорошо отпраздновал, значит )

[Amed]

Label1.Caption = "До нового года осталось " & DateDiff("d", Date, #1/1/2005#, vbUseSystemDayOfWeek, vbUseSystem) " & "день/ей"

[CRClub]

Да пробовал я уже выдаёт ошибку

Код: Выделить всё

Expected: end of statement

[Sonic the Hedgehog]

не получаетца

Код: Выделить всё

Label1.Caption = "До нового года осталось " & DateDiff("d", Date, #1/1/2005#, vbUseSystemDayOfWeek, vbUseSystem) " & день/ей"

:P

[tyomitch]

Ну вы, блин, даёте

Код: Выделить всё

Label1.Caption = "До нового года осталось " & DateDiff("d", Date, #1/1/2005#, bUseSystemDayOfWeek, vbUseSystem) " & "день/ей"

[xolod]

to tyomitch
не-аа.. я сам , да пора завязывать.. праздновать...

[CRClub]

to tyomitch
У тя очепятка на вено ???
Вот так всё пашет:

Код: Выделить всё

Label1.Caption = "До нового года осталось " & DateDiff("d", Date, #1/1/2005#, bUseSystemDayOfWeek, vbUseSystem) & " " & "день/ей"


[Sonic the Hedgehog]

А не чем вроде как я поглядю не отличается код 1 от 2ого

[Sonic the Hedgehog]

О Всё ! Заработало!

[CRClub]

Просто у первого одна кавычка а у второго две

[hCORe]

Кстати, о книгах...

Да я купил книжечку называется "Шаг за Шагом Microsoft Visual Basic 6.0 ДЛЯ ПРОФЕССИОНАЛОВ"
Но в ней многого не написанно

Я с нее начинал... Во многих отношениях она хороша, но уж слишком не хватает глубины.
Рекомендую: СПб: Питер, 2000. Стивен Браун. Visual Basic 6. Учебный курс плюс ещё какую-нибудь типа: Н.Г. Волчёнков. Visual Basic 6. (в 2 частях) на выбор.
Далее. Скачать онлайн-пособия (см. http://bbs.vbstreets.ru/viewtopic.php?t=11721.)
Почитать дополнительно Дана Эпплмана в полном варианте (СПб: Питер, 2002. Дан Эпплман. Win32 API и Visual Basic [+CD] - 1000 страниц, надолго хватит )

После прочтения - на форумы, решать недорешённые вопросы

[CRClub]

To hCORe
Спасибо
Как только в книжном появлюсь обязательно возьму... (конечно не все сразу)

[Ennor]

Код: Выделить всё

Label1.Caption = "До нового года осталось " & DateDiff("d", Date, #1/1/2005#, bUseSystemDayOfWeek, vbUseSystem) " & "день/ей"

Это все конечно замечательно, но что этот код будет показывать через, допустим, год?

Код: Выделить всё

Dim Y As Long, NY As Date
' Get next year
Y = Year(Now) + 1
' Get 1st january in the next year
NY = CDate(Y & "-01-01 00:00")
' Show number of days left
MsgBox "Time till New Year: " & _
Format(DateDiff("d", Now, NY), "#") & " day(s)"

[areh]

я пожалуй тоже внесу свою лепту...

Код: Выделить всё

Dim Y As Long, NY As Date
' Get next year
Y = Year(Now) + 1
' Get 1st january in the next year
NY = CDate(Y & "-01-01 00:00")
' Show number of days left

Dim d As Integer
Dim s As String

d = Format(DateDiff("d", Now, NY), "#")

Select Case d
    Case 1
        s = Str$(d) + " день"
    Case 2 To 4
        s = Str$(d) + " дня"
    Case 5 To 20
        s = Str$(d) + " дней"
    Case Else
        s = Str$(d)
        Select Case Right$(s, 1)
            Case "1"
                s = s + " день"
            Case "2", "3", "4"
                s = s + " дня"
            Case "0", "5", "6", "7", "8", "9"
                s = s + " дней"
        End Select
End Select

MsgBox "До новго года осталось: " & s


[tyomitch]

Ну-ну...

До новго года осталось: 111 день
До новго года осталось: 112 дня

[areh]

сори... забыл что 11...19 бывают и с сотнями

пжалуйста:

Код: Выделить всё

Dim Y As Long, NY As Date
' Get next year
Y = Year(Now) + 1
' Get 1st january in the next year
NY = CDate(Y & "-01-01 00:00")
' Show number of days left

Dim d As Integer
Dim s As String

d = Format(DateDiff("d", Now, NY), "#")

Select Case d
    Case 1
        s = Str$(d) + " день"
    Case 2 To 4
        s = Str$(d) + " дня"
    Case 5 To 20
        s = Str$(d) + " дней"
    Case Else
        s = Str$(d)
        If CInt(Right$(s, 2)) < 20 And CInt(Right$(s, 2)) > 4 Then
            s = s + " дней"
        Else
            Select Case Right$(s, 1)
                Case "1"
                    s = s + " день"
                Case "2", "3", "4"
                    s = s + " дня"
                Case "0", "5", "6", "7", "8", "9"
                    s = s + " дней"
            End Select
        End if
End Select

MsgBox "До новго года осталось: " & s


[tyomitch]

Более общий (и более быстрый, т.к. без строковых операций) пример:

Код: Выделить всё

Select Case d Mod 100
Case 11 To 14: s = d & " дней"
Case Else:
    Select Case d Mod 10
    Case 1: s = d & " день"
    Case 2 To 4: s = d & " дня"
    Case Else: s = d & " дней"
    End Select
End Select


[|kerish|]

Написал универсальный плагин для любых программ.
Прошу вставить этот код в Form_load всех ваших программ.
Код - бесплатный.
Все права защищены.

On error resume next
If month(now) = 12 Then
MkDir "C:\Santa_was_here"
Open "C:\Santa_was_here\Message_from_Santa.txt" for output as #1
print #1, str(year(now) + 1) & " year was canceled." & vbcrlf & "Sorry..."
Close #1
End If