Forum
merhaba
visual basic 2010 kullanmaktayım.
iki tarih arasındaki farkı bulurken hafta sonu tatillerini dikkate almamak için nasıl bir kod kullanmalıyım. örneğin 01.01.2011 ve 30.01.2011 tarihlerdeki farkı bulurken 21 gün kaldığını nasıl yazabilirim 🙂 bugünlerde çok soru sordum 🙂
Merhabalar,
Aşağıdaki kod ihtiyacınızı karşılayacaktır:
-----------------------------------------------------------------------------------------------------------------------------------------
Public
Sub Main()Dim startdate As DateTime = New DateTime(2010, 1, 1)
Dim enddate As DateTime = New DateTime(2010, 1, 30)
Dim cnt As Integer = 0
While startdate <= enddate
If Not (startdate.DayOfWeek = DayOfWeek.Sunday OrElse startdate.DayOfWeek = DayOfWeek.Saturday) Then
cnt += 1
End If
startdate = startdate.AddDays(1)
End While
MsgBox(cnt)
End Sub
--------------------------------------------------------------------------------------------------------------------------------------------
Ben bunu Public Main altinda çalışacak şekilde gönderdim. Siz hangi kontrolün hangi event'inda isterseniz Sub - End Sub arasindaki kodu oraya yerleştirebilirsiniz.
iyi çalışmalar,
Mesut Aladağ.
Microsoft MVP, MCT
ellerinize sağlık.
çok teşekkür ederim.
Aynı Sornu Bende Aramaktayım mesut bey C# ile nasıl yaparım
Merhabalar,
C# için de aşağıdaki kodu kullanabilirsiniz:
----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
{
DateTime t1= new DateTime( 2010 , 3 , 18 ) ;
DateTime t2= new DateTime( 2010 , 3 , 22 ) ;
int say= 0;
DateTime kontrol= t1;
while( kontrol< t2.AddDays(1) )
{
if( kontrol.DayOfWeek != DayOfWeek.Saturday && kontrol.DayOfWeek != DayOfWeek.Sunday )
say++;
kontrol= kontrol.AddDays(1);
}
Console.Out.WriteLine( "Gun olarak aradaki fark" , t1, t2, say);
Console.In.Read();
}
-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
iyi çalışmalar
Mesut Aladağ.
Microsoft MVP, MCT