Dim s As Integer
Dim d As Integer
Dim e As Double
 
If Not IsNull(Me.txtSaat) And Not IsNull(Me.txtSayi) Then
 
s = Hour(Me.txtSaat.Value)
d = Minute(Me.txtSaat.Value)
 
If d = 0 And s <> 0 Then
    e = s
    Me.txtSonuc = (e * Me.txtSayi)
ElseIf d <> 0 And s = 0 Then
    e = "," & d
    Me.txtSonuc = (e * Me.txtSayi)
ElseIf s <> 0 And d <> 0 Then
    e = s & "," & d
    Me.txtSonuc = (e * Me.txtSayi)
ElseIf s = 0 And d = 0 Then
    Me.txtSonuc = 0
End If
 
Else
MsgBox "Gerekli alanlarda veri yok"
End If