Tarih farkı
Tarih
11/03/2014 23:22
Konu Sahibi
mersilen
Yorumlar
3
Okunma
1633
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy
mersilen
Üye
Kullanici Avatari
Üye
2
1
05/10/2011
0
Ankara
Ofis 2003
24/07/2015,11:11
Çözüldü 
Merhabalar
Büyük bir veri grubunu excelde çevirmeye çalışıyorum ama beceremedim, özellikle tarih farkı konusunda sorunlar yaşıyorum
Excel dosyamı Access üzerinde açıp tarih farkı almak istedim onuda beceremedim
iki sütun arasındaki tarih farkını nasıl alabiliriz
Access kullanmaya yabancı birisi olarak soruyorum !!


Access ve Excel dosyası halinde yeniden ekledim
Kullandığım Excel kodu da

Kod:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
Sub Anne_doğum_sat()
Set s1 = Worksheets("doğum"): Set s2 = Worksheets("tsh 2007"): Set s3 = Worksheets("sayfa1")
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual

With s2.Range("C21:C208000")
For i = 12 To s1.[A11].End(xlDown).Row: değer = s1.Cells(i, "A"):
If değer = 0 Then GoTo Atla
    Set c = .Find(değer, LookIn:=xlValues)
    If Not c Is Nothing Then
  
        firstaddress = c.Address
        Do
'----------------------------------------------------------
If s1.Cells(i, "A") = s2.Cells(c.Row, "C") Then
Set it = s2.Cells(c.Row, "A"):  Set st = s1.Cells(i, "H")
ilk = Format(it.Value, "dd.MM.yy hh:mm"): son = Format(st.Value, "dd.MM.yy hh:mm")
fark = son - ilk
s2.Cells(i, "AH").Value = fark
End If
'----------------------------------------------------------

Set c = .FindNext(c)
            d = c.Address '''
        Loop While Not c Is Nothing And c.Address <> firstaddress
    'Else: GoTo çık:
    'End If
    End If
Atla:
Next i
End With
çık:
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub




Ek Dosyalar
.rar   TSH 5-2.rar (Dosya Boyutu: 39,98 KB / İndirme Sayısı: 5)
Cevapla

cttm98
Aktif Üye
Kullanici Avatari
Aktif Üye
K.... J....
212
2
24/04/2012
155
İstanbul
Ofis 2007
18/05/2016,18:49
Çözüldü 
Sponsor Reklam
Merhaba,
ekteki dosyaya xlsx dosyasını da eklerseniz daha iyi olur...
Herkes aynı şeyi düşünüyorsa, hiç kimse yeterince düşünmüyor demektir
Cevapla

mersilen
Üye
Kullanici Avatari
Üye
2
1
05/10/2011
0
Ankara
Ofis 2003
24/07/2015,11:11
Çözüldü 
Üstteki mesajdaki dosyayı güncelledim
Cevapla

cttm98
Aktif Üye
Kullanici Avatari
Aktif Üye
K.... J....
212
2
24/04/2012
155
İstanbul
Ofis 2007
18/05/2016,18:49
Çözüldü 
Sponsor Reklam
Dosya ekte incelerseniz...


Ek Dosyalar
.rar   TSH 5-2cttm98.rar (Dosya Boyutu: 46,88 KB / İndirme Sayısı: 7)
Herkes aynı şeyi düşünüyorsa, hiç kimse yeterince düşünmüyor demektir
Cevapla


Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
Sad İki Tarih Arası Sorgu Problemi AloneX 13 213 Dün, 11:14 ozanakkaya
  Şarta Bağlı Tarih Atma kübrashn 4 90 04/05/2017, 18:13 kübrashn
  Tarih Kriterine Göre En Yüksek Değer ALTANs 9 198 26/04/2017, 15:36 ALTANs
  Tarih Formatında Kayıt Yapmak. m_demir 5 133 14/04/2017, 00:02 m_demir
  Tarih Aralığında Sorgu Oluşturma ertans 2 107 23/03/2017, 12:50 ertans


Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
DMCA.com Protection Status