Добавление даты в конец текста

[Yuri_S]

Вот еще такое- как добавить системную дату в конец файла в rich text box'e

[mad_Max]

Если под выражением "в конец файла" имеется в виду "в конец текста", то:
RichTextBox.Text = RichTextBox.Text & " " & Date

[Yuri_S]

вот я тоже что-то подобное надумал, но оно вместо даты добавляет значение True(или False)......и с чего бы это?

[FaKk2]

вот я тоже что-то подобное надумал, но оно вместо даты добавляет значение True(или False)......и с чего бы это?

Потому что надо Date со скобками писать: Date()

[alibek]

Rich Textbox rtbMain и CommandButton cmdMain

Код: Выделить всё

Private Sub cmdMain_Click()
Call AddSystemDateToEndRichTextbox(rtbMain)
End Sub
'
Sub AddSystemDateToEndRichTextbox(rtbControl As RichTextBox)
Call SetCurrentPositionToEnd(rtbControl)
Call TypeTextToCurrentPosition(rtbControl, GetSystemDateAsString())
End Sub
'
Sub SetCurrentPositionToEnd(rtbControl As RichTextBox)
rtbControl.SelStart = Len(rtbControl.Text)
rtbControl.SelLength = 0
End Sub
'
Function GetSystemDateAsString() As String
GetSystemDateAsString = Format$(Now(), "dd.mm.yyyy\; hh:nn:ss")
End Function
'
Sub TypeTextToCurrentPosition(rtbControl As RichTextBox, Text As String)
rtbControl.SelText = Text
End Sub


о как

[Yuri_S]

ThAnX