DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Function saat(deg As String) As Boolean
If Len(deg) <> 5 Then
saat = False: Exit Function: End If
If Mid(deg, 3, 1) <> ":" Then
saat = False: Exit Function: End If
If Not IsNumeric(Left(deg, 2)) Then
saat = False: Exit Function: End If
If Not IsNumeric(Right(deg, 2)) Then
saat = False: Exit Function: End If
If CInt(Left(deg, 2)) <= 0 Or CInt(Left(deg, 2)) > 24 Then
saat = False: Exit Function: End If
If CInt(Right(deg, 2)) <= 0 Or CInt(Right(deg, 2)) > 59 Then
saat = False: Exit Function: End If
saat = True
End Function
Private Sub CommandButton1_Click()
[B][COLOR="Red"]If Not saat(TextBox1.Text) Then[/COLOR][/B]
MsgBox "Saat formatında veri girilmedi.", vbCritical, "UYARI"
TextBox1.SetFocus
TextBox1.SelStart = 0
TextBox1.SelLength = Len(TextBox1.Text)
Exit Sub
End If
MsgBox "Saat doğru yazılmış."
End Sub
Merhabalar,Bildiğim kadarı ile böyle bir fonksiyon yok.
Ama ben sizin için bir fonksiyon yaptım.
Bu fonksiyonu kullanacağınız dosyalarda boş bir standart modüle kopyalayınız.
O dosyada Bütün formlarda ve makrolarda kulanabilirsiniz.
Dosya ektedir.
Fonksiyon:
Kullanımı:Kod:Function saat(deg As String) As Boolean If Len(deg) <> 5 Then saat = False: Exit Function: End If If Mid(deg, 3, 1) <> ":" Then saat = False: Exit Function: End If If Not IsNumeric(Left(deg, 2)) Then saat = False: Exit Function: End If If Not IsNumeric(Right(deg, 2)) Then saat = False: Exit Function: End If If CInt(Left(deg, 2)) <= 0 Or CInt(Left(deg, 2)) > 24 Then saat = False: Exit Function: End If If CInt(Right(deg, 2)) <= 0 Or CInt(Right(deg, 2)) > 59 Then saat = False: Exit Function: End If saat = True End Function
Kod:Private Sub CommandButton1_Click() [B][COLOR="Red"]If Not saat(TextBox1.Text) Then[/COLOR][/B] MsgBox "Saat formatında veri girilmedi.", vbCritical, "UYARI" TextBox1.SetFocus TextBox1.SelStart = 0 TextBox1.SelLength = Len(TextBox1.Text) Exit Sub End If MsgBox "Saat doğru yazılmış." End Sub