iki tarih arasındaki fark
Tarih
16/11/2011 18:06
Konu Sahibi
GTAO
Yorumlar
4
Okunma
1726
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy



GTAO
Aktif Üye
Kullanici Avatari
Aktif Üye
A.... H....
89
11/10/2010
0
İstanbul
Ofis 2007
04/01/2017,18:39
Çözüldü 
Sponsor Reklam
Arkadaşlar

2 tarih arasındaki farkı
örnek
15.07.2011 ile 10.11.2011 tarih arasında 118 gün yapar
ve 3,933333 ay yapar
nasıl ay toplamını alabilirim
yani
7.ay+8.ay+9.ay+10.ay+11.ay= 5 yapabilirim (ayların sayısını 5 yapabilirim)




Ek Dosyalar
.rar   deneme.rar (Dosya Boyutu: 14 KB / İndirme Sayısı: 13)
Cevapla

C*e*l*o*y*c*e
Celosoft Yazılım
Kullanici Avatari
Uzman
M.... B....
2.837
29/10/2008
902
Ankara
Ofis 2010 32 Bit
Bugün,03:50
Çözüldü 
formumuzda arama yaparsanız çok örnek bulabilirsiniz ,

http://www.accesstr.net/search.php?actio...order=desc
Cevapla

Seruz
Uzman
Kullanici Avatari
Uzman
S.... U....
1.544
7
30/10/2008
804
Tekirdağ
Ofis XP
Bugün,05:34
Çözüldü 
Sponsor Reklam
Örneğini bende Access 2002 yüklü olduğu için inceleyemedim ancak
örnekte muhtemelen sorgu var ve bu sorguda muhtemelen
"baslangictarihi" ve "bitistarihi" şeklinde alanlar var.

sorgudaki boş bir alana

SQL Code
fark: DateDiff("m";[Baslangic];[Bitis])+1


yazarsan istediğin ay farkını alabilirsin.

Bildiğini bilenin arkasından git, bildiğini bilmeyeni uyar, bilmediğini bilene öğret, bilmediğini bilmeyenden kaç.
Konfüçyüs
Cevapla

slayerrrrr
Aktif Üye
Kullanici Avatari
Aktif Üye
E.... T....
93
14/01/2011
13
İzmir
satın alma
Ofis 2007
19/01/2017,16:53
Çözüldü 
merhaba bir modül içine kodları kopyalayın gün ay yıl olarak istediğiniz veriyi size vericektir

Option Compare Database

'***************** Code Start **************
Public Function Diff2Dates(Interval As String, Date1 As Date, Date2 As Date, _
Optional ShowZero As Boolean = False) As Variant

On Error GoTo Err_Diff2Dates

Dim booCalcYears As Boolean
Dim booCalcMonths As Boolean
Dim booCalcDays As Boolean
Dim booCalcHours As Boolean
Dim booCalcMinutes As Boolean
Dim booCalcSeconds As Boolean
Dim booSwapped As Boolean
Dim dtTemp As Date
Dim intCounter As Integer
Dim lngDiffYears As Long
Dim lngDiffMonths As Long
Dim lngDiffDays As Long
Dim lngDiffHours As Long
Dim lngDiffMinutes As Long
Dim lngDiffSeconds As Long
Dim varTemp As Variant

Const INTERVALS As String = "dmyhns"

Interval = LCase$(Interval)
For intCounter = 1 To Len(Interval)
If InStr(1, INTERVALS, Mid$(Interval, intCounter, 1)) = 0 Then
Exit Function
End If
Next intCounter

'Check that valid dates have been entered
If Not (IsDate(Date1)) Then Exit Function
If Not (IsDate(Date2)) Then Exit Function

'If necessary, swap the dates, to ensure that
'Date1 is lower than Date2
If Date1 > Date2 Then
dtTemp = Date1
Date1 = Date2
Date2 = dtTemp
booSwapped = True
End If

Diff2Dates = Null
varTemp = Null

'What intervals are supplied
booCalcYears = (InStr(1, Interval, "y") > 0)
booCalcMonths = (InStr(1, Interval, "m") > 0)
booCalcDays = (InStr(1, Interval, "d") > 0)
booCalcHours = (InStr(1, Interval, "h") > 0)
booCalcMinutes = (InStr(1, Interval, "n") > 0)
booCalcSeconds = (InStr(1, Interval, "s") > 0)

'Get the cumulative differences
If booCalcYears Then
lngDiffYears = Abs(DateDiff("yyyy", Date1, Date2)) - _
IIf(Format$(Date1, "mmddhhnnss") <= Format$(Date2, "mmddhhnnss"), 0, 1)
Date1 = DateAdd("yyyy", lngDiffYears, Date1)
End If

If booCalcMonths Then
lngDiffMonths = Abs(DateDiff("m", Date1, Date2)) - _
IIf(Format$(Date1, "ddhhnnss") <= Format$(Date2, "ddhhnnss"), 0, 1)
Date1 = DateAdd("m", lngDiffMonths, Date1)
End If

If booCalcDays Then
lngDiffDays = Abs(DateDiff("d", Date1, Date2)) - _
IIf(Format$(Date1, "hhnnss") <= Format$(Date2, "hhnnss"), 0, 1)
Date1 = DateAdd("d", lngDiffDays, Date1)
End If

If booCalcHours Then
lngDiffHours = Abs(DateDiff("h", Date1, Date2)) - _
IIf(Format$(Date1, "nnss") <= Format$(Date2, "nnss"), 0, 1)
Date1 = DateAdd("h", lngDiffHours, Date1)
End If

If booCalcMinutes Then
lngDiffMinutes = Abs(DateDiff("n", Date1, Date2)) - _
IIf(Format$(Date1, "ss") <= Format$(Date2, "ss"), 0, 1)
Date1 = DateAdd("n", lngDiffMinutes, Date1)
End If

If booCalcSeconds Then
lngDiffSeconds = Abs(DateDiff("s", Date1, Date2))
Date1 = DateAdd("s", lngDiffSeconds, Date1)
End If

If booCalcYears And (lngDiffYears > 0 Or ShowZero) Then
varTemp = lngDiffYears & IIf(lngDiffYears <> 1, " yıl", " yıl")
End If

If booCalcMonths And (lngDiffMonths > 0 Or ShowZero) Then
If booCalcMonths Then
varTemp = varTemp & IIf(IsNull(varTemp), Null, " ") & _
lngDiffMonths & IIf(lngDiffMonths <> 1, " ay", " ay")
End If
End If

If booCalcDays And (lngDiffDays > 0 Or ShowZero) Then
If booCalcDays Then
varTemp = varTemp & IIf(IsNull(varTemp), Null, " ") & _
lngDiffDays & IIf(lngDiffDays <> 1, " gün", " gün")
End If
End If

If booCalcHours And (lngDiffHours > 0 Or ShowZero) Then
If booCalcHours Then
varTemp = varTemp & IIf(IsNull(varTemp), Null, " ") & _
lngDiffHours & IIf(lngDiffHours <> 1, " hours", " hour")
End If
End If

If booCalcMinutes And (lngDiffMinutes > 0 Or ShowZero) Then
If booCalcMinutes Then
varTemp = varTemp & IIf(IsNull(varTemp), Null, " ") & _
lngDiffMinutes & IIf(lngDiffMinutes <> 1, " minutes", " minute")
End If
End If

If booCalcSeconds And (lngDiffSeconds > 0 Or ShowZero) Then
If booCalcSeconds Then
varTemp = varTemp & IIf(IsNull(varTemp), Null, " ") & _
lngDiffSeconds & IIf(lngDiffSeconds <> 1, " seconds", " second")
End If
End If

If booSwapped Then
varTemp = "-" & varTemp
End If

Diff2Dates = Trim$(varTemp)

End_Diff2Dates:
Exit Function

Err_Diff2Dates:
Resume End_Diff2Dates

End Function
'************** Code End *****************
Cevapla

GTAO
Aktif Üye
Kullanici Avatari
Aktif Üye
A.... H....
89
11/10/2010
0
İstanbul
Ofis 2007
04/01/2017,18:39
Çözüldü 
Sponsor Reklam
Çok teşekkür ederim arkadaşlar
Seruz üstad vermiş olduğunuz kod tam işime yaradı

Cevapla


Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
  access iki tarih arası verileri datetimepicker vasıtasıyla çağırma usescrt 9 179 15/01/2017, 12:43 usescrt
  İki Tarih Arası Rapor Hatası m_demir 14 297 24/12/2016, 23:03 m_demir
  İki Tarih Arası Hk. Serkan Çevik 2 130 24/12/2016, 20:24 Serkan Çevik
  İki Tarih Arası Rapor Almak m_demir 20 602 23/12/2016, 12:11 m_demir
  Listede ve Raporda Tarih değerine göre sıralamak m_demir 20 465 03/12/2016, 00:13 m_demir


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