- Katılım
- 17 Ocak 2006
- Mesajlar
- 241
- Excel Vers. ve Dili
- excel xp türkçe
Merhaba arkadaşlar....
Sorunum şu:
veritabanımda girisTarih,girisSaati ve CikisTarih,CikisSaat
alanlarım var.ve çalışma saati 08:30 ile 16:00
yapılması gereken...
Girişi yapılmış tarih ve saati çıkışı yapılmış tarih saatten çıkartacak ama çalışma saati içinde
her şekli denedim ama bir türlü beceremedim.
bu konuda bilgisi olan arkadaşların yardımına ihtiyacım var.
normal de benim uyguladığım kod aşağıda
Dim Date1 As Date
Dim Zaman1 As Date
Dim Date2 As Date
Dim Zaman2 As Date
Dim TarihFark
Dim ZamanFark
Dim Yaz
Date1 = MSFlexGrid1.TextMatrix(lRow, 1)
Zaman1 = MSFlexGrid1.TextMatrix(lRow, 2)
Date2 = MSFlexGrid1.TextMatrix(lRow, 8)
Zaman2 = MSFlexGrid1.TextMatrix(lRow, 9)
'Stop
TarihFark = Date1 - Date2
ZamanFark = Zaman1 - Zaman2
Yaz = TarihFark & ":" & Format(ZamanFark, "hh:mm")
MSFlexGrid1.TextMatrix(lRow, 10) = Yaz
------------------------------
ama burada 24 saat üzerinde işlem yapıyor...
Sorunum şu:
veritabanımda girisTarih,girisSaati ve CikisTarih,CikisSaat
alanlarım var.ve çalışma saati 08:30 ile 16:00
yapılması gereken...
Girişi yapılmış tarih ve saati çıkışı yapılmış tarih saatten çıkartacak ama çalışma saati içinde
her şekli denedim ama bir türlü beceremedim.
bu konuda bilgisi olan arkadaşların yardımına ihtiyacım var.
normal de benim uyguladığım kod aşağıda
Dim Date1 As Date
Dim Zaman1 As Date
Dim Date2 As Date
Dim Zaman2 As Date
Dim TarihFark
Dim ZamanFark
Dim Yaz
Date1 = MSFlexGrid1.TextMatrix(lRow, 1)
Zaman1 = MSFlexGrid1.TextMatrix(lRow, 2)
Date2 = MSFlexGrid1.TextMatrix(lRow, 8)
Zaman2 = MSFlexGrid1.TextMatrix(lRow, 9)
'Stop
TarihFark = Date1 - Date2
ZamanFark = Zaman1 - Zaman2
Yaz = TarihFark & ":" & Format(ZamanFark, "hh:mm")
MSFlexGrid1.TextMatrix(lRow, 10) = Yaz
------------------------------
ama burada 24 saat üzerinde işlem yapıyor...