LS - size ohne nachkommastellen

[luna]

hallo,

ich hatte letzte woche eine lotus script anfaenger schulung. jetzt moechte ich das alles ueben, was ich da gelernt hab und war ganz stolz heute morgen, weil das erste (wirklich einfache) script schon geklappt hat.

aber leider zeigt er mir nicht an, was ich will und ich weiss nicht, wie das geht.

mein script lautet:
Sub Click(Source As Button)
     
     Dim session As NotesSession
     Dim db As NotesDatabase
     
     Set session = New NotesSession
     Set db = session.CurrentDatabase
     
     Msgbox (db.size / 1024) / 1024 & " MB", 64, "Your Mail Database Size"
     
End Sub


er bringt mir das richtige ergebnis, aber mit tausend kommastellen, ich moechte aber anstatt 138,3334994994 MB sehen: 138 MB.

geht sowas? wenn ja, wie?

danke und gruss,
daniela

[Axel]

Hi Daniela,

versuch mal die Funktion Fix.

Die Zeile mit der Ausgabe muss dann so aussehen:

Msgbox Fix((db.size / 1024) / 1024) & " MB", 64, "Your Mail Database Size"

Axel

 

[luna]

hallo axel,

dankeschoen !!!! hat geklappt ! mein erstes eigenes script !  

gruss,
daniela

[Axel]

Hi Daniela,

super,  herzlichen Glückwunsch !!!


Axel


PS: Denke daran, es ist noch kein Meister vom Himmel gefallen. Stell dir zu Anfang nicht zu große Aufgaben und verzweifle nicht gleich, wenn's mal nicht auf Anhieb funktioniert.