Я сделал математическую ошибку. Я должен был использовать либо power (2.72, -z), либо exp (-z). Вместо этого я использовал -1 * мощность (2,72, z). Теперь я получаю правильную кривую.
Спасибо.
Public Declare Function GetUserName Lib "advapi32.dll"
Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
....
Dim strLen As Long
Dim strtmp As String * 256
Dim strUserName As String
strLen = 255
GetUserName strtmp, strLen
strUserName = Trim$(TrimNull(strtmp))
Оказывается, что вопрос задали прежде: Как я могу добраться, в настоящее время входил в систему пользователь Windows в Доступе VBA?
Попробуйте это:
Function UserNameWindows() As String
UserName = Environ("USERNAME")
End Function