Kết quả tìm kiếm

Các bạn cho mình hỏi cty mình ký hợp đồng thuê đất trong 23 năm trả trước 2tỉ vậy có được đưa phần trên vào TSCĐ không? :confused:

Tài liệu này giúp những bạn không phải là kế tóan có thể hiểu cơ cấu nội dung của 3 báo cáo tài chính cơ bản: Bảng Cân Đối Kế Toán, Báo Cáo Lãi Lỗ và Báo cáo lưu chuyển tiền tệ, mình đã gởi mail cho admin, admin se attach file sau:)

Thị trường chứng khoán trong điều kiện của nền kinh tế hiện đại, được quan niệm là nơi diễn ra các hoạt động giao dịch mua bán chứng khoán trung và dài hạn... Thị trường chứng khoán trong điều kiện của nền kinh tế hiện đại, được quan niệm là nơi diễn ra các hoạt động giao dịch mua bán chứng...

Đã là dân lập trình thì ai mà chẳng từng đọc source code của người khác, lấy ý tưởng và kỷ thuật của người ta làm kiến thức cho mình, đó cũng là cách để cho mình nhanh “lên tay” nhất. Nhưng sự thật thì không phải dể dàng như vậy vì làm sao mà hiểu được...

Để giữ cho ứng dụng của bạn suôn sẻ khi chạy, tránh trường hợp bị lỗi chương trình và ngừng một cách "bất hợp pháp", nếu người gặp lỗi là chính bạn thì không có gì, nhưng nếu người gặp lỗi không phải là bạn, bạn sẽ bị "mất mặt" vì chương trình của mình. Cụ thể hơn, trong quá trình làm việc với...

Tên Hàm: Lấy trạng thái của NumLock và CapsLock Mô Tả: Bạn hãy thêm 1 label và 1 timer ( với thuộc tính Interval là 250) và đoạn code sau đây vào Form. Khi chạy chương trình, Label sẽ cập nhật trạng thái hiện tại của NumLock và CapsLock khi chúng được nhấn. Ví Dụ: Private Declare Function...

Mô Tả: Đây là cách để chọn nhiều file trong hộp thoại Open File của CommonDialog. Ví Dụ: Public Sub addMultiFileSub() ‘C = CommonDialog ‘List1 = ListBox C.Flags = cdlOFNExplorer + cdlOFNAllowMultiselect C.Filter = "Multimedia files (*.mp3;*.wav;*.mid)|*.mp3;*.wav;*.mid|All...

Thủ thuật sau sẽ Unload tất cả các cửa sổ Form đang mở Ví Dụ: Public Sub UnloadAllForms() Dim Form As Form For Each Form In Forms Unload Form Set Form = Nothing Next Form End Sub

Mô Tả: Bạn muốn chuyển đổi 1 số nào đó sang dạng chữ như: 12345 thành "Mười hai ngàn ba trăm bốn mươi lăm". Hãy thử đoạn code bên dưới xem. Ví Dụ: 'Mã chuyển một số sang một chuỗi Public Function NumToText(mVarStr As String) As String Static Ones(0 To 11) As String, Teens(0 To 9) As...

Tên Hàm: Tạo dòng chữ chạy liên tục Mô Tả: Thật ra chuyện này cũng dễ hiểu, bạn chỉ cần cắt chữ ở đầu đoạn văn bản và gắn nó vào cuối đoạn văn bản, làm liên tục như vậy sẽ tạo cho người dùng có cảm giác là dòng chữ đang chạy. Ví Dụ: Bạn hãy mở 1 form mới, trên đó tạo 1 textbox (Text1)...

Hàm sau sẽ cắt bớt các khoảng trống dư thừa trong 1 chuỗi Private Function PreventDuplicateSpaces(Word) Dim i, WordLength, Character, LastCharacter, NewWord On Error GoTo ErrorHandler WordLength = Len(Word) For i = 1 To WordLength Character = Mid(Word, i, 1)...