Tweet

Ana Sayfa   Forum   VB 6.0
Yeni Başlık Cevap Ekle
white_bullet Vb.6.0 Muhasebe Hesapları (27/06/2008 09:42)
profil Oguzz
 offline OFFLINE
 Senior Coder

S.a herkeze.Vb ile ilgili fazla ilgilenemiyorum.Delphi ve C bölümüne ders hazırlıyoruz sürekli.Ufak bir fırsatım oldu sizin için incelemeniz açısından basit bir uygulama yazdım bugün..
Ücreti giriyorsunuz Kdv cinsinden dahil ve haricini hesaplayıp yazdırıyoruz.Vergisinide hesaplıyor.

CODE:

Public Ucret As Double
Public Vergi As Double
Public KDV08 As Double
Public KDV18 As Double


Private Sub Command1_Click()

List1.Clear
KDV08 = Ucret * 0.08


KDV18 = Ucret * 0.18

List1.AddItem (Now)
List1.AddItem ("*******************************************************************************************************")
List1.AddItem ("Ücret : " & Ucret)
List1.AddItem ("KDV %08 : " & KDV08)
List1.AddItem ("TOPLAM + KDV%08 : " & Ucret + KDV08)
List1.AddItem ("KDV %18 : " & KDV18)
List1.AddItem ("TOPLAM + KDV%18 : " & Ucret + KDV18)

If Ucret >= 400 Then

Select Case Ucret
Case 100 To 200
Vergi = Ucret * 0.2
Case 201 To 300
Vergi = Ucret * 0.25
Case 301 To 400
Vergi = Ucret * 0.3

End Select

ElseIf Ucret < 400 Then
Vergi = Ucret * 0.4
End If

List1.AddItem ("Vergi : " & Vergi)
List1.AddItem ("******************************************************************************************************")
End Sub

Private Sub Text1_Change()

Ucret = CDb1 (Text1.Text)

End Sub


Kolay gelsin.


Oguzz

[IMG SRC="http://i27.tinypic.com/deo945.jpg" ALIGN="CENTER"]http://i27.tinypic.com/deo945.jpg[/IMG]


Üye Profili

white_bullet Re:Vb.6.0 Muhasebe Hesapları (02/07/2010 07:07)
profil ajans13
 offline OFFLINE
 New Coder

edit/reklam yasak

profil
 
1 /
 
Ana Sayfa   Forum   VB 6.0
Yeni Başlık Cevap Ekle
 

Advertisement


MENÜ » FORUM
Menü » Takip et
RSS Facebook Twitter Friendfeed
Sık Kullanılanlar Google Yahoo Live
Menü » Paylaş
E-Posta ile gönder Twitter Facebook Friendfeed
Buzz Stumbleupon Delicious Digg