excelde taksit
fatura takip gibi
borç takip
teşekkürler
cari takip programı ekler misiniz
-
- Megabyte4
- Mesajlar: 1547
- Kayıt: 30 Ağu 2024, 20:48
- Teşekkür etti: 402 kez
- Teşekkür edildi: 1355 kez
Re: cari takip programı ekler misiniz
Yapan bir arkadaşımız vardı sonra ücretli olarak yaparım diyerek ücretliye çevirdi rica ederek soran başka bir arkadaşa daha. Onun dışında da sitede böyle muhasebe tarzı programlar yapan yok diye biliyorum.
- zirvedeneme
- Kilobyte1
- Mesajlar: 294
- Kayıt: 14 Nis 2022, 13:05
- Teşekkür etti: 53 kez
- Teşekkür edildi: 111 kez
- TRWE_2012
- Exabyte2
- Mesajlar: 12250
- Kayıt: 25 Eyl 2013, 13:38
- cinsiyet: Erkek
- Teşekkür etti: 1255 kez
- Teşekkür edildi: 2962 kez
Re: cari takip programı ekler misiniz
Ben sana basit bir .vbs betiği kodladım..
Aylık Borç Takip.vbs
Kod: Tümünü seç
Dim fso, file, borc, tarih, aciklama, taksit, paraBirimi, masaustuYolu
' Dosya sistemi nesnesi oluştur
Set fso = CreateObject("Scripting.FileSystemObject")
' Kullanıcının masaüstü yolunu al
masaustuYolu = CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\aylık borç takip.txt"
' Borç bilgilerini al
borc = InputBox("Borç Tutarını Girin:")
tarih = InputBox("Borç Tarihini Girin (GG/AA/YYYY):")
aciklama = InputBox("Açıklama Girin:")
taksit = InputBox("Taksit Sayısını Girin:")
paraBirimi = InputBox("Para Birimini Seçin (TL, Dolar, Euro):")
' Dosyayı aç veya oluştur (8 = ekleme modu)
Set file = fso.OpenTextFile(masaustuYolu, 8, True)
' Bilgileri dosyaya yaz
file.WriteLine("Borç Tutarı: " & borc & " " & paraBirimi & " - Tarih: " & tarih & " - Açıklama: " & aciklama & " - Taksit Sayısı: " & taksit)
' Dosyayı kapat
file.Close
' Kullanıcıya bilgi ver
MsgBox "Borç bilgileri masaüstüne kaydedildi."
Bu betik, kullanıcıdan borç tutarı, tarih, açıklama, taksit sayısı ve para birimi (TL, Dolar, Euro) bilgilerini alır ve bunları "aylık borç takip.txt" dosyasına kaydeder."aylık borç takip.txt" dosyasında daha önceden yazılmış verilerin altına da yeni verileri ekler. (dosyanın üzerine yazılmaz)
Ekran görüntüleri :