Arkadaşlar aşağıdaki fonksiyonlar Saat eklediğinizde ve uzerine toplama yaparak hangi saate denk geldiğini cıkarıyor. İkincisi ise iki saat arasındaki farkı hesaplıyor.

Kod:
Module Module1 Public Function Fark(ByVal Txt1 As TextBox, ByVal Txt2 As TextBox) As Date Dim Sure As Date Dim Saat As Integer Dim Dakika As Integer Dim Sayi1 As Integer Dim Sayi2 As Integer Dim ekle1 As Date Dim ekle2 As Date Sure = Txt1.Text Saat = Hour(Sure) Dakika = Minute(Sure) Sayi1 = Strings.Right(Txt2.Text, 2) Sayi2 = Strings.Left(Txt2.Text, 2) ekle1 = Sure.AddMinutes(Sayi1) ekle2 = ekle1.AddHours(Sayi2) Fark = Format(ekle2, "HH:mm") 'HH 24 Saat uzerinden gosteriyor. End Function
Kod:
Public Function StDk(ByVal dtmBsl As Date, ByVal dtmBts As Date) As String Dim intSt As Integer Dim intDk As Integer intDk = DateDiff("n", dtmBsl, dtmBts) intSt = intDk \ 60 intDk = intDk Mod 60 StDk = CStr(intSt) & ":" & CStr(intDk) End Function End Module
' **** Uygulama Şekli ***

Kod:
Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click TextBox3.Text = Format(Fark(TextBox1, TextBox2), "HH:mm") ' Buradaki HH 24 saati esas alarak saati gostermesini sağlıyor End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click TextBox4.Text = StDk(TextBox1.Text, TextBox3.Text) End Sub End Class
Ornekleyecek olursak birinci fonksiyonda saati 08: 21 girdik, eklenecek saate ise 1 saat 15 dakika girdik sonuc olarak saat 09:36 olarak verir.

İkinci fonsiyon ise yukarıdaki orneği desteklemek icin deneyebilirsiniz.
ikisaat arasındaki farkı hesaplıyor.
08:21 girdiniz 09:36 girdiniz aradaki zaman farkının 1 saat 15 dakika olduğu sonucunu verir.

İsterseniz StDk fonksiyonunda
Kod:
StDk = CStr(intSt) & "Saat" & "," & CStr(intDk)& "Dakika Fark Var"
şeklinde de yazabilirsiniz. Ben cozebilmek icin hayli uğraştım. forumlarda aradıklarımdan ve uğraşarak cıkarabildiğim bir sonuc. Umarım birilerinin işine yarar.
__________________