Saate göre mesaj

[Mahmut Bayram]

Þöyle bir kod yazdım fakat mesaj alamadım. Acaba nerede hata yapıyorum.

Private Sub CommandButton1_Click()
saat = Now()
isaret = 0
Text1 = Format(saat, "hh")
If Text1 = "00" Then
Text1 = "0"
End If
For gunduz = 6 To 12
If Text1 = gunduz And isaret = 0 Then
MsgBox "Günaydın"
isaret = 1
End If
For ogle = 12 To 17
If Text1 = gunduz And isaret = 0 Then
MsgBox "İyi Ã?ğlenler"
isaret = 1
End If
For aksam = 17 To 24
If Text1 = aksam And isaret = 0 Then
MsgBox "İyi Akşamlar"
isaret = 1
End If
For gece = 0 To 6
If Text1 = gece And isaret = 0 Then
MsgBox "İyi Geceler"
isaret = 1
End If
Next gece
Next aksam
Next ogle
Next gunduz
End Sub

 

[ALPEN]

[vb:1:24eae9ab85]Private Sub CommandButton1_Click()
saat = Hour(Now)
Select Case saat
Case 6 To 12
MsgBox "Günaydın"
Case 13 To 17
MsgBox "İyi öğlenler"
Case 18 To 23
MsgBox "İyi akşamlar"
Case 0 To 5
MsgBox "İyi geceler"
End Select
End Sub[/vb:1:24eae9ab85]

gibi biraz daha düzenli olur.

Ek olarak, iç içe for next döngülerinin yapılarını tekrar bir gözden geçirmenizde fayda var gibi.

 

[Mahmut Bayram]

syn ALPEN, teşekkür ediyorum
şunu da ekledik mi programın işlemi tamam

Private Sub UserForm_Initialize()
Text1.Text = Hour(Now)
End Sub

 

[ildizim]

bu kodların otomatik çalışması için ne yapmalı

 

[esved]

saate göre mesaj

Private Sub CommandButton1_Click()
saat = Now()
'MsgBox (Now())
isaret = 0
TEXT1 = Format(saat, "hh")

'MsgBox (TEXT1)

If TEXT1 >= 6 And TEXT1 < 12 Then
MsgBox "Günaydın"
ElseIf TEXT1 >= 12 And TEXT1 < 17 Then
MsgBox "İyi Günler"
ElseIf TEXT1 >= 17 And TEXT1 < 24 Then
MsgBox "İyi Akşamlar"
ElseIf TEXT1 >= 0 And TEXT1 < 6 Then
MsgBox "İyi Geceler"
End If

End Sub